0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 26
1

Телефонный справочник: Получить информацию о владельце телефона, номер которого введен с клавиатуры

02.06.2012, 19:14. Показов 1181. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Имеется телефонный справочник, в котором записаны номер телефона, фамилия владельца и адрес. Составить программу, которая позволяет:
А) вводить список
Б) выводить список отсортированный по фамилии
В) получать информацию о владельце телефона, номер которого введен с клавиатуры
Г) получать номер телефона, если фамилия введена с клавиатуры.

Помогите исправить ошибки

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
uses crt;
type
  TSpravochnik=record
  Surname:string[30];
  Adress:string[40];
  Number:string[15];
end;
 
var
  FZ:file of TSpravochnik;
  Client:TSpravochnik;
  Choise:char;
 
procedure AddRecord;
var
  AddRecordChoise:char;
begin
  seek(FZ, filesize(FZ));
  writeln('Input the information about client!');
  write('Surname = ');
  readln(Client.Surname);
  write('Adress = ');
  readln(Client.Adress);
  write('Number = ');
  readln(Client.Number);
  write(FZ, Client);
  writeln;
  write('Record is added!',#13#10,'Repeat y/n - ');
  readln(AddRecordChoise);
  if (AddRecordChoise='y') or (AddRecordChoise='Y') then
    AddRecord;
end;
 
procedure DisplaySortList;
var
  i,j:integer;
  t:TSpravochnik;
  A:array[1..100] of TSpravochnik;
begin
  seek(FZ,0);
  writeln;
  writeln('List:');
  for i := 1 to FileSize(FZ) do
  begin
    read(FZ,Client);
    A[i]:=Client;
  end;
  for i := 1 to FileSize(FZ) do
    for j := 1 to FileSize(FZ)-1 do
    begin
      if A[j].Surname>A[j+1].Surname then
      begin
        t:=A[j];
        A[j]:=A[j+1];
        A[j+1]:=t;
      end;
    end;
  for i := 1 to FileSize(FZ) do
    writeln(i,') ',a[i].Surname,' ', a[i].Adress, ' ',a[i].Number,';');
  readln;
end;
 
procedure PhoneBySurname;
var
  surname:string;
  i,col:integer;
begin
  col:=0;
  seek(FZ,0);
  writeln('Number by surname!');
  write('Input the surname - ');
  readln(surname);
  writeln('Result');
  for i := 1 to FileSize(FZ) do
  begin
    read(FZ,Client);
    if Client.Surname = surname then
    begin
      inc(col);
      writeln('Number is - ', Client.Number);
    end;
  end;
  if col = 0 then
    writeln('Records with same number does not exist!');
  readln;
end;
 
procedure OwnerOfPhone;
var
  number:string;
  i,col:integer;
begin
  col:=0;
  seek(FZ,0);
  writeln('Information about owner of the phone');
  write('Input the number - ');
  readln(number);
  writeln('Result');
  for i := 1 to FileSize(FZ) do
  begin
    read(FZ,Client);
    if Client.Number = number then
    begin
      inc(col);
      writeln(i,') ',Client.Surname,' ', Client.Adress, ' ',Client.Number,';');
    end;
  end;
  if col = 0 then
    writeln('Records with same number does not exist!');
  readln;
end;
 
begin
  {$I-}
  Assign(FZ,'C:\Records.dat');
  reset(FZ);
  {$I+}
  if IOResult<>0 then
    rewrite(FZ);
  if FileSize(FZ)=0 then
  begin
    writeln('Number of records in file is 0!',#13#10,'You need to add records.');
    AddRecord;
  end;
  // небольшое меню
  while choise<>'5' do
  begin
    writeln;
    writeln('Please, choise the item to work with the reference book:');
    writeln('    1) add new record');
    writeln('    2) display a list sorted by surname');
    writeln('    3) display information about the owner of the phone');
    writeln('    4) display number of phone by surname');
    writeln('    5) exit');
    write('Your choise is - ');
    readln(Choise);
    case Choise of
      '1': AddRecord;
      '2': DisplaySortList;
      '3': OwnerOfPhone;
      '4': PhoneBySurname;
    end;
  end;
  close(FZ);
  writeln('Press any key for exit!');
  readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2012, 19:14
Ответы с готовыми решениями:

Вывести на экран информации о человеке, номер телефона которого введен с клавиатуры
Программа должна :Написать программу, выполняющую следующие действия: • ввод с клавиатуры данных в...

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

Вывод на консоль информации о человеке, номер телефона которого введён с консоли
Разработать структуру с именем NOTE, содержащую поля: • Фамилия, имя; • Номер телефона; • Дата...

Вывести элемент списка номер которого введен с клавиатуры
Вывести элемент списка номер которого введен с клавиатуры

1
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 26
07.06.2012, 01:48  [ТС] 2
Ребята, пожалуйста помогите кто-нибудь..
0
07.06.2012, 01:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2012, 01:48
Помогаю со студенческими работами здесь

Структуры. Очередь (вывести на экран фамилию человека,где номер телефона введен с клавиатуры)
Помогите пожалуйста добавить к данной задаче -вывести на экран фамилию человека,где номер телефона...

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

Телефонный справочник: добавление/удаление/поиск номера телефона
Есть вот такое задание: Написать программу «расширенный телефонный справочник». Создайте массив...

Создайте файл 'телефонный справочник'. По номеру телефона найдите ФИО
Файлы. Создайте файл телефонный справочник. По номеру телефона найдите ФИО и адрес владельца....

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

Получить информацию о служащем, фамилия которого введена с клавиатуры
Имеется список служащих, в котором указаны фамилия и инициалы, занимаемая должность, год...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru