Консультация № 138837
31.05.2008, 22:52
0.00 руб.
0 1 1
В Записной книжке записаны фамилии и номера телефонов 30 человек.
Определить есть ли в записной книжке:
-телефон некоторого человека и если есть то вывести этот номер телефона.
-Человек с заданым номером телефона и если есть то вывести его фамилию.

Обсуждение

Неизвестный
31.05.2008, 23:24
общий
это ответ
Здравствуйте, Гноць,Руслан,Валериевич!
Для решения сей задачи создаём свой тип запись и "пляшем" от него.
Текст решения с пояснениями в приложении.

Приложение:
const n = 5; {количество записей в записной книжке}type zzz = record {наш тип} name: string[20]; {имя контакта} phone: string[10]; {телефон} end;var ms: array [1..n] of zzz; {массив контактов} i: integer; {переменная-счётчик} s: string[20]; {вспомогательная переменная}begin for i:=1 to n do {заполняем записную книжку} begin readln(ms[i].name); {считываем имя} readln(ms[i].phone); {номер телефона} end; writeln; write(‘Search by name. Please, type name: ‘); readln(s); {считываем имя для поиска} for i:=1 to n do if ms[i].name = s then {поиск по имени} writeln(ms[i].name, ‘ -> ‘, ms[i].phone); writeln; write(‘Search by phone. Please, type phone: ‘); readln(s); {считываем номер телефона для поиска} for i:=1 to n do if ms[i].phone = s then {поиск по номеру телефона} writeln(ms[i].phone, ‘ -> ‘, ms[i].name); writeln(‘Search complete!‘); readln;end.
Форма ответа