Линейный список: картотека абонентов междугородной телефонной станции

@AleksXXX · Регистрация: 07.06.2012

Студворк — интернет-сервис помощи студентам

Здавствуйте помогите с решением!?
На междугородной телефонной станции картотека абонентов,содержащая сведения о телефонах и их владельцах,организована как линейный список.
составить программу, которая:

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

Программа должна обеспечивать диалог с помощью меню и контроль ошибок при вводе.

@ermolay · 13.09.2012, 10:40

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
const
  nmax=100;
type
  phone=record
    name: string;
    nmb : integer;
  end;
var
  a: array[1..nmax] of phone;
  tm1,tm2,i,n,m,rub,cop: integer;
begin
  write('Сколько абонентов в картотеке? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
      begin
      write('Введите фамилию абонента: ');
      readln(name);
      repeat
        write('Введите 6-ти значный номер телефона абонента: ');
        readln(nmb);
      until nmb in[100000..999999];
    end;
  writeln;
  writeln('|-----------------------------------------------|');
  writeln('|             КАРТОТЕКА  АБОНЕНТОВ              |');
  writeln('|-----------------------------------------------|');
  writeln('|     Ф. И. О.                |     Телефон     |');
  writeln('|-----------------------------------------------|');
  for i:=1 to n do
    with a[i] do
    begin
      write('|  ',name,' ':20-length(a[i].name));
      writeln('       | ',nmb:13,'   |');
      writeln('|-----------------------------------------------|');
    end;
  writeln;
  
  write('Введите номер расчитываемого абонента: ');
  repeat
    readln(m);
  until m in [100000..999999];
  write('Введите время разговора (минуты, секунды через пробел): ');
  repeat
    readln(tm1,tm2);
  until (tm1 in [1..59])and(tm2 in [1..59]);
  writeln('Секунда разговора стоит 5 копеек');
  tm1:=tm1*60+tm2;
  rub:=tm1*5 div 100;
  cop:=tm1*5 mod 100;
  for i:=1 to n do
    if a[i].nmb=m then writeln
      ('С абонента ',a[i].name,' взимается плата ',rub,' руб. ',cop,' коп.')
        else writeln('Данный абонент не зарегестрирован в картотеке');
  readln;
end.

@AleksXXX · 13.09.2012, 12:53 **[ТС]**

Спасибо ,буду надеяться что правильно!!!!

@BumerangSP · 14.09.2012, 14:52

ermolay, тип "линейный список" о чем-нибудь говорит?

@ermolay · 14.09.2012, 19:23

BumerangSP, спасибо, уже да..
AleksXXX, сорри, мое сообщение не в тему..

@AleksXXX · 05.10.2012, 13:43 **[ТС]**

значит это не решения?(

@BumerangSP · 06.10.2012, 15:03

Тут в принципе переделать немного нужно.

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
uses crt;
type  PList = ^TList;
  TList = record
    nmb: integer;
    name: string[20];
    next: PList;
  end;
  
procedure addAb(var head: plist; dob: integer;n: string[20]);
var
  cur: plist;
begin
  new(cur);
  cur^.next := head;
  cur^.nmb := dob;
  cur^.name:=n;
  head := cur;
end;
 
var
  tm1,tm2,i,n,m,rub,cop,nmb: integer;
  name: string[20];
  head,f: PList;
  b: boolean;
begin
  b:=false;
  write('Сколько абонентов в картотеке? ');
  readln(n);
  for i:=1 to n do
      begin
      write('Введите фамилию абонента: ');
      readln(name);
      write('Введите 6-ти значный номер телефона абонента: ');
      readln(nmb);
      addab(head,nmb,name);
    end;
  f:=head;
  writeln;
  writeln('|-----------------------------------------------|');
  writeln('|             КАРТОТЕКА  АБОНЕНТОВ              |');
  writeln('|-----------------------------------------------|');
  writeln('|     Ф. И. О.                |     Телефон     |');
  writeln('|-----------------------------------------------|');
  for i:=1 to n do
    begin
      write('|  ',f^.name,' ':20-length(f^.name));
      writeln('       | ',f^.nmb:13,'   |');
      writeln('|-----------------------------------------------|');
   f:=f^.next;
   end;
  writeln;
  
  write('Введите номер расчитываемого абонента: ');
  readln(m);
  write('Введите время разговора (минуты, секунды через пробел): ');
  repeat
    readln(tm1,tm2);
  until (tm1 in [1..59])and(tm2 in [1..59]);
  writeln('Секунда разговора стоит 5 копеек');
  tm1:=tm1*60+tm2;
  rub:=tm1*5 div 100;
  cop:=tm1*5 mod 100;
  for i:=1 to n do
   begin 
    if head^.nmb=m then
     begin
     writeln('С абонента ',head^.name,' взимается плата ',rub,' руб. ',cop,' коп.');
      b:=true;
     end;
    head:=head^.next;
    end;
  if b=false then
   writeln('Данный абонент не зарегистрирован в картотеке');
  readln;
end.

Для универсальности кода убрал проверку на номер. Есть нужно, сделаете сами.

@AleksXXX · 07.10.2012, 21:25 **[ТС]**

Спасибо

Комментарий модератора

правила форума, п.3.6: Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@AleksXXX · 27.11.2012, 18:01 **[ТС]**

решение должно выполнено через другие операторы

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7

	Линейный список: картотека абонентов междугородной телефонной станции 13.09.2012, 08:08. Показов 4729. Ответов 8 Метки нет (Все метки) Здавствуйте помогите с решением!? На междугородной телефонной станции картотека абонентов,содержащая сведения о телефонах и их владельцах,организована как линейный список. составить программу, которая: обеспечивает начальное формирование картотеки в виде линейного списка; производит вывод всей картотеки; водит номер телефона и время разговора; выводит извещение на оплату телефонного разговора. Программа должна обеспечивать диалог с помощью меню и контроль ошибок при вводе. 0

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7
	13.09.2012, 12:53 [ТС]
	Спасибо ,буду надеяться что правильно!!!! 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	14.09.2012, 14:52
	ermolay, тип "линейный список" о чем-нибудь говорит? 1

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	14.09.2012, 19:23
	BumerangSP, спасибо, уже да.. AleksXXX, сорри, мое сообщение не в тему.. 0

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7
	05.10.2012, 13:43 [ТС]
	значит это не решения?( 0

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7
	27.11.2012, 18:01 [ТС]
	решение должно выполнено через другие операторы 0