Заполнение текстового файла в процедуре

@Ofdeath · Регистрация: 09.01.2014

Author24 — интернет-сервис помощи студентам

Здравствйте
Есть файл T:TEXT;
Как можно заполнить его данными в процедуре?
(например записать числа от 1 до 10 с шагом 1 : 1 2 3 4 5 .....)

@Joy · 14.11.2014, 06:53

Pascal

var
  f:text;
procedure wrtxt(f:text);
var
  i:integer;
begin
  for i:=1 to 10 do write(f,i,' ');  
end;
begin
  assign(f,'ww.txt');
  rewrite(f);
  wrtxt(f);
  close(f);
end.

@Ofdeath · 14.11.2014, 20:03 **[ТС]**

Вот моя процедура. При попытке вставить ее в программу появляется ошибка, говорящая о том, что файл не открыт. (x0,dx,xk вводятся в самой программе)

Pascal

Program z49;
procedure writefile(x0,dx,xk:longint;t:text);
var x:longint;
    y:real;
begin
while x0<=xk do
 begin
  x:=x0;
  y:=2*cos(sqr(x)/2);
  x0:=x0+dx;
  writeln(t,x,' ',y,' ');
 end;
end;

помогите понять ошибку.

@Joy · 15.11.2014, 03:33

Всю программу приведите.

@Ofdeath · 15.11.2014, 12:43 **[ТС]**

Pascal

Program z49;
procedure writefile(x0,dx,xk:longint;t:text);
var x:longint;
    y:real;
begin
while x0<=xk do
 begin
  x:=x0;
  y:=2*cos(sqr(x)/2);
  x0:=x0+dx;
  writeln(t,x,' ',y,' ');
 end;
end;
var x,x0,dx,xk:longint;
    y:real;
    t:text;
begin 
assign(t,'ww.txt');
writeln(x0);read(x0);
writeln(dx);read(dx);
writeln(xk);read(xk);
writefile(x0,dx,xk,t);
close(t);
End.

@ZX Spectrum-128 · 15.11.2014, 19:29

Между 18-й и 19-й строками вставьте

Pascal

1	rewrite(t);

@Ofdeath 19 / 17 / 6 Регистрация: 09.01.2014 Сообщений: 351
		1
	Заполнение текстового файла в процедуре 13.11.2014, 21:56. Показов 1727. Ответов 5 Метки нет (Все метки) Здравствйте Есть файл T:TEXT; Как можно заполнить его данными в процедуре? (например записать числа от 1 до 10 с шагом 1 : 1 2 3 4 5 .....) 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	15.11.2014, 03:33	4
	Всю программу приведите. 0

	15.11.2014, 19:29

Заполнение текстового файла в процедуре

Решение