Дан файл f, компоненты которого являются действительными числами. Найти: а) наименьшее из значений компонент с четными номерами; б) разность первой и последней компонент файла.
virt
30.11.2004 12:07
Код
program der_min_in_chet; var a,first,min:real; ind:integer;
begin assign(input,'dmic.in');reset(input); read(a);first:=a; read(a);min:=a;ind:=2; while not seekeof do begin read(a);inc(ind); if (ind mod 2 = 0) and (a < min) then min:=a; end; writeln(min:0:6); writeln(first-a:0:6); end.
volvo
30.11.2004 16:26
SoulDrinker
Цитата
Дан файл f, компоненты которого являются действительными числами
То есть, файл должен быть таким:
Код
Var fd: File of real;
Или достаточно того, что написал virt (работа действительными числами через текстовый файл)?
SoulDrinker
2.12.2004 12:39
спосибо огромное
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.