Задача с файлом

@_║RAZOR║_ · Регистрация: 22.04.2009

Плиззззз сделайте задачку, уже незнаю как попросить чтоб сделали её....
Очень нужна ваша помощь.

Условие:

Дан файл f, элементы которого являются действительными числами.
Найти наибольшее из значений элементов.

Заранее спасибо.

@zlooo · 18.05.2009, 14:44

program lab;
uses crt;

var f : file of real;
max : real;
arr : array [1..1000] of real;
i,n,k : integer;
x : real;

begin clrscr;

assign(f,'file.dat');
rewrite(f);

write('How many elements : ');
readln(n);

for i := 1 to n do
begin
read(x);
write(f,x);
end;

writeln;
reset(f);

writeln;

while not eof(f) do
begin
read(f,x);
inc(k);
arr[k] := x;
if arr[k] > max then max := arr[k];
end;

writeln('max : ',max:2:2);

readkey
end.

@_║RAZOR║_ 0 / 0 / 0 Регистрация: 22.04.2009 Сообщений: 7
		1
	Задача с файлом 17.05.2009, 18:19. Просмотров 458. Ответов 1 Метки нет (Все метки) Плиззззз сделайте задачку, уже незнаю как попросить чтоб сделали её.... Очень нужна ваша помощь. Условие: Дан файл f, элементы которого являются действительными числами. Найти наибольшее из значений элементов. Заранее спасибо. 0

@zlooo 4 / 4 / 0 Регистрация: 18.05.2009 Сообщений: 4
	18.05.2009, 14:44	2
	program lab; uses crt; var f : file of real; max : real; arr : array [1..1000] of real; i,n,k : integer; x : real; begin clrscr; assign(f,'file.dat'); rewrite(f); write('How many elements : '); readln(n); for i := 1 to n do begin read(x); write(f,x); end; writeln; reset(f); writeln; while not eof(f) do begin read(f,x); inc(k); arr[k] := x; if arr[k] > max then max := arr[k]; end; writeln('max : ',max:2:2); readkey end. 1

Опции темы