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

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

Решение:

program File18;
var
 S:String;
 F_in,F_out: File of Real;
 El2,El1,El: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 Writeln(El1)
  else
   begin
    while (not eof(F_in)) and not((El>El1) and (El1<El2)) do
     begin
      El2:=El1;
      El1:=El;
      Read(F_in,El);
     end;
    if (not eof(F_in)) then Writeln(El1)
    else if eof(F_in) and (El1>El) then  Writeln(El);
   end;
  Close(F_in);
end.

program File18;

var

S:String;

F_in,F_out: File of Real;

El2,El1,El: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 Writeln(El1)

else

begin

while (not eof(F_in)) and not((El>El1) and (El1<El2)) do

begin

El2:=El1;

El1:=El;

Read(F_in,El);

end;

if (not eof(F_in)) then Writeln(El1)

else if eof(F_in) and (El1>El) then Writeln(El);

end;

Close(F_in);

end.

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

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

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

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