Решаем задачи Абрамян на Паскале. File19

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

Решение:

program File19;
var
 S:String;
 F_in,F_out: File of Real;
 El2,El1,El,LocMax:Real;

begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  Read(F_in,El1);
  Read(F_in,El);
  El2:=El1;

  if (El1>El) then LocMax:=El1;
  while (not eof(F_in)) do
   begin
    El2:=El1;
    El1:=El;
    Read(F_in,El);
    if (El<El1) and (El1>El2) then LocMax:=El1;
   end;
  if El1<El then LocMax:=El;
  Writeln(LocMax);
  Close(F_in);
end.

program File19;

var

S:String;

F_in,F_out: File of Real;

El2,El1,El,LocMax:Real;

begin

Write('File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Read(F_in,El1);

Read(F_in,El);

El2:=El1;

if (El1>El) then LocMax:=El1;

while (not eof(F_in)) do

begin

El2:=El1;

El1:=El;

Read(F_in,El);

if (El<El1) and (El1>El2) then LocMax:=El1;

end;

if El1<El then LocMax:=El;

Writeln(LocMax);

Close(F_in);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File19

Комментарии:

Добавить комментарий Отменить ответ