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
| program lab9 ;
label m1,m2;
type STUDENT=Record
PIP:Record
prizv,imya,batkv:string[30];
end;
OCINKA:Record
matemat,fizika,istoria,informatik,ingenerna:2..5 ;
end;
end;
Sort=Record
im,pri:string[30];
end;
var PB32:array[1..100] of STUDENT ;
A,B,C:array[1..100] of sort ;
i,j,w,max:integer ;
Begin
write('Введіть кіскість студентів ');
readln(max);
writeln('Введення даних про студентів');
for i:=1 to max do begin
write('Введіть фамілію студента:');
readln(PB32[i].PIP.prizv);
write('Введіть імя студента:');
readln(PB32[i].PIP.imya);
write('Введіть по-батькові студента:');
readln(PB32[i].PIP.batkv) ;
write('Введіть оцінку з математики студента:');
readln(PB32[i].OCINKA.matemat);
write('Введіть оцінку з фізики студента:');
readln(PB32[i].OCINKA.fizika);
write('Введіть оцінку з історії студента:');
readln(PB32[i].OCINKA.istoria);
write('Введіть оцінку з інформатики студента:');
readln(PB32[i].OCINKA.informatik);
write('Введіть оцінку з інженерної графіки студента:');
readln(PB32[i].OCINKA.ingenerna);
end ;
writeln('Cписок студентів, що не мають 3: ') ;
For i:=1 to max do begin
if ((PB32[i].OCINKA.matemat<>3) or (PB32[i].OCINKA.fizika<>3)
or (PB32[i].OCINKA.istoria<>3) or (PB32[i].OCINKA.informatik<>3) or (PB32[i].OCINKA.ingenerna<>3)) then
writeln (PB32[i].PIP.imya, ' ',PB32[i].PIP.prizv,' ',PB32[i].PIP.batkv);
end ;
writeln('Виведення списків студентів з однаковим іменем ');
for i:=1 to max do begin
A[i].im:=PB32[i].PIP.imya; A[i].pri:=PB32[i].PIP.prizv; end ;
m1:
w:=0; j:=0;
for i:=1 to max do begin
B[1].im:=A[1].im; B[1].pri:=A[1].pri;
if A[i].im=B[1].im then begin j:=j+1 ; B[j].im:=A[i].im; B[j].pri:=A[i].pri; end
else begin w:=w+1; C[w].im:=A[i].im; C[w].pri:=A[i].pri; end ;end;
if j=1 then goto m2 ;
for i:=1 to j do begin
writeln(i,')',B[i].im,' ',B[i].pri);
end;
writeln;
m2:
if w<>0 then begin max:=w ;
for i:=1 to max do
A[i].im:=C[i].im ; A[i].pri:=C[i].pri;
goto m1; end ;
end. |
(
