Вывести целую часть самого большого числа в обратном порядке цифр в новый файл. - Pascal ABC

Узнай цену своей работы

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

в файле хранятся действительные числа.вывести целую часть самого большого числа. в обратном порядке цифр в новый файл.

Решение задачи: «Вывести целую часть самого большого числа в обратном порядке цифр в новый файл.»

textual
Листинг программы
var f:text;
    a,max:real;
    i:integer;
    s:string;
begin
assign(f,'input.txt');
reset(f);
read(f,max);
while not seekeof(f) do
 begin
  read(f,a);
  if a>max then max:=a;
 end;
close(f);
s:=inttostr(trunc(max));
assign(f,'output.txt');
rewrite(f);
for i:=length(s) downto 1 do
write(f,s[i]);
close(f);
writeln('Файл input.txt прочитан и результат записан в файл output.txt')
end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные: f - тип text, a, max - тип real, i - тип integer, s - тип string.
  2. Затем происходит чтение файла input.txt в переменную max.
  3. Далее идет цикл while, который выполняется до тех пор, пока не достигнут конец файла. Внутри цикла происходит чтение файла input.txt в переменную a и сравнение ее с переменной max. Если a больше max, то max обновляется значением a.
  4. После окончания цикла файл input.txt закрывается.
  5. Значение max преобразуется в строку с помощью функции inttostr и сохраняется в переменной s.
  6. Затем открывается файл output.txt, создается новый файл для записи.
  7. В файл output.txt записываются символы из строки s в обратном порядке.
  8. Файл output.txt закрывается.
  9. Выводится сообщение о завершении работы программы.

Оцени полезность:

8   голосов , оценка 3.5 из 5
Похожие ответы