Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 23.03.2012
Сообщений: 34
1

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

17.06.2012, 13:31. Просмотров 1684. Ответов 1
Метки нет (Все метки)


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

Задача на линейный и бинарный поиск фамилии студента по первым буквам и целиком и по части телефонного номера
Организовать массив типа Студент со следующими полями: фамилия, имя, год рождения, номер телефона....

Список студентов рассортировать в алфавитном порядке по двум первым буквам фамилии
Здравствуйте все))) помогите решить 'одну задачку)) Список студентов (фамилия, имя, отчество)...

Удаление фамилии из списка по первым двум буквам (или по первой и последней букве)
Рерят, мне нужно чтобы третья кнопка удаляла фамилию и имя из списка по первым двум или по первой и...

Поиск имен в Dictionary по первым двум буквам
Задание такое: "В отпуске Вася не тратил время зря, а заводил новые знакомства. Он знакомился с...

__________________
Помогаю в написании студенческих работ здесь.
1
Почетный модератор
7955 / 3926 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
17.06.2012, 15:09 2
Лучший ответ Сообщение было отмечено Natasha как решение

Решение

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
uses crt;
 
type telephone = record
     fam:  string[10];
     tel:  string[9];
     end;
 
var t: telephone;
    f: file of telephone;
    i:byte;
    s: string[2];
 
begin
assign(f,'D:\tel.dat');
write('Введите 2 первые буквы фамилии для поиска: '); readln(s);
reset(f);
i:=0;
while not(eof(f)) do
      begin
      read(f,t);
      with t do
           if copy(fam,1,2)=s then
              begin
              writeln(fam:10,tel:10);
              inc(i);
              end;
      end;
if i=0 then writeln('Записей, соответствующих условию, не найдено');
close(f);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2012, 15:09

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

Поиск номера телефона по введенной фамилии
строки записной книжки содержат фамилии и номера телефонов. Организовывать поиск номера телефона по...

Поиск по первым трем цифрам номера телефона
Помогите пожалуйста доделать поиск по первым трем цифрам номера телефона. Вот кодclass zapis {...

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

Массив: Написать программу линейного поиска записи по первым 3 буквам фамилии.
Добрый вечер! Помогите плиз написать программу. Дан текстовый файл, содержащий список из номеров...


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

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

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