SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Заполнить файл REALDATA.DAT
Код:
var
v : real;
F : file of real;
i : integer;
begin
{заполняем файл значениями}
Assign(F, 'realdata.dat');
Rewrite(F);
Randomize;
for i:=1 to 50 do begin
V := random(1000)/100;
if V>0 then Write(F, V)
end;
Close(F);
end.
|
прочитать-перемножить
Код: var
Dobutok : extended;
v : real;
F : file of real;
i : integer;
begin
{заполняем файл значениями}
Assign(F, 'realdata.dat');
Reset(F);
Dobutok := 1;
i := 0;
while Not( Eof(F)) do begin
Read(F, V);
Dobutok := Dobutok * V;
i := i + 1
end;
WriteLn('found ',i:1,' numbers. Dobutok = ',Dobutok);
Close(F);
end.
|
|
