type tz=record
fio: string[10];
tn:integer;
zp:real
end;
var zap:tz;
fout: file of tz;
fl:boolean;
name:string;
begin
repeat
writeLN('imy faila');
readLN(name);
assign (fout,name);
{$i-} reset(fout); {$i+}
if ioresult=0 then
begin
writeLN('fail uge est');
close(fout);
fl:=false
end
else
begin
rewrite(fout);
fl:=true
end
until fl;
writeLN('vvod');
with zap do
repeat
readLN(input,fio,tn,zp);
write(fout,zap);
until eof(input);
close(fout);
reset(fout);
with zap do
repeat
read(fout,zap);
writeLN(fio:15,tn:9,zp:8:2);
until eof (fout);
close(fout)
end.
т.е. я ввожу по задумке буквенную часть, потом 2 цифровые, потом опять буквы и т.д. в итоге формируется табличка со строками:бквы, цифры, цифры.
а вот эта программа:
type tz=record
fio: string[10];
tn:integer;
zp:string;
end;
var zap:tz;
fout: file of tz;
fl:boolean;
name:string;
begin
repeat
writeLN('imy faila');
readLN(name);
assign (fout,name);
{$i-} reset(fout); {$i+}
if ioresult=0 then
begin
writeLN('fail uge est');
close(fout);
fl:=false
end
else
begin
rewrite(fout);
fl:=true
end
until fl;
writeLN('vvod');
with zap do
repeat
readLN(input,tn,zp,fio);
write(fout,zap);
until eof(input);
close(fout);
reset(fout);
with zap do
repeat
read(fout,zap);
writeLN(tn:5,zp:8,fio:15);
until eof (fout);
close(fout)
end.
не работает, т.е. не получается сделать табличку из 1й цифровой и 2х буквеных частей...