Вывести целую часть самого большого числа в обратном порядке цифр в новый файл. - 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.
Объяснение кода листинга программы
- В начале кода объявляются переменные: f - тип text, a, max - тип real, i - тип integer, s - тип string.
- Затем происходит чтение файла input.txt в переменную max.
- Далее идет цикл while, который выполняется до тех пор, пока не достигнут конец файла. Внутри цикла происходит чтение файла input.txt в переменную a и сравнение ее с переменной max. Если a больше max, то max обновляется значением a.
- После окончания цикла файл input.txt закрывается.
- Значение max преобразуется в строку с помощью функции inttostr и сохраняется в переменной s.
- Затем открывается файл output.txt, создается новый файл для записи.
- В файл output.txt записываются символы из строки s в обратном порядке.
- Файл output.txt закрывается.
- Выводится сообщение о завершении работы программы.