Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
22
Добавлен:
10.12.2013
Размер:
651 б
Скачать
program NoteBook;
uses crt;
type
dan = record
name: string;
fam: string;
otch: string;
tel: string;
sot: string;
adr: string;
zam:string;
end;
sp=^ps;
ps=record
price: dan;
l:sp;
end;
var
i:integer;
baza:file of dan;
buf:dan;
p,top,t,n:sp;
begin
assign(baza,'c:\§ Ї\book');
rewrite(baza);
for i:=1 to 2 do begin
writeln('Ё¬п');
readln(buf.name);
writeln('д ¬Ё«Ёп');
readln(buf.fam);
writeln('®взҐбвў®');
readln(buf.otch);
writeln('вҐдҐ®­');
readln(buf.tel);
writeln('б®в®ўл©');
readln(buf.sot);
writeln(' ¤аҐбб');
readln(buf.adr);
writeln('§ ¬ҐвЄЁ');
readln(buf.zam);
write(baza,buf);
end;
close(baza);
end.
Соседние файлы в папке Курсовая Pascal Компьютерная фирма