Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
0
Добавлен:
30.05.2020
Размер:
780.18 Кб
Скачать

Додаток г Лістинг модуля 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.

Соседние файлы в папке Волошко