В текстовом файле записана не пустая последовательность вещественных чисел, разделенных пробелами. Написать программу для нахождения наибольшего из этих чисел — Pascal(Паскаль)

Создать в Блокноте текстовый файл с числами, между числами пробелы, после последнего числа ничего не должно быть. Разделитель целой и дробной частей — точка. Например.
1.25 3.45 5.56 4.12

uses crt;
var f:text;
    nf:string;
    a,mx:real;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,mx);{читаем первое число, пока оно макс.}
while not eof(f) do
 begin
  read(f,a);{читаем остальные}
  if a>mx then mx:=a;
 end;
close(f);
write('Наибольшее число в файле=',mx:0:2);
readln
end.

Похожие записи/страницы:

Leave a Comment

1 + 4 =