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
| Program Tablica_2;
Uses CRT;
type dom=record
surname : string[20];
name : string[15];
age : integer;
nomer : integer;
kol : integer;
end;
VAR
a:array[1..100] of dom;
i, n, fk, k : integer;
f : string;
w : char;
BEGIN
clrscr;
WriteLn('Напишите количество квартир в доме от 1 до 100');
ReadLn(n);
FOR i:=1 TO n DO
Begin
WriteLn;
WriteLn('Заполните квартиру : ',i);
Write('----------Фамилия : ');ReadLn(a[i].surname);
Write('--------------Имя : ');ReadLn(a[i].name);
Write('----------Возраст : ');ReadLn(a[i].age);
Write('---Номер квартиры : ');ReadLn(a[i].nomer);
Write('---Кол-во жильцов : ');ReadLn(a[i].kol);
End;WriteLn;
WriteLn(' Список жителей дома ':42);
WriteLn('|--------------------------------------------------------------------------|');
WriteLn('|','Фамилия ':20,' | ','Имя ':15,' | ','Возраст':9,' | ','Квартира':10,' | ','Жильцы':7,' | ');
WriteLn('+--------------------------------------------------------------------------+');
For i:=1 TO n DO
Begin
WriteLn('|',a[i].surname:20,' | ',a[i].name:15,' | ',a[i].age:9,' | ',a[i].nomer:10,' | ',a[i].kol:7,' |');
WriteLn('|--------------------------------------------------------------------------|');
End;
WriteLn;
REPEAT
WriteLn('Для поиска по фамилии нажмите 1 ');
WriteLn('Для поиска по номеру квартиры нажмите 2 ');
ReadLn(fk);
CASE fk of
1 : Begin
Write('Напишите фамилию : ');ReadLn(f);
WriteLn('|--------------------------------------------------------------------------|');
WriteLn('|','Фамилия ':20,' | ','Имя ':15,' | ','Возраст':9,' | ','Квартира':10,' | ','Жильцы':7,' | ');
WriteLn('+--------------------------------------------------------------------------+');
For i:=1 to n do
If a[i].surname=f then
Begin
WriteLn('|',a[i].surname:20,' | ',a[i].name:15,' | ',a[i].age:9,' | ',a[i].nomer:10,' | ',a[i].kol:7,' |');
WriteLn('|--------------------------------------------------------------------------|');
end;
End;
2 : Begin
Write('Напишите номер квартиры : ');ReadLn(k);
WriteLn('|--------------------------------------------------------------------------|');
WriteLn('|','Фамилия ':20,' | ','Имя ':15,' | ','Возраст':9,' | ','Квартира':10,' | ','Жильцы':7,' | ');
WriteLn('+--------------------------------------------------------------------------+');
For i:=1 to n do
If a[i].nomer=k then
Begin
WriteLn('|',a[i].surname:20,' | ',a[i].name:15,' | ',a[i].age:9,' | ',a[i].nomer:10,' | ',a[i].kol:7,' |');
WriteLn('|--------------------------------------------------------------------------|');
end;
End;
ELSE WriteLn('Попробуйте выбрать ещё раз ! ');
End;
WriteLn('Повторить поиск? Y/y/н - да, остальные клавиши отмена ');
Readln(w);
until not (w in ['Y','y','н']);
END. |
(
Сообщение было отмечено Памирыч как решение
