Процедура

Djoker91 · 13.12.2010, 23:03

как сделать чтобы результат записывался в файл?
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 · 13.12.2010, 23:45

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

Цитата:

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 · 13.12.2010, 23:49

Как из приведенных ниже програм сделать процедуры как отдельно подключаемый модуль??? И как потом в программе вызвать эти процедуры???
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 · 14.12.2010, 00:02

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

Djoker91 · 14.12.2010, 19:47

Помогите отредактировать программу
[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]

13.12.2010, 23:03	#1 (permalink)
Djoker91 Новичок Регистрация: 13.12.2010 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Процедура как сделать чтобы результат записывался в файл? 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.

13.12.2010, 23:49	#3 (permalink)
Djoker91 Новичок Регистрация: 13.12.2010 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Как из приведенных ниже програм сделать процедуры как отдельно подключаемый модуль??? И как потом в программе вызвать эти процедуры??? 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; 14.12.2010 в 00:01

13.12.2010, 23:03
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно, что проблема уже решена кем то из пользователей Процедура удаления пробелов в строке Процедура, Паскаль VBA. Процедура находящая решение Функция и процедура

14.12.2010, 00:02	#4 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Уж будьте добры, потрудитесь открыть учебник по паскалю и почитать соответствующие темы. Там все подробно расписано.

14.12.2010, 19:47	#5 (permalink)
Djoker91 Новичок Регистрация: 13.12.2010 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите отредактировать программу [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]

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070