Додаток г Лістинг модуля poisk.Tpu
unit
poisk;
interface
uses
crt,styd;
procedure
Sti;
implementation
procedure
Sti;
begin
clrscr;
k:=1;
reset(f);
writeln('Vvedite
nyjnyu grypy');
readln(gr);
clrscr;
textcolor(yellow);
writeln(gr);
textcolor(13);
gotoxy(1,2);
writeln('#');
gotoxy(6,2);
writeln('Familiya');
gotoxy(20,2);
writeln('Deyatel`nost`');
gotoxy(40,2);
writeln('Stipendiya');
if
filesize(f)=0 then
begin
textcolor
(4+16);
writeln('V
baze net zapisei'); textcolor(7)
end
else
for
i:=1 to filesize(f) do
begin
read(f,z);
if
gr=z.nomgr then
begin
textcolor(2);
gotoxy(1,wherey);
write(k);
gotoxy(6,wherey);
write(z.prizv);
gotoxy(20,wherey);
if
z.gd=1 then write('y4astvyet') else write('ne y4astvyet');
gotoxy(40,wherey);
if
(z.mat=5) and (z.ukr=5) and (z.inf=5) and ( z.gd=1) then
write('+50%')
else
if
(z.mat=5) and (z.ukr=5) and (z.inf=5) and (z.gd=0) then write('+25%')
else
if
(z.mat>=4) and (z.ukr>=4) and (z.inf>=4) then
write('Zvu4aina stupendiya')
else
if
(z.mat>=3) and (z.ukr>=3) and (z.inf>=3) and (z.gd=1) then
write('Zvu4aina stupendiya')
else
write('Net stipendii');
writeln;
k:=k+1;
end;
end;
close(f);
readkey;
end;
end.