Консультация № 175539
22.12.2009, 19:16
0.00 руб.
0 1 1
Помогите пожалуйста юному программисту решить непонятную задачу.
4)Дан файл компоненты которого являются действительными числами. Найти наименьший из значений компонент с четными номерами.
Заранее большое спасибо.

Обсуждение

давно
Профессор
401888
1232
22.12.2009, 20:32
общий
это ответ
Здравствуйте, Эдуардик!
Решение задачи в приложении.

Приложение:
uses crt;
var f:file of real;{типизированный файл действительных чисел}
a,mn:real;
i:integer;
begin
clrscr;
assign(f,'file');{связываем переменную с файлом}
rewrite(f);{открываем файл для записи}
i:=0;
writeln('Введите в файл ,не менее 2х действительных чисел, окончание ввода 0:');
repeat
write('a=');
readln(a);
i:=i+1;
write(f,a);{вводим числа в файл}
until (a=0)and(i>1);{если введен ноль и более одного числа, прекращаем ввод}
clrscr;{очищаем экран}
writeln('Содержание файла:');
reset(f);{открываем файл для чтения}
read(f,a);{читаем первое число}
write(a:6:2);
read(f,mn);{читаем второе, пока это минимум}
write(mn:6:2);
i:=2;{2 числа прочитано}
while not eof(f) do{пока не прочитан весь файл}
begin
read(f,a);{читаем числа}
write(a:6:2);{выводим на экран}
i:=i+1;{считаем}
if(i mod 2=0)and(a<mn) then mn:=a;{если четный номер, проверяем на меньшее}
end;
close(f);{закрываем файл}
writeln;
write('Минимальный с четным номером=',mn:0:2);
readln
end.
Форма ответа