Процедура

[Djoker91]

Процедура

как сделать чтобы результат записывался в файл?
Program writefile;
var x,y:real;
st:string;
f:text;
begin
assign(f,'xxx.txt');
reset(f);
x:=0;
while x<=1 do
begin
y:=sqr(x+1);
write(y:0:2);
x:=x+0.1;
end;
close(f);
readln
end.

 

[MrSTEP]

По памяти - примерно вот так:

Program writefile;
var x,y:real;
st:string;
f:text;
begin
assign(f,'xxx.txt');
rewrite(f);
x:=0;
while x<=1 do
begin
y:=sqr(x+1);
write(f,y:0:2);
x:=x+0.1;
end;
close(f);
readln
end.

я заменил Reset на Rewrite, то есть открыл файл не для чтения, а для записи. И к выводу добавил то, что выводить нужно в файл. Может быть что-то упустил или ошибся, проверяйте

 

[Djoker91]

Как из приведенных ниже програм сделать процедуры как отдельно подключаемый модуль??? И как потом в программе вызвать эти процедуры???
1

Program writefile;
var x,y:real;
f:text;
begin
assign(f,'xxx.txt');
rewrite(f);
x:=0;
while x<=1  do
 begin
  y:=sqr(x+1);
  write(y:5:2);
  write(f,y:5:2);
  x:=x+0.1;
 end;
close(f);
readln
end
.

2

program readfile;
var
st:string;
f:text;
begin
assign(f,'xxx.txt');
reset(f);
while not eof(f) do
begin
read(f,st);
write(st);
end;
readln;
end.

 

[MrSTEP]

Уж будьте добры, потрудитесь открыть учебник по паскалю и почитать соответствующие темы. Там все подробно расписано.

 

[Djoker91]

Помогите отредактировать программу
[PASCAL]Program n8;
uses complexn;
var x,y,f,st:complex;
begin
writefile(x,y,f);
readfile(x,y,f,st);
end.[/PASCAL]

[PASCAL]Unit complexn;
Interface
Type
complex=record;
x,y:real;
f:text;
st:string;
procedure writefile(x,y:complex; f:text);
procedure readfile(x,y:complex; f:text; st:string);
implenmentation
procedure writefile ;
begin
assign(f,'xxx.txt');
rewrite(f);
x:=0;
while x<=1 do
begin
y:=sqe(x+1);
write(f,y:5:2);
x:=x+0.1;
end;
close(f);
readln;
end;
procedure readfile;
begin
assign(f,'xxx.txt');
reset(f);
while not oef(f) do
begin
read(f,st);
write(st);
end;
readln;
end;
end.[/PASCAL]