uses crt;
var
SrcFile1,SrcFile2: File of real;
DestFile: File of string;
SrcFile1Name, SrcFile2Name, DestFileName: string;
elem1,elem2,summ : real;
ask: char;
itog, stroka1, stroka2 : string;
procedure CreateFileOfReal1;
var
min, max, value, sign: real;
begin
Rewrite(SrcFile1);
writeln('Vvedite min granicu zna4eniy '); readln(min);
writeln('Vvedite max granicu zna4eniy '); readln(max);
if min > max then begin
value:= min;
min:= max;
max:= value;
end;
value := random*(max-min)+min;
sign := random;
if sign>=0.5 then begin
value := -value;
write (SrcFile1, value);
end;
Close(SrcFile1);
end;
procedure CreateFileOfReal2;
var
min, max, value, sign: real;
begin
Rewrite(SrcFile2);
writeln('Vvedite min granicu zna4eniy '); readln(min);
writeln('Vvedite max granicu zna4eniy '); readln(max);
if min > max then begin
value:= min;
min:= max;
max:= value;
end;
value := random*(max-min)+min;
sign := random;
if sign>=0.5 then begin
value := -value;
write (SrcFile2, value);
end;
Close(SrcFile2);
end;
begin
clrscr;
writeln('Vvedite imya 1 fila '); readln(SrcFile1Name);
Assign(SrcFile1, SrcFile1Name);
writeln('Nujno li predvaritelno zapolnit file (y/n)'); readln(ask);
if (ask='y')or(ask='Y') then
CreateFileOfReal1;
writeln('Vvedite imya 2 fila '); readln(SrcFile2Name);
Assign(SrcFile2, SrcFile2Name);
writeln('Nujno li predvaritelno zapolnit file (y/n)'); readln(ask);
if (ask='y')or(ask='Y') then
CreateFileOfReal2;
writeln('Vvedite imya fila rezultata '); readln(DestFileName);
Assign(DestFile, DestFileName);
{$I-}
Reset(SrcFile1);
{$I+}
if IOResult<>0 then begin
writeln('Oshibka, ne vozmojno otkrit file1.');
readln;
exit;
end;
{$I-}
Reset(SrcFile2);
{$I+}
if IOResult<>0 then begin
writeln('Oshibka, ne vozmojno otkrit file2.');
readln;
exit;
end;
Rewrite(DestFile);
read (SrcFile1, elem1);
writeln ('1-y file soderjit zna4enie = ',elem1:3:1);
read (SrcFile2, elem2);
writeln ('2-y file soderjit zna4enie = ',elem2:3:1);
summ:=elem1+elem2;
str(elem1:3:1, stroka1);
str(elem2:3:1, stroka2);
str(summ:3:1, itog);
itog:= stroka1 + ' + ' + stroka2 + ' = ' + itog;
write (DestFile, itog);
writeln ('V fail rezultata zapisano: ', itog);
readln;
Close (SrcFile1);
Close (SrcFile2);
Close (DestFile);
end.
Сообщение отредактировано: Lapp -