01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Исползования типа Записи / ALEX8A

PROGRAM Laba8A;
TYPE
KOD=RECORD
GRUPPA:INTEGER;
KOLVO:INTEGER;
END;
TYPE
STUDENT=RECORD
FAMILIYA:STRING;
OCENKA1:INTEGER;
OCENKA2:INTEGER; END;
VAR
A : ARRAY[1..100] OF KOD;
B : ARRAY[1..10,1..10] OF STUDENT;
I,J,K,N,G,OC1,OC2,H,KOL : INTEGER;
R : BOOLEAN;
F : STRING;
{*******************************************************}
FUNCTION OCENKI(O1,O2:INTEGER):BOOLEAN;
BEGIN
IF (O1=5) AND (O2=5) THEN R:=TRUE
ELSE R:=FALSE;
OCENKI:=R;
END;
{********************************************************}
BEGIN
WRITELN('‚‚…„€’… ЉЋ‹€—…‘’‚Ћ ѓђ“ЏЏ : ');
READLN(N);
FOR I:=1 TO N DO BEGIN
WRITELN('‚‚…„€’… –€”ђЋ‚Ћ‰ €„…Ќ’€”€ЉЂ’Ћђ ',I:2,' -Ћ‰ ѓђ“ЏЏ› : ');
READLN(A[I].GRUPPA);
WRITELN('‘ЉЋ‹њЉЋ ‘’“„…Ќ’Ћ‚ ‚ ќ’Ћ‰ ѓђ“ЏЏ… ? : ');
READLN(A[I].KOLVO); H:=(A[I].KOLVO);

FOR J:=1 TO {(A[N].KOLVO)}H DO BEGIN
WRITELN('‚‚…„€’… ”ЂЊ€‹€ћ ',J:2,' - ѓЋ ‘’“„…Ќ’Ђ : ');
READLN(B[i,J].FAMILIYA);
WRITELN('‚‚…„€’… …ѓЋ Ћ–…ЌЉ“ ЏЋ Џ…ђ‚ЋЊ“ Џђ…„Њ…’“ : ');
READLN(B[i,J].OCENKA1);
WRITELN('‚‚…„€’… …ѓЋ Ћ–…ЌЉ“ ЏЋ ‚’ЋђЋЊ“ Џђ…„Њ…’“ : ');
READLN(B[i,J].OCENKA2);
END; END;
I:=0; J:=0;
FOR I:=1 TO N DO BEGIN
G:=(A[I].GRUPPA);
KOL:=(A[I].KOLVO);
K:=0;
FOR J:=1 TO {(A[N].KOLVO)} KOL DO BEGIN
F:=(B[i,J].FAMILIYA);
OC1:=(B[i,J].OCENKA1);
OC2:=(B[i,J].OCENKA2);
IF OCENKI(OC1,OC2)=TRUE
THEN BEGIN
WRITELN('‘’“„…Ќ’ ',F,' ‚ ѓђ“ЏЏ… ЌЋЊ…ђ',G:2,' - Љђ“ѓ‹›‰ Ћ’‹€—Ќ€Љ !!!!!');
K:=K+1; writeln;
END;
IF K=0 THEN WRITELN('‚ ѓђ“ЏЏ… ЌЋЊ…ђ ',G:2,' Љђ“ѓ‹›• Ћ’‹€—Ќ€ЉЋ‚ Ќ…’ !!!!!');
END;
END;
READLN;
END.