Как работать с типизированными файлами?

@CommieRu · Регистрация: 12.01.2014

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

Я написал массив записей. Теперь надо написать типизированный файл записей, но не знаю как.
Вот массив записей(delphi):

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax=30;
type tMag=record
Name:string[15];
Year:1900..2014;
Number:1..1000;
TimesAYear:1..52;
end;
tMag1=array[1..nmax]of tMag;
 
tmas=array[1..nmax]of real;
 
var
i,n:byte;
permag:tMag1;
 
function Rus(S: String): String;
var
i: byte;
begin
Result := '';
for i := 1 to Length(S) do
case S[i] of
'А'..'п': Result := Result + Chr(Ord(S[i]) - 64);
'р'..'я': Result := Result + Chr(Ord(S[i]) - 16);
'Ё': Result := Result + Chr(240);
'ё': Result := Result + Chr(241);
else
Result := Result + S[i];
end;
end;
procedure obrdan (var x:tMag1;  nx:integer; out y:tMag1);
var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту
for ix:=1 to n-1 do
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do
     writeln(permag[ix].Name,' ':3);
     writeln;
end;
 
begin
writeln(rus('введите число журналов '));
readln(n);
writeln(rus('запись информации о журналах '));
writeln;
for i:=1 to n do
begin
//Ввод данных
writeln(rus('введите название '));
readln(permag[i].Name);
writeln(rus('введите год выпуска '));
readln(permag[i].Year);
writeln(rus('Номер журнала '));
readln(permag[i].Number);
writeln(rus('Периодичность '));
readln(permag[i].TimesAYear);
end;
writeln;
write(rus('Название Год выпуска Номер Периодичность'));
writeln;
for i:=1 to n do
begin
write(' ',permag[i].Name,' ':4,permag[i].Year,' ':8, permag[i].Number, ' ':7,permag[i].TimesAYear);
writeln;
end ;
obrdan(permag, n, permag);
readln;
end.

Мыслей никаких нет, потому что не знаю. А сдать эту работу надо(

@edukra · 12.01.2014, 21:06

А чем var f:file of tmag; не устраивает

@CommieRu · 12.01.2014, 21:15 **[ТС]**

я не разбираюсь просто в типизированном файле. ни reset'ы, ни rewrite'ы, ни assign'ы.. не понимаю. В этом проблема(

У меня есть почти вся прога. Только не могу написать вот эту часть как нужно для типизированного файла:

Pascal

procedure obrdan (var x:tMag1;  nx:integer; out y:tMag1);
var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do
     writeln(permag[ix].Name,' ':3);
     writeln;
end;

@edukra · 12.01.2014, 21:26

это пример записи

Pascal

tmagfile= file of tmag; //описание типа файла
var f:tmagfile;  //описание переменной типизированного файла
 
begin
  AssignFile(f,'C:\myfile'); //связать переменную с файлом на диске
  Rewrite(f);// создать файл
  for i:=1 to nmax do  write(f,tmag1[i]); //записать массив в файл
  CloseFile(f); //закрыть файл
end;

@CommieRu · 12.01.2014, 21:32 **[ТС]**

Я написал часть программы

Pascal

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax=30;
type tMag=record
Name:string[15];
Year:1900..2014;
Number:1..1000;
TimesAYear:1..52;
end;
fz=file of tMag;
var
i,n:byte;
f, f1,f2,f3:fz;
 
function Rus(S: String): String;
var
i: byte;
begin
Result := '';
for i := 1 to Length(S) do
case S[i] of
'А'..'п': Result := Result + Chr(Ord(S[i]) - 64);
'р'..'я': Result := Result + Chr(Ord(S[i]) - 16);
'Ё': Result := Result + Chr(240);
'ё': Result := Result + Chr(241);
else
Result := Result + S[i];
end;
end;
procedure vvod(nx:integer; out fx:fz);
var i:integer; tmagx:tmag;
begin
 
for i:=1 to nx do
begin
writeln(rus('Название'));
readln(tmagx.Name );
writeln(rus('Год'));
readln(tmagx.Year );
writeln(rus('Номер'));
readln(tmagx.Number );
writeln(rus('Периодичность'));
readln(tmagx.TimesAYear );
write(fx,tmagx);
writeln;
end;
end;
 
procedure vyvod( var nx:byte; var fx:fz);
var tmagx:tmag;
begin
writeln(rus('Название Год Номер Периодичность')) ;
writeln;
 
while not EOF(fx) do
begin
read(fx,tmagx);
writeln(tmagx.Name:6,' ':3,tmagx.Year:6,' ':3,tmagx.Number:4,' ':3,tmagx.TimesAYear:7);
end;
writeln;
end;
 
 
 
 begin
writeln(rus('введите число журналов'));
readln(n);
writeln;
 
assignfile(f,'f.dat');
rewrite(f);
vvod(n,f);
writeln;
 
reset(f);
vyvod(n,f);
writeln;
 
readln;
 
end.

А вот эту часть не могу записать

Pascal

procedure obrdan (var x:tMag1;  nx:integer; out y:tMag1);
var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do
     writeln(permag[ix].Name,' ':3);
     writeln;
end;

Именно эту часть можете помочь написать? Я просто суть не знаю((

@edukra · 12.01.2014, 21:46

это пример чтения

Pascal

begin
  AssignFile(f,'C:\myfile'); //связать переменную с файлом на диске
  Reset(f);// открыть файл (должен существовать на диске)
  i:=1;
  while (not eof(f)) and (i<=nmax) do begin //пока не прочитан весь файл и не переполнен массив
    read(f,tmag1[i]); //прочитать элемент массива из файла
    inc(i);
  end;  
  CloseFile(f); //закрыть файл
end;

Добавлено через 12 минут
И что именно не получается?

@CommieRu · 12.01.2014, 21:49 **[ТС]**

Я просто не разбираюсь. Надо, чтобы использовалась процедура, которую я написал выше. А как это реализовать, не понимаю. Не знаю как и где использовать rewrite, reset, assign и прочее. Не понимаю.

@edukra · 12.01.2014, 22:09

после окончания записи в файл его нужно закрыть. В 79 строку нужно вставить CloseFile(f); после окончания чтения - тоже (83 строка) . А что, нужно во втором куске кода?

@CommieRu · 12.01.2014, 22:17 **[ТС]**

Просто написать его. После процедуры вывода написать процедуру обработки(procedure obrdan). Не получается.

@edukra · 12.01.2014, 22:30

Сначала AssignFile, чтобы связать переменну с именем файла. Если файл всего один - то можно сделать 1 раз в начале программы.
Потом - в зависимости от того, что нужно. Если файл уже существует на диске и его нужно прочитать или добавить данные - нужно использовать reset, если файл не существует или если он существует, но его нужно стереть и записать заново с другими данными - нужно использовать rewrite . После окончания работы с файлом его нужно закрыть CloseFile .

Добавлено через 6 минут
Так в процедуре obrdan вообще нет работы с файлами, что в ней не получается?

@CommieRu · 12.01.2014, 22:32 **[ТС]**

Так надо сделать, чтобы была. Из массива записей сделать файл записей. В этом и суть

@edukra · 12.01.2014, 22:39

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

@CommieRu · 12.01.2014, 22:42 **[ТС]**

Массив записей и файл записей - две разные, независимые программы. Просто на основе массива записей сделать файл записей. И осталось только дописать ту часть, где procedure obrdan.

@edukra · 12.01.2014, 22:59

в начале процедуры или до вызова процедуры нужно выполнить

Pascal

1 2	AssignFile(f,'f.dat'); Rewrite(f);

Вот строки 40 и 41 в процедуре

Pascal

1 2	for ix:=1 to n do writeln(permag[ix].Name,' ':3);

их нужно отредактировать

Pascal

 for ix:=1 to n do begin
     writeln(permag[ix].Name,' ':3);
     write(f,permag[ix])
     end;

после цикла или после вызова процедуры нужно выполнить CloseFile(f);

@CommieRu · 12.01.2014, 23:41 **[ТС]**

Cпасибо, сейчас попробую

Добавлено через 29 минут

Pascal

procedure vvod(nx:integer; out fx:fz);
var i:integer; tmagx:tmag;
begin
 
for i:=1 to nx do
begin
writeln(rus('Название'));
readln(tmagx.Name );
writeln(rus('Год'));
readln(tmagx.Year );
writeln(rus('Номер'));
readln(tmagx.Number );
writeln(rus('Периодичность'));
readln(tmagx.TimesAYear );
write(fx,tmagx);
writeln;
end;
end;
 
procedure vyvod( var nx:byte; var fx:fz);
var tmagx:tmag;
begin
writeln(rus('Название Год Номер Периодичность')) ;
writeln;
 
while not EOF(fx) do
begin
read(fx,tmagx);
writeln(tmagx.Name:6,' ':3,tmagx.Year:6,' ':3,tmagx.Number:4,' ':3,tmagx.TimesAYear:7);
end;
writeln;
end;
 
procedure obrdan(var x:fz; n:integer; out y:fz);
 var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
AssignFile(f,'f.dat');
  Rewrite(f);
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do begin
     writeln(permag[ix].Name,' ':3);
     write(f,permag[ix])
     end;
     writeln;
end;

В процедуре obrdan везде, где permag, выдаёт ошибку Class do not have a default property

@edukra · 13.01.2014, 00:13

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

@CommieRu · 13.01.2014, 00:28 **[ТС]**

Cпасибо)
А не подскажешь, как ввод и вывод тоже через процедуры сделать?

@edukra · 13.01.2014, 00:48

Перетянул ввод и вывод в процедуры

@CommieRu · 13.01.2014, 11:15 **[ТС]**

Огромное Спасибо)
От души)

Добавлено через 10 часов 17 минут
А можешь подсказать, как и ввод/вывод сделать так, чтобы они тоже к файлу обращались?
Я переписал немного код для этого, но выдаёт ошибки, не могу исправить

Pascal

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax=30;
type tMag=record
Name:string[15];
Year:1900..2014;
Number:1..1000;
TimesAYear:1..52;
end;
fz=file of tMag;
var
i,n:byte;
f, f1,f2,f3:fz;
permag:tMag;
function Rus(S: String): String;
var
i: byte;
begin
Result := '';
for i := 1 to Length(S) do
case S[i] of
'А'..'п': Result := Result + Chr(Ord(S[i]) - 64);
'р'..'я': Result := Result + Chr(Ord(S[i]) - 16);
'Ё': Result := Result + Chr(240);
'ё': Result := Result + Chr(241);
else
Result := Result + S[i];
end;
end;
procedure vvod(nx:integer; out fx:fz);
var i:integer; tmagx:tmag;
begin
 
for i:=1 to nx do
begin
writeln(rus('Название'));
readln(tmagx.Name );
writeln(rus('Год'));
readln(tmagx.Year );
writeln(rus('Номер'));
readln(tmagx.Number );
writeln(rus('Периодичность'));
readln(tmagx.TimesAYear );
write(fx,tmagx);
writeln;
end;
end;
 
procedure vyvod( var nx:byte; var fx:fz);
var tmagx:tmag;
begin
writeln(rus('Название Год Номер Периодичность')) ;
writeln;
 
while not EOF(fx) do
begin
read(fx,tmagx);
writeln(tmagx.Name:6,' ':3,tmagx.Year:6,' ':3,tmagx.Number:4,' ':3,tmagx.TimesAYear:7);
end;
writeln;
end;
 
procedure obrdan(var x:fz; n:integer; out y:fz);
 var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
AssignFile(f,'f.dat');
  Rewrite(f);
max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
while not EOF(f) do
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
reset(f);
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do begin
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do begin
     writeln(permag[ix].Name,' ':3);
     write(f,permag[ix])
     end;
     writeln;
end;
 begin
writeln(rus('введите число журналов'));
readln(n);
 writeln;
assignfile(f,'f.dat');
rewrite(f);
vvod(n,f);
writeln;
 
reset(f);
vyvod(n,f);
writeln;
 
reset(f);
obrdan(f,n,g);
writeln;
readln;
end

@edukra · 13.01.2014, 12:09

Pascal

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const nmax=30;
type tMag=record
Name:string[15];
Year:1900..2014;
Number:1..1000;
TimesAYear:1..52;
end;
fz=file of tMag;
var
i,n:byte;
f,g, f1,f2,f3:fz;
permag:array[1..nmax] of tMag;
function Rus(S: String): String;
var
i: byte;
begin
Result := '';
for i := 1 to Length(S) do
case S[i] of
'А'..'п': Result := Result + Chr(Ord(S[i]) - 64);
'р'..'я': Result := Result + Chr(Ord(S[i]) - 16);
'Ё': Result := Result + Chr(240);
'ё': Result := Result + Chr(241);
else
Result := Result + S[i];
end;
end;
procedure vvod(nx:integer; out fx:fz);
var i:integer; tmagx:tmag;
begin
 
for i:=1 to nx do
begin
writeln(rus('Название'));
readln(tmagx.Name );
writeln(rus('Год'));
readln(tmagx.Year );
writeln(rus('Номер'));
readln(tmagx.Number );
writeln(rus('Периодичность'));
readln(tmagx.TimesAYear );
write(fx,tmagx);
writeln;
end;
end;
 
procedure vyvod( var nx:byte; var fx:fz);
var tmagx:tmag;
begin
writeln(rus('Название Год Номер Периодичность')) ;
writeln;
 
while not EOF(fx) do
begin
read(fx,tmagx);
writeln(tmagx.Name:6,' ':3,tmagx.Year:6,' ':3,tmagx.Number:4,' ':3,tmagx.TimesAYear:7);
end;
writeln;
end;
 
procedure obrdan(var x:fz; n:integer; out y:fz);
 var
max, imax, ix, jx:integer;
l:1..52;
buf:string[15];
 
begin
//наибольшая переодичность
//считывание данных из файла
  AssignFile(f,'f.dat');
  Reset(f);
  for ix:=1 to n do begin
    read(f,permag[ix]);
  end;
  CloseFile(f);
//наибольшая переодичность
  max:=permag[1].TimesAYear; imax:=1 ;
for ix := 2 to n do
   begin
    if permag[ix].TimesAYear > max then begin max:=permag[ix].TimesAYear; imax:=ix  ;
   end;
   end;
writeln(rus('Журнал с наибольшей периодичностью'));
writeln;
writeln(permag[imax].Name, ' ':2, '(',max, ' ':1, rus('раз(а) в год)')) ;
//заданная переодичность
writeln(rus('Введите периодичность'));
readln(l);
writeln;
writeln(rus('Журналы с заданной периодичностью'));
writeln;
reset(f);
for ix := 1 to n do
  begin
    if permag[ix].TimesAYear=l then
    writeln(permag[ix].Name);
  end;
//сортировка по алфавиту(пузырек)
for ix:=1 to n-1 do begin
for jx:=1 to n-1 do
if permag[jx+1].Name<permag[jx].Name then
      begin
        buf:=permag[jx].Name;
        permag[jx].Name:=permag[jx+1].Name;
        permag[jx+1].Name:=buf;
      end;
writeln;
end;
//вывод отсортированного массива на экран и в файл
Rewrite(f);
writeln(rus('Список журналов,отсортированный по алфавиту'));
   for ix:=1 to n do begin
     writeln(permag[ix].Name,' ':3);
     write(f,permag[ix])
     end;
     writeln;
CloseFile(f);
end;
 begin
writeln(rus('введите число журналов'));
readln(n);
 writeln;
assignfile(f,'f.dat');
rewrite(f);
vvod(n,f);
writeln;
CloseFile(f);
reset(f);
vyvod(n,f);
CloseFile(f);
writeln;
 
obrdan(f,n,g);
writeln;
readln;
end.

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	12.01.2014, 21:06	2
	А чем var f:file of tmag; не устраивает 0

@CommieRu 0 / 0 / 0 Регистрация: 12.01.2014 Сообщений: 13
	12.01.2014, 21:49 [ТС]	7
	Я просто не разбираюсь. Надо, чтобы использовалась процедура, которую я написал выше. А как это реализовать, не понимаю. Не знаю как и где использовать rewrite, reset, assign и прочее. Не понимаю. 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	12.01.2014, 22:09	8
	после окончания записи в файл его нужно закрыть. В 79 строку нужно вставить CloseFile(f); после окончания чтения - тоже (83 строка) . А что, нужно во втором куске кода? 0

@CommieRu 0 / 0 / 0 Регистрация: 12.01.2014 Сообщений: 13
	12.01.2014, 22:17 [ТС]	9
	Просто написать его. После процедуры вывода написать процедуру обработки(procedure obrdan). Не получается. 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	12.01.2014, 22:30	10
	Сначала AssignFile, чтобы связать переменну с именем файла. Если файл всего один - то можно сделать 1 раз в начале программы. Потом - в зависимости от того, что нужно. Если файл уже существует на диске и его нужно прочитать или добавить данные - нужно использовать reset, если файл не существует или если он существует, но его нужно стереть и записать заново с другими данными - нужно использовать rewrite . После окончания работы с файлом его нужно закрыть CloseFile . Добавлено через 6 минут Так в процедуре obrdan вообще нет работы с файлами, что в ней не получается? 1

@CommieRu 0 / 0 / 0 Регистрация: 12.01.2014 Сообщений: 13
	12.01.2014, 22:32 [ТС]	11
	Так надо сделать, чтобы была. Из массива записей сделать файл записей. В этом и суть 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	12.01.2014, 22:39	12
	Так я выше писал код, который в цикле записи из массива пишет в файл. Или нужно, чтобы весь массив записывался в файл одной командой записи? 0

@CommieRu 0 / 0 / 0 Регистрация: 12.01.2014 Сообщений: 13
	12.01.2014, 22:42 [ТС]	13
	Массив записей и файл записей - две разные, независимые программы. Просто на основе массива записей сделать файл записей. И осталось только дописать ту часть, где procedure obrdan. 0

@CommieRu 0 / 0 / 0 Регистрация: 12.01.2014 Сообщений: 13
	13.01.2014, 00:28 [ТС]	17
	Cпасибо) А не подскажешь, как ввод и вывод тоже через процедуры сделать? 0