.
uses crt;
const
m=3;
a='student napravlen na prdpri9itie N1';
b='student napravlen na predpri9itie N2';
c='student ne dopushen k praktike';
TYPE
man=RECORD
fio:STRING[30];
ocen1: integer;
ocen2: integer;
ocen3: integer;
sr_oc:real;
END;
VAR
fio:string[30];
fin:FILE OF man;
ZAP:man;
baza:array [1..100] of man;
sr_oc:array [1..100] of real;
k:array [1..100] of real;
ocen1, ocen2, ocen3: integer;
n,sum,j:integer;
OTV:CHAR;
procedure vvod;
begin
WRITELN('raspredelenie stud na praktiky');
ASSIGN(fin, 'dbase2.txt');
REWRITE(fin);
n:=1;
REPEAT
for j:=1 to n do begin
WRITELN('vvedite fio');
READLN(baza[j].fio);
WRITELN('VVEDITE ocenki:');
write ('1:');
readln (baza[j].ocen1);
write ('2:');
readln (baza[j].ocen2);
write ('3:');
readln (ocen3);
ZAP.fio:=fio;
ZAP.ocen1:=ocen1;
ZAP.ocen2:=ocen2;
ZAP.ocen3:=ocen3;
WRITE(fin,zap);
inc(n);
end;
writeln('ESHE VVODIT? y/n');
readln(otv);
until otv<>'y';
END;
begin
vvod;
reset (fin);
while not (eof (fin)) do
begin
read (fin,zap);
for j:=1 to n do begin
sum:=sum+baza[j].ocen1+baza[j].ocen2+baza[j].ocen3;
sr_oc[j]:=sum/m;
end;
end;
close(fin);
rewrite(fin);
for j:=1 to n do begin
writeln (sr_oc[j]:0:2);
end;
readkey;
end.
распределение студентов на практику |