проблема с переменные

[tanek]

Добрый вечер..... Я написала программу которая определяет, есть ли среди цифр заданного N- значного целого числа одинаковые цифры и их количество.... Но у меня возникла такая проблема.... Мне нужно чтобы пользователь вводил только цифры, а при вводе символа программа бы опять просила бы ввода чисел...

program p6;

procedure input_numbers(var number:string);
begin
writeln('введите целое число');
readln(number);
end;
function definition_numbers(var number:string):integer;
var
i,j,records:integer;
begin
records:=0;
for i:=1 to length(number)-1 do
for j:=i+1 to length(number) do
if number[i]=number[j] then records:=records+1;

definition_numbers:=records;
end;
procedure output_summ(number:string);
begin

if definition_numbers(number)>0 then writeln('есть совпадения цифр')
else writeln('*нет совпадений цифр');
writeln('количество совпадений = ',definition_numbers(number));
writeln('для завершения программы нажмите Enter');
readln;
end;
var
number:string;

begin
input_numbers(number);
output_summ(number);
end.

[Викдон]

const Mn: set of char ['0'..'9'];
   flag:boolean;

while true do
 begin
  flag:=false;
  input_numbers(number);
    for i:=1 to length(number) do
      if  not (number[i] in Mn)  then
        flag:=true;
    
   if flag=false then
    break;
end;

[tanek]

а можно это дело заменить условием repeat....until? и я что то не пойму как это дело вставить....
20:06
хех.... я поняла как ее вставить.... а как мне сделать это с помощью цикла repeat......until нет....
20:12
и скажите мне пожалуйста что означает set of в строке
const Mn: set of char ['0'..'9'];

[Serge_Bliznykov]

tanek, объявлена константа Mn представляющая собой
множество символов от '0' до '9'
Про множество можно прочитать в любой книжке по Паскалю, или, вкратце, можете посмотреть тут - Паскаль (язык программирования) — Википедия
или тут - Символы и строки. Множества (INTUIT.ru)

и ещё. Вы извините, но мне кажется, что Ваша функция definition_numbers работает неверно... ;-(
сколько одинаковых цифр в числе 1111 ?
мне кажется, что правильный ответ - 4
Так?...

ПОЗДРАВЛЯЕМ С 8-м Марта!

[tanek]

опачки..... да...... я с вами полностью согласна..... а как же мне это исправить?
p.s. спасибочки огромное за поздравление

[Serge_Bliznykov]

а попробуйте функцию заменить на:

function definition_numbers(const Number: string): integer;
var
  i, records: integer;
  CountDigit : array['0'..'9'] of byte;
  ch : char;
begin
  records := 0;
  for ch:=Low(CountDigit) to High(CountDigit)
     do CountDigit[ch] := 0; {обнулим массим-счётчик}
  for i := 1 to length(number) do
     inc( CountDigit[Number[i]]); {увеличиваем счётчик встреченного символа}
  for ch:=Low(CountDigit) to High(CountDigit)
  {для символов, которые встретились более одного раза 
     (т.е. были повторящиеся символы) суммируем то количество раз,
    сколько эти символы встретились!}
     do if CountDigit[ch]>1 then records := records + CountDigit[ch]; 


  definition_numbers := records;
end;

Алгоритм такой создаём массив цифр и банально, как только встретили цифру - увеличиваем счётчик.
в результате в массиве CountDigit мы получаем сколько раз встретился символ '0', сколько раз встретился символ '1' и т.д. до того, сколько раз встретился символ '9'...
потом в цикле проходим - если символ встретился более одного раза (значит есть повторы - то увеличиваем счётчик повторов на число - сколько раз встретился тот или иной символ...

[pmarkov]

Молодец, у меня так не получалось.