File21. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных максимумов исходного файла в порядке возрастания (определение локального максимума дано в задании File19).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
program File21; var S:String; F_in: File of Real; F_out: File of Integer; El2,El1,El:Real; i:integer; begin Write('File: '); Readln(S); Assign(F_in,S); Reset(F_in); Write('File_out: '); Readln(S); Assign(F_out,S); ReWrite(F_out); Read(F_in,El1); Read(F_in,El); El2:=El1; I:=1; if (El1>El) then Write(F_out,i); while (not eof(F_in)) do begin El2:=El1; El1:=El; Read(F_in,El); inc(i); if (El<El1) and (El1>El2) then Write(F_out,i); end; if El1<El then Write(F_out,i+1); Close(F_in); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: