Разработать программу для ввода последовательности из n <= 255 вещественных чисел - Free Pascal

Формулировка задачи:

Прошу помочь разобраться со следующей программой. Мне нужно разработать программу для ввода последовательности из n <= 255 вещественных чисел. Пользователь должен вводить значения в формате: номер_в_последовательности - значение. Если значение с таким номером уже введено, то необходимо выдавать соответствующий запрос на подтверждение операции перезаписи и изменять старое значение (записывать "поверх" его новое значение), если такое подтверждение получено. Вывести множество введенных новых элементов (их номера) и множество измененных элементов. Видел что-то подобное на C, но не совсем понимаю, как это переписать под Pascal.

Код к задаче: «Разработать программу для ввода последовательности из n <= 255 вещественных чисел - Free Pascal»

textual
var
  e, m: set of Byte;
  a: array [1..255] of Real;
  t: Real;
  n, p: Integer;
begin
  WriteLn('Вводите пары номер число, окончание - 0');
  repeat
    Read(n); if n=0 then Break;
    ReadLn(t);
    if n in e then begin
      Write('Переписать (1-да/иначе-нет): '); ReadLn(p);
      if p=1 then begin
        Include(m,n); a[n]:=t;
      end;
    end else Include(e,n);
  until False;
  Write('Введены:'); for n in e-m do Write(' ',n); WriteLn;
  Write('Изменены:'); for n in m do Write(' ',n); WriteLn;
end.

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ