Файлы

[Фарфор]

Файлы

Извините!! Помогите!!

*** Создайте два файла действительных чисел. Проанализировав в программе созданные файлы, создайте файл строкового типа, содержащий суммы соответствующих чисел файлов в виде 2,5+3,4=5,9.
выведите на экран содержимое файлов. предусмотрите в программе вывод соответствующеготьсообщения, если элементов в файле не оказалалось.


Заранее СПАСИБО за Вашу помощь нам!!

 

[Vladimir_S]

Извините!! Помогите!!

*** Создайте два файла действительных чисел. Проанализировав в программе созданные файлы, создайте файл строкового типа, содержащий суммы соответствующих чисел файлов в виде 2,5+3,4=5,9.
выведите на экран содержимое файлов. предусмотрите в программе вывод соответствующеготьсообщения, если элементов в файле не оказалалось.


Заранее СПАСИБО за Вашу помощь нам!!

CONST
N=10;
M=8;
VAR
f1,f2,f3:TEXT;
x1,x2:REAL;
i:INTEGER;
BEGIN
Assign(f1,'D:\d1');
ReWrite(f1);
Assign(f2,'D:\d2');
ReWrite(f2);
Assign(f3,'D:\d3');
ReWrite(f3);
Randomize;
FOR i:=1 TO N DO
BEGIN
x1:=1.0*Random(99)/10;
Write(f1, x1:4:1);
END;
Close(f1);
FOR i:=1 TO M DO
BEGIN
x2:=1.0*Random(99)/10;
Write(f2, x2:4:1);
END;
Close(f2);
ReSet(f1);
ReSet(f2);
REPEAT
IF (NOT EoF(f1)) AND (NOT Eof(f2)) THEN
BEGIN
Read(f1,x1);
Read(f2,x2);
WriteLn(f3,x1:3:1,'+',x2:3:1,'=',x1+x2:4:1);
END;
IF EoF(f1) THEN
WriteLn(f3, 'No more numbers in f1');
IF EoF(f2) THEN
WriteLn(f3, 'No more numbers in f2');
UNTIL (Eof(f1)) OR (Eof(f2));
Close(f1);
Close(f2);
Close(f3);
END.