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
| program one;
type spisok=record
f: string[20];
data_roj: string[8];
pol: real;
adres: string[50];
ves: real;
rost: real;
rezyl1: real;
rezyl2: real;
srd:real;
end;
var begyn: array [1..5] of spisok;
key:string;
key1,key2,key3:integer;
m:byte;
srd:real;
i,k:byte;
ff:string[3];
re1,re2:real;
begin
i:=0; srd:=0;
repeat
i:=i+1;
writeln ('Введите сведения об участнике');
writeln ('Введите Ф.И.О. ');
readln (begyn[i].f);
with begyn[i] do begin
write ('Введите дату рождения ');
readln (data_roj);
write ('Введите пол (1- Мужской, 2- Женский) ');
readln (pol);
write ('Введите адрес ');
readln (adres);
write ('Введите вес ');
readln (ves);
write ('Введите рост ');
readln (rost);
write ('Введите результат 100 м. ');
readln (rezyl1);
write ('Введите результат 200 м. ');
readln (rezyl2);
srd:=(rezyl1+rezyl2)/2;
writeln ('Средний результат: ',srd);
end;
writeln ('Закончить ввод данных - y');
readln(key);
until key='y';
writeln('______________________________________');
write ('Выберите меню поиска: 1- По среднему результату, 2- По последним 3ём буквам фамилии, 3- По полу');
writeln('______________________________________');
readln (key2);
if key1=1 then
writeln ('Выбор по среднему результату');
writeln ('Введите диапазон результата');
write ('Начало: ');
read (re1);
write (' Конец: ');
read (re2);
for k:=1 to i do
if (begyn[k]. srd>=re1) and (begyn[k].srd<=re2) then
with begyn[k] do begin
writeln(' № бегуна: ',k);
writeln(' ФИО бегуна: ',f);
writeln(' Дата рождения: ',data_roj);
writeln(' Пол бегуна: ',pol);
writeln(' Адрес: ',adres);
writeln(' Вес бегуна: ',ves);
writeln(' Рост бегуна: ',rost);
writeln(' Ср. езультат : ',srd);
writeln('______________________________________');
end;
//-----------------------------------------------------------------------------
{Сделать выборку вот по этому
readln (key2);
if key2=2 then
writeln ('Выбор по фамилии');
write ('Поиск студентов. Введите последние 3 буквы фамилии:');
readln(ff);
for k:=1 to i do
if ff=copy(begyn[k]. then
with begyn[k] do begin
writeln(' № бегуна: ',k);
writeln(' ФИО бегуна: ',f);
writeln(' Дата рождения: ',data_roj);
writeln(' Пол бегуна: ',pol);
writeln(' Адрес: ',adres);
writeln(' Вес бегуна: ',ves);
writeln(' Рост бегуна: ',rost);
writeln(' Ср. езультат : ',srd);
writeln('______________________________________');
end; }
//------------------------------------------------------------------------------
readln (key3);
if key3=3 then
writeln ('Выбор по полу (1- Мужской, 2- Женский)');
readln (m);
for k:=1 to i do
if begyn[k].pol=1 then
with begyn[k] do begin
writeln(' № бегуна: ',k);
writeln(' ФИО бегуна: ',f);
writeln(' Дата рождения: ',data_roj);
writeln(' Пол бегуна: ',pol);
writeln(' Адрес: ',adres);
writeln(' Вес бегуна: ',ves);
writeln(' Рост бегуна: ',rost);
writeln(' Ср. езультат : ',srd);
writeln('______________________________________');
end;
if begyn[k]. pol=2 then
with begyn[k] do begin
writeln(' № бегуна: ',k);
writeln(' ФИО бегуна: ',f);
writeln(' Дата рождения: ',data_roj);
writeln(' Пол бегуна: ',pol);
writeln(' Адрес: ',adres);
writeln(' Вес бегуна: ',ves);
writeln(' Рост бегуна: ',rost);
writeln(' Ср. езультат : ',srd);
writeln('______________________________________');
end;
//-----------------------------------------------------------------------------
end.
end. |