 
 
исп Телефонная книжка 
цел n                | число телефонов в городе 
лит таб ФИО[1:999]   | ФИО владельца телефона с номером i. 
| Если телефона i нет, то ФИО[i]='' 
 
 
алг учесть установку нового телефона(арг цел  t, лит f) |(А134) 
дано ФИО[t]=''  | t - номер телефона, f - ФИО абонента 
надо | информация о новом телефоне запомнена 
нач 
n := n+1 
ФИО[t] := f 
кон 
 
алг смена номера (арг цел tстар, tнов )                |(А135) 
дано ФИО[tнов]='' | tстар - старый номер, tнов - новый 
надо | соответствующая информация изменена 
нач цел i 
ФИО[tнов] := ФИО[tстар] 
ФИО[tстар]:= '' 
кон 
 
алг справка о номере телефона                          |(А136) 
нач лит f, цел t 
вывод 'Укажите ФИО абонента : '; ввод f 
поиск абонента (f, t) 
если t=0 
то вывод 'Абонент не найден' 
иначе вывод 'Абонент ',f,' имеет телефон ',t 
все 
кон 
 
алг поиск абонента (арг лит f, рез цел t)           |(А137) 
надо | ФИО[t]=f, если значение f встречается в таблице ФИО, 
|      t=0  в противном случае 
нач цел i 
t:=0 
нц для i от 1 до 999 
если ФИО[i]=f то t:=i  все 
кц 
кон 
|  .  .  . 
кон_исп 
 
