Создать целочисленный файл с помощью гениратора целых чисел через процедуру

@ElenaNagina · Регистрация: 03.12.2012

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

Нужно создать целочисленный файл, с помощью гениратора целых чисел , сделать это нужно через процедуру. В чем он выдает ошибку я не понимаю.

Pascal

program sortirovka2;
var f:file of integer;
    a,b,i,r,k:integer;
    t:boolean;
Procedure SozdF(var f:file);
var i,n,k:integer;
    Begin
      n:=10;
      assign(f,'d:/f.txt');
      rewrite(f);
      randomize;
      for i:=1 to n do
         begin
           k:=random(100)-50;
           write(f,k);
           write(k:4)
         end;
      close(f);
    end;
Begin
  SozdF(var f:file;i:integer);
end.

@CodeR · 03.12.2012, 13:33

Сообщение от ElenaNagina

Нужно создать целочисленный файл, с помощью гениратора целых чисел , сделать это нужно через процедуру. В чем он выдает ошибку я не понимаю

Pascal

program sortirovka2;
 var f:file of integer;
 a,b,i,r,k:integer;
 t:boolean;
 Procedure SozdF(var f:file of integer);
 var i,n,k:integer;
 Begin
 n:=10;
 assign(f,'d:\f.txt');
 rewrite(f);
 randomize;
 for i:=1 to n do
 begin
 k:=random(100)-50;
 write(f,k);
 write(k:4)
 end;
 close(f);
 end;
 Begin
 SozdF(f);
 end.

Добавлено через 1 минуту
Первое путь к файлу был не правильны там не / а \
Второе когда передаём параметр процедуре или функции то он должен соответствовать типу который указан в заголовке процедуры или функции

@ElenaNagina · 03.12.2012, 17:22 **[ТС]**

Спасибо)))) Сейчас буду разбираться)

@ElenaNagina 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 10
	03.12.2012, 17:22 [ТС]	3
	Спасибо)))) Сейчас буду разбираться) 0