Курсовая работа: Аналіз успішності групи

writeln('sr.bal po matem.- ',s1/k1:1:1);

writeln('sr.bal po istorii- ',s2/k1:1:1);

writeln('sr.bal po ximii- ',s3/k1:1:1);

writeln('sr.bal po fizike- ',s4/k1:1:1);

close(f);

end;

readln;

end;

{................................}

procedure ud;

begin

if fsearch('qw.qw','qw.qw')='' then

begin

window(1,1,40,25);

textbackground(2);

clrscr;

pamka(1,1,39,3);

gotoxy(6,2);

textcolor(3);

write('Udalenie ranga uspevaemosti');

pamka(1,3,39,25);

window(2,4,38,24);

textcolor(132);

writeln('FAIL NE NAIDEN');

readln;

end

else

begin

assign(f,'qw.qw');