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

Додаток в Лістинг модуля poshyk

unit poshyk;

interface

uses crt,modul;

procedure poisk1;

procedure poisk2;

implementation

procedure poisk1;

begin

clrscr;

gotoxy(7,5);write('Введите предприятие: '); readln(n_pidpr);

gotoxy(7,wherey);writeln('Вы выбрали: ' , n_pidpr);

k:=0;reset(f);writeln;

while not (eof(f)) do

begin

read (f,z);

if z.ozn='да ' then

if n_pidpr=z.pidpr then k:=k+1

end;close (f);reset (f);

if n_pidpr<>z.pidpr then write('Такого предприятия нет')

else

begin

gotoxy(7,7); writeln('Список выпускников трудоустроенных на данное предприятие:');

while not (eof(f)) do

begin

read (f,z);

if z.ozn='да' then

if n_pidpr=z.pidpr then

begin

gotoxy(7,wherey); write(z.fam);

gotoxy(22,wherey); write(z.nomer_d);

gotoxy(32,wherey); write(z.ser_bal:2:2);

gotoxy(47,wherey); write(z.pidpr);

gotoxy(62,wherey); write(z.ozn);

writeln; end;end;

gotoxy(7,wherey);writeln ('Кол-во трудоустроеных: ',k:1:0);

readkey;end;end;

procedure poisk2;

begin

clrscr;

gotoxy(8,3);write('Список нетрудоустроенных выпускников: ');

gotoxy(8,5); write('Фамилия');

gotoxy(20,5); write('Средний бал');

gotoxy(35,5); write('Предприятие');

reset(f);writeln;

while not (eof(f)) do

begin

read (f,z);

if z.ozn='ЌҐв' then

end;close (f);reset (f);

begin

while not (eof(f)) do

begin

read (f,z);

if z.ozn='ЌҐв' then

begin

gotoxy(8,wherey); write(z.fam);

gotoxy(20,wherey); write(z.ser_bal:2:2);

gotoxy(35,wherey); write(z.pidpr);

writeln;endend;readkey;end;end;end.

Додаток г Лістинг модуля graphiks

unit graphiks;

interface

uses Graph;

var

grDriver:integer;

grMode:integer;

procedure zastavka;

procedure konec;

implementation

procedure zastavka;

begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

setbkcolor(7);setcolor(1);

settextstyle(4,horizdir,7);

outtextxy(30,100,'Курсовая работа ');

settextstyle(9,horizdir,1);

outtextxy(30,170,'C алгоритмизации и програмирования);

settextstyle(4,horizdir,4);

outtextxy(300,315,'Создал студент:');

outtextxy(300,360,'Пивоваров ДЕнис');

outtextxy(300,400,'вариант 20');

setcolor(4);line(10,10,10,200);

readln;closegraph;end;

procedure konec;

begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

setbkcolor(7);setcolor(1);

settextstyle(4,horizdir,7);

outtextxy(40,150,'Спасибо за внимание');

settextstyle(9,horizdir,1);

outtextxy(100,250,'Завершение работы');

setcolor(4);line(10,10,10,200);

readln;closegraph;end;end.

Соседние файлы в папке Курсовая1