Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
3 / 4 / 0
Регистрация: 18.11.2010
Сообщений: 126
1

Поиск номера телефона по введенной фамилии

30.06.2011, 09:59. Просмотров 3015. Ответов 1
Метки нет (Все метки)


строки записной книжки содержат фамилии и номера телефонов. Организовывать поиск номера телефона по введеннойй фамилии (в случае отствия такой фамилии вывести соответствующий ответ)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.06.2011, 09:59
Ответы с готовыми решениями:

Организуйте поиск номера телефона по первым двум буквам фамилии.
Файл содержит фамилии и номера телефонов, организуйте поиск номера телефона по первым двум буквам...

Создание файла. Организуйте вывод на экран монитора номер телефона по введенной с клавиатуры фамилии
Создайте файл содержащий следующие поля 1)Номер 2)Фамилию 3)Телефон Организуйте вывод на экран...

Найти номер телефона сотрудника по его фамилии
Дан файл Т,который содержит номер телефонов сотрудников учреждения:указываются фамилия,инициалы и...

Для заданной фамилии вывести номер его телефона
Дан список абонентов с номерами телефонов. Для заданной фамилии вывести номер его телефона. Если...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
30.06.2011, 11:38 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const nmax=50;
type knizka=record
            fam:string[20];
            tel:string[11];
            end;
var ab:array[1..nmax] of knizka;
    n,i:byte;
    fm:string[20];
    f:boolean;
begin
repeat
write('Количество записей до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите записи в книжку:');
for i:=1 to n do
 begin
  writeln('Запись ',i);
  write('- фамилия: ');readln(ab[i].fam);
  write('- номер телефона: ');readln(ab[i].tel);
 end;
writeln;
write('Введите фамилию для поиска: ');
readln(fm);
f:=false;
i:=1;
while(i<=n)and not f do
if ab[i].fam=fm then
 begin
  f:=true;
  write('Номер телефона ',ab[i].tel)
 end
else i:=i+1;
if not f then write('Такого абонента нет');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2011, 11:38

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Найти номер телефона сотрудника по его фамилии и инициалам
Сформировать файл Tel, вводя с клавиатуры следующие сведения о сотрудниках – фамилию, инициалы и...

Получить: номер телефона сотрудника по его фамилии и инициалам
В файл Telephone записать номера телефонов сотруднико учреждения указать фамилии , инициалы,...

Найти номер телефона сотрудника по его фамилии и инициалам
Дан массив записей T;который содержит номера телефонов сотрудников учреждения; указывается фамилия...

"Секретарь". Поиск номера телефона по введенной фамилии
type knizka=record fam:string; tel:string; end; var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.