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
| Program Kartoteka;
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
Clrscr;
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('Skolko abonentov v kartoteke? ');
Readln(n);
For i:=1 to n do
Begin
Write('Vvedite familiyu abonenta: ');
Readln(name);
Write('Vvedite hesti znachnuy nomer telefona abonenta: ');
Readln(nmb);
Addab;
End;
f:=head;
Writeln;
writeln('|-----------------------------------------------|');
writeln('| Kartoteka abonentov |');
writeln('|-----------------------------------------------|');
writeln('| F. I. O. | Telefon |');
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('Vvedite nomer raschituvaemogo abonenta: ');
Readln(m);
Write('Vvedite vremya razgovora (Minutu, sekundu cherez probel): ');
Repeat
Readln(tm1,tm2);
Until (tm1 in [1..59])and(tm2 in [1..59]);
Writeln('Sekunda razgovora stoit 5 kopeek');
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('S abonenta ',head^.name,' Vzumaetsya plata ',rub,',cop.');
b:=true;
End;
Head:=head^.next;
End;
If b=false then
Writeln('Dannuy abonent ne zaregestrirovan v kartoteke');
Readln;
End. |
(
