Материал: Отчет
else writeln(' Нетрудоустроен ');
readln;
end;
procedure ramka;
begin
gotoxy(5,5);write('№');
gotoxy(8,5); write('Фамилия’);
gotoxy(20,5); write ('№ диплом');
gotoxy(30,5); write('средний бал');
gotoxy(45,5); write('Предприятия');
gotoxy(60,5); write('Признак принятия');
writeln;
end;
procedure Vyvod;
begin
clrscr; reset(f);
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('Ведомость про трудоустройство выпускников по предприятиям ');
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
if filesize(f)=0 then
begin
textcolor(4+16);
gotoxy(4,6); writeln('В базе нет данных!');
textcolor(7)
end
else ramka;
for i:=1 to filesize(f) do
begin
read(f,z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn); writeln;
end;
close(f); readkey;
end;
procedure Dobavit;
begin
clrscr;reset(f);seek(f,filesize(f));i:=filesize(f);
st:='¤ ';while st='¤ ' do
begin
clrscr;
gotoxy(7,4);writeln('Введите данные о добавляемом выпускнике:');
gotoxy(7,wherey);writeln ('Введите номер диплом :');gotoxy(7,wherey); readln (z.nomer_d);
gotoxy(7,wherey);writeln ('Введите фамилию:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln (' Введите средний бал:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln (' Введите место роботы которое предлогается:');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln (Признак принятия на работу на данном предприятии: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,wherey);writeln ('Хотите продолжить да/нет?');
gotoxy(7,wherey); readln(st);
end;close(f);
end;
procedure Delete;
begin
clrscr;reset(f);
gotoxy(3,2);
writeln('Ведомость про трудоустройство выпускников по предприятиям );
gotoxy(3,4);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(3,wherey); write(i);
gotoxy(6,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(35,wherey); write(z.ser_bal:2:2);
gotoxy(40,wherey); write(z.pidpr);
gotoxy(55,wherey); write(z.ozn);
writeln;end;close(f);writeln;reset(f);
gotoxy(3,wherey);writeln('Укажите номер записи:');
gotoxy(3,wherey); readln(n);
gotoxy(3,wherey);
if n>filesize(f) then write('Такой записи нет!')
else
begin
assign(f1,'f1.dat'); reset(f); rewrite(f1);
for i:=1 to filesize(f) do
begin
read(f, z);
if filepos(f)<>n then write (f1,z); end;
close(f1); close(f);
erase(f); rename (f1,'f.dat');
gotoxy(3,wherey); write('Запись удалена!!!'); end;readkey;
end;
procedure Redakt;
begin
clrscr;
gotoxy(4,2); write (chr(218),'------------------------------------------------------------------------',chr(191));
gotoxy(4,3);
writeln('Ведомость про трудоустройство выпускников по предприятиям );
gotoxy(4,4); write (chr(192),'------------------------------------------------------------------------',chr(217));
gotoxy(5,4);ramka;reset(f);
while not (eof(f)) do
for i:=1 to filesize(f) do
begin
read(f, z);
gotoxy(5,wherey); write(i);
gotoxy(8,wherey); write(z.fam);
gotoxy(20,wherey); write(z.nomer_d);
gotoxy(30,wherey); write(z.ser_bal:2:2);
gotoxy(45,wherey); write(z.pidpr);
gotoxy(60,wherey); write(z.ozn); writeln;
end;
close(f);reset(f);
gotoxy(7,wherey);writeln(''Укажите номер записи:');gotoxy(7,wherey); readln(n);
gotoxy(7,wherey);
if n>filesize(f) then write('Такой записи нет!')
else
begin
seek(f,n-1);
gotoxy(7, wherey);writeln('Введите данные о ',i,' ‚ВыпускникеҐ');
gotoxy(7,wherey);writeln ('Введите номер диплом :');gotoxy(7,wherey); readln (z.nomer_d);
gotoxy(7,wherey);writeln ('Введите фамилию:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln (' Введите средний бал:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln (' Введите место роботы которое предлогается:');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln (Признак принятия на работу на данном предприятии: ');
oznaka;
write (f, z);
gotoxy(7,wherey);write('Изменена !');
end;readkey;close(f);end;end.
Додаток в Лістинг модуля 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.
