Меню сайта

Задача №13

Составить программу, выводящую на экран «Телефонный справочник» (Ф. И. О., адрес, номер телефона). Произвести поиск по ФИО – выдать адрес и телефон.


Program zap_13-

Uses Crt-

Const n=10-

Type sprav = record

Fio,adres:string[20]-

tel:integer-

end-

Var a : array[1..n] of sprav-

i :byte-

fio2:string-

BEGIN

ClrScr-

for i:=1 to n do

with a[I] do

begin

Writeln(‘Введите фамилию, имя, отчество ‘)-

Readln(fio)-

Writeln(‘ Введите адрес’)-

Readln(adres)-

Writeln(‘телефон’)-

Readln(tel)-

End-

Writeln(‘Введите ФИО для поиска’)-

Readln(fio2)-

for i:=1 to n do

with a[I] do

if fio=fio2 then writeln (adres,’ ‘,tel)-

Readln-

end.

Категория: Записи | Дата: 24.01.13

Меню раздела
Блок