Вариант7. В виде массива записей представлена информация об абонентах различных АТС.

Вариант7. В виде массива записей представлена информация об абонентах различных АТС.

Форма документа
Телефонная книга
	ФИО абонента	Домашний адрес
№ телефона	Фамилия	Имя	Отчество	Улица	№ дома	№ квартиры

Написать программу, которая выполняет следующие действия:

- по номеру телефона выводит ФИО и адрес абонента;

- выводит на экран номера и фамилии всех абонентов, проживающих в одном доме;

Program ZAPISI;

Uses crt;

Type

tel_book=record

nom_tel:real;

fio:record

fam:string[10];

im:string[10];

otch:string[15];

end;

home_adr:record

ul:string[15];

nom_dom:real;

nom_kvart:real;

end;

end;

Var anketa:array [1..100] of tel_book;

i,k,m,j:integer;

Begin

clrscr;

writeln('Введите количество необходимых записей');

readln(m);

for i:=1 to m do

with anketa[i] do

begin

writeln('Введите номер абонента');

readln(nom_tel);

writeln('Введите фамилию абонента');

readln(fio.fam);

writeln('Введите имя абонента');

readln(fio.im);

writeln('Введите отчество абонента');

readln(fio.otch);

writeln('Введите улицу абонента');

readln(home_adr.ul);

writeln('Введите номер дома абонента');

readln(home_adr.nom_dom);

writeln('Введите номер квартиры абонента');

readln(home_adr.nom_kvart);

end;

writeln('Ввод закончен');

writeln('__________________________________________________________');writeln('| Телефонная книга | '); writeln('|__________________________________________________________|')writeln('| | ФИО абонента | Домашний адрес |'); writeln('|______|____________________________|______________________|'); writeln('|№тел. | Фамилия | Имя|Отчество | Улица |№дома|№кв.|'); writeln('|______|___________|______|__________|____________|______|___­­_|’);

for i:=1 to m do

begin

with anketa[i] do

writeln('|',nom_tel:0:0,' |',fio.fam:11,'|',fio.im:6,'|',fio.otch:9,'|',

home_adr.ul:14,'|',home_adr.nom_dom:0:0,'

|',home_adr.nom_kvart:0:0,' |');

end;

writeln('|______|___________|______|_________|______________|______|____|');

readln;

writeln('Введите номер необходимого дома');

readln(k);

for i:=1 to m do

if anketa[i].home_adr.nom_dom=k

then

begin

writeln('фамилия:',anketa[i].fio.fam);

writeln('номер телефона:',anketa[i].nom_tel:0:0);

end;

writeln('Введите номер телефона абонента');

readln(j);

for i:=1 to m do

if anketa[i].nom_tel=j

then

with anketa[i] do

begin

writeln('фамилия:',fio.fam);

writeln('имя:',fio.im);

writeln('отчество:',fio.otch);

writeln('улица:',home_adr.ul);

writeln('номер дома:',home_adr.nom_dom:0:0);

writeln('номер квартиры:',home_adr.nom_kvart:0:0);

end;

readln;

End.

Дата добавления: 2015-09-29