есть 2 проги 1 записывает в файл 2-я читает
1 вроде пашет...
uses crt;
const
n = 7;
type
TRec = record
pyhkt,tip:string [31];
nomer:integer; {o4enka}
end;
TBase = array [1..n] of TRec; {6a3a dannix}
TFile = file of TBase; {Fail}
var
b:TBase;
F:TFile;
i,j : byte;
begin
clrscr;
assign(f,'TEST.txt');
rewrite(f); {otkriv fail dlja zapisi}
writeln('BBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
write('Homep PeuCa : '); readln(nomer);
write('Tu/7 CaMoJIeTa : '); readln(tip);
end;
writeln;
write(f, b); {3apis 6azzi v fail}
end.
program AEROFLOT;
uses crt;
const
n = 7;
type
TRec = record
pyhkt,tip:string [31];
nomer:integer;
end;
TBase = array [1..n] of TRec; {6a3a dannix}
TFile = file of TBase; {Fail}
var
b:TBase;
F:TFile;
i,j : byte;
begin
clrscr;
assign(f,'TEST.txt');
reset(f); {otkrit fail dlja zapisi}
writeln('BBbIBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
writeln('/7yHkT : ',i);
writeln('Tu/7 : ',i);
writeln('Homep PeuCa : ',i);
writeln;
end;
writeln;
close(f);
readln;
end.
http://forum.pascal.net.ru/index.php?showtopic=3584 что ли.
Для начала ты не правильно заносишь в файл свою инфу. У тебя туда только последняя запись заносится из 7.
А там где выводишь на экран - так там вообще нету вывода
for i := 1 to n do
writeln('/7yHkT : ',i);
writeln('Tu/7 : ',i);
writeln('Homep PeuCa : ',i);
writeln;
volvo файл запалняеться причем весь...а вот читаться нехочет
for i := 1 to n do
writeln('/7yHkT : ',pyhkt);
writeln('Tu/7 : ',tip);
writeln('Homep PeuCa : ',nomer);
writeln;
все уже сделал....
если кому надо то вот...
1-я запись в файл
program AEROFLOT;
uses crt;
const
n = 7;
type
TRec = record
pyhkt,tip:string [31]; {imja styd}
nomer:integer; {o4enka}
end;
TBase = array [1..n] of TRec; {6a3a dannix}
TFile = file of TBase; {Fail}
var
b:TBase;
F:TFile;
i,j : byte;
begin
clrscr;
assign(f,'TEST.txt');
rewrite(f); {otkriv fail dlja zapisi}
writeln('BBog 6a3bI gaHHbIX ');
for i := 1 to n do
with b[i] do begin
write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
write('Homep PeuCa : '); readln(nomer);
write('Tu/7 CaMoJIeTa : '); readln(tip);
end;
writeln;
write(f, b); {3apis 6azzi v fail}
close(f);
end.
uses crt;
const
n = 5;
type
TRec = record
pyhkt,tip : string [31]; {imja styd}
nomer : integer; {o4enka}
end;
TBase = array [1..n] of TRec; {6a3a dannix}
TFile = file of TBase; {Fail}
procedure Print(var b : TBase; var f : TFile); {vvivod infi iz bazi}
var
i,j : byte;
tips:string;
begin
read(f, b); {4tenie iz faila}
write('BBeguTe Tu/7 CaMoJIeTa : ');
readln(tips);
for i := 1 to n do
with b[i] do begin
if tips=tip then begin
writeln('Ha3BaHuE /7yHKTa Ha3Ha4eHu9| PeuCa : ',pyhkt);
writeln('HoMeP PeuCa : ', nomer);
end;
end;
end;
var
base : TBase;
baseFile : TFile;
begin
clrscr;
assign(baseFile, 'TEST.txt');
reset(baseFile); {Otkrivaem fail glja 4tenija}
Print(base, baseFile); {Bbubog infi iz faila}
close(baseFile); {3akrit fail}
readln;
end.