vasssiliy
Новичок
|
     
program semestr1;
label 10;
type kol_vo=record
abon:integer;
stud_zal:integer;
nauk_zal:integer;
end;
spisok=record
shifr:integer;
nazv:string;
priznak:string;
author:string;
god_izd:integer;
kol:kol_vo;
end;
f=file of spisok;
var
b:f;
i, n:integer{количество компонент в файле};
f1:file of char;
a:char; {компоненты логического файла}
procedure sozd(var b:f);
var i:integer; j:integer;
nn:spisok;
begin
assign(b,'c:\Pabcwork\база1.txt');
rewrite(b);
j:=1;
while j<>0 do
begin
write ('Введите шифр издания' );
readln (nn.shifr);
write ('Введите название издания');
readln(nn.nazv);
write ('введите книга это или журнал ');
readln (nn.priznak);
write ('назовите автора');
readln (nn.author);
write ('введите год издания');
readln (nn.god_izd);
write ('количество книг у абонентов');
readln (nn.kol.abon);
write ('количество книг в читальном зале');
readln (nn.kol.stud_zal);
write ('количество книг в научном зале');
readln (nn.kol.nauk_zal);
writeln ('Если всё,-- тогда запиши 0');
readln (j);
end;
close (b);
end;
procedure vivod (var f1:f);
var i:integer;
nn:spisok;
begin
reset (b);
writeln ('|шифр издания|-':14,'|название издания|-':19,'|признак|-':9,'|автор|-':15,'|год издания|-':8,'|abon|-':8,'|stud|-':8,'|nauk|':8);
while not eof(b) do
begin
read (b,nn);
write ('|',nn.shifr:14,'|');
write ('|',nn.nazv:19,'|');
write ('|',nn.priznak:9,'|');
write ('|',nn.author:15,'|');
write ('|',nn.god_izd:8,'|');
write ('|',nn.kol.abon:8,'|');
write ('|',nn.kol.stud_zal:8,'|'); {» Ошибка ввода/вывода 2: Не удается найти указанный файл (ctvtcnhjdfz.pas, строка 56) }
write ('|',nn.kol.nauk_zal:8,'|');
writeln;
writeln('-----------------------------------------------------------------------------------------------------------------------------------------')
end;
close (b);
end; begin 10:
assign(b,'baza1.dat');
writeln(' меню ');
writeln('1:создание БД');
writeln('2:вывод БД');
readln (n);
case n of
1:sozd(b);
2:vivod(b);
5:exit;
end; goto 10;
readln;
end.
|
Форум
запись
