- •1 Постановка задачі
- •Практичне завдання
- •2 Типи даних в Паскаль
- •Цілочислові типи
- •Дійсні типи
- •Логічний тип
- •Символьний тип
- •Перерахований тип
- •Діапазонний тип
- •3 Графіка в Паскаль
- •4 Алгоритм розробки програми
- •5. Практична реалізація
- •5.1 Опис структури даних та вимоги до них
- •5.2 Опис стандартних процедур і функцій.
- •5.3 Опис процедур та функцій, що використовувалися у програмі
- •5.4Опис процедур і функцій користувача
- •5.5 Опис файлів та їх призначення
- •6 Інструкція для роботи з програмою
- •7 Приклад тестування та результату роботи програми
- •Висновки
- •Додаток а (Обов’язковий) Лістинг основної програми
- •Додаток б (Обов’язковий) Лістинг модуля modul
- •Додаток в Лістинг модуля poshyk
- •Додаток г Лістинг модуля graphiks
Додаток в Лістинг модуля 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.