Міністерство внутрішніх справУкраїни
Харківський національнийуніверситет внутрішніх справ
Навчально-науковий інститутменеджменту, соціальних та інформаційних технологій
Кафедра інформаційних систем і технологійв діяльності ОВС
Курсова робота
з дисципліни «Основипрограмування та алгоритмічні мови»
на тему: «Аналіз успішності групи»
Харків
Зміст
Вступ
1. Основна частина
1.1 Неформальнапостановка задачі
1.2 Формальнапостановка задачі
1.3 Структура зберігаючих даних
2. Алгоритми
2.1 Алгоритм основної програми
3. Вихідний код програми
Висновок
Список використаної літератури
Вступ
Вчителі витрачають дуже багато часу на те щобперевірити оцінки та зробити аналіз успішності групи, адже вся інформація яка уних є вона в письмовому виді і таку інформацію не завжди легко обробляти. Такимчином потрібно розробити програму яка автоматизовано буде обробляти надану їйінформацію.
Я вибрав мовупрограмування Turbo Pascal, з метою закріплення своїх навиків зпрограмування.
1.Основна частина1.1 Неформальнапостановка задачі
Розробити програму«аналіз успішності групи» для збереження та перегляду всієїінформації що стосується навчання.
ü Введення і збереженняінформації стосовно оцінок групи:
o Фаміліякурсанта
o Оцінка поматематики
o Оцінка похімії
o Оцінка пофізиці
o Оцінка поісторії
ü Можливість редагування даноїбази
ü Організація пошуку закритеріями
ü Аналіз успішності курсанта
ü Можливість перегляду всіхіснуючих документів
ü Можливість видалення всієїбази.
ü Зручний інтерфейс длякористувача
ü Швидкість та простота роботив даній програмі1.2 Формальнапостановка задачі
Вихідні дані:
Позначимо черезмножину В = {B1, B2, …, Bi} всіх курсантів, тоді Bi={Z1, Z2, …, Zj}, де Zj – оцінка з певного предмету.
Таким чиномотримуемо матрицю всіх відомостей R=||Rij||
Результат:
Множина Tij, яка формуються з вхіднихданих а саме множини Bij
Математичнамодель:
/>1.3 Структура зберігаючих даних
G – структура для введення даних
· Im – поледля введення фамілії курсанта
· m — Поледля введення оцінки по матиматиці
· xi — Поледля введення оцінки по хімії
· fi — Поледля введення оцінки по фізики
· is — Поледля введення оцінки по історії
pamka – малюєрамочку в певних координатах
vo – процедурадля введення відомостей
por – процедураяка виконує аналіз та виводить його на екран
ud – процедураяка видаляє базу
zapask –процедура яка відповідає за створення головного меню
2.Алгоритми2.1 Алгоритмосновної програми
/>
3.Вихідний кодпрограми
uses crt,dos;
type g=record {anu gr}
im:string[25];
m,xi,fi,is:integer;
end;
var a:char;
b,i,p:byte;
s1,s2,s3,s4:string;
gr:g; f:file ofg;
{-------------------}
procedure pamka(x1,y1,x2,y2:integer);
var i,c:integer;
begin
textcolor(7);
gotoxy(x1,y1);
write(#201);
for i:=1 tox2-x1-1 do
begin
gotoxy(x1+i,y1);
write(#205);
end;
gotoxy(x2,y1);
write(#187);
for i:=1 toy2-y1-1 do
begin
gotoxy(x2,y1+i);
write(#186);
end;
gotoxy(x2,y2);
write(#188);
for i:=1 to x2-x1-1do
begin
gotoxy(x2-i,y2);
write(#205);
end;
gotoxy(x1,y2);
write(#200);
for i:=1 toy2-y1-1 do
begin
gotoxy(x1,y1+i);
write(#186);
end;
end;
procedure vo;
var i,n:integer;
begin
window(1,1,40,25);
textbackground(2);
clrscr;
pamka(1,1,39,3);
gotoxy(6,2);
textcolor(3);
write('Zapolnenieranga uspevaemosti');
pamka(1,3,39,25);
window(2,4,38,24);
write('vvedikolichestvo kyrs. v grupe-');readln(n);
assign(f,'qw.qw');
rewrite(f);
for i:=1 to n do
begin
seek(f,filesize(f));
clrscr;
writeln('Krsant#',i);
write('vvedifamiliu kursanta- ');readln(gr.im);
write('vvediotcenku po matem-');readln(gr.m);
write('vvediotcenku po ximii-');readln(gr.xi);
write('vvediotcenku po fizike-');readln(gr.fi);
write('vvediotcenku po istorii-');readln(gr.is);
write(f,gr);
end;
close(f);
end;
{............................}
procedure por;
vari,s,k,k1,s1,s2,s3,s4,min,max,j,l,s5:integer;z:real;
begin
iffsearch('qw.qw','qw.qw')='' then
begin
window(1,1,40,25);
textbackground(2);
clrscr;
pamka(1,1,39,3);
gotoxy(6,2);
textcolor(3);
write('Analisranga uspevaemosti');
pamka(1,3,39,25);
window(2,4,38,24);
textcolor(132);
writeln('FAIL NENAIDEN');
end
else
begin
window(1,1,40,25);
textbackground(2);
clrscr;
pamka(1,1,39,3);
gotoxy(6,2);
textcolor(3);
write('Analisranga uspevaemosti');
pamka(1,3,39,25);
textcolor(0);
window(2,4,38,24);
assign(f,'qw.qw');
reset(f);
s:=0;k:=0;k1:=0; s1:=0;s2:=0;s3:=0;s4:=0;min:=9999;max:=-9999;j:=0;l:=0;
for i:=0 tofilesize(f)-1 do
begin
s5:=0;
seek(f,i);
read(f,gr);
s5:=gr.m+gr.is+gr.xi+gr.fi;
if 5
begin
min:=s5;j:=i;
end;
if s5>max then
begin
max:=s5;l:=i;
end;
s:=s+gr.m+gr.is+gr.xi+gr.fi;
s1:=s1+gr.m;
s2:=s2+gr.is;
s3:=s3+gr.xi;
s4:=s4+gr.fi;
k:=k+4;
k1:=k1+1;
end;
seek(f,j);
read(f,gr);
writeln('kursant-',gr.im,'imeet samiy nizkiy bal');
seek(f,l);
read(f,gr);
writeln('kursant-',gr.im,'imeet samiy visokiy bal');
writeln('obsh.sr.bal v grupe- ',s/k:1:1);
writeln('sr.balpo matem.- ',s1/k1:1:1);
writeln('sr.balpo istorii- ',s2/k1:1:1);
writeln('sr.balpo ximii- ',s3/k1:1:1);
writeln('sr.balpo fizike- ',s4/k1:1:1);
close(f);
end;
readln;
end;
{................................}
procedure ud;
begin
iffsearch('qw.qw','qw.qw')='' then
begin
window(1,1,40,25);
textbackground(2);
clrscr;
pamka(1,1,39,3);
gotoxy(6,2);
textcolor(3);
write('Udalenieranga uspevaemosti');
pamka(1,3,39,25);
window(2,4,38,24);
textcolor(132);
writeln('FAIL NENAIDEN');
readln;
end
else
begin
assign(f,'qw.qw');
erase(f);
writeln('FAILUDALEN');
readln;
end;
end;
{-------------------}
procedure Rama(x1,y1,x2,y2,a,b:byte);
var i:integer;
begin
textbackground(a);
textcolor(b);
window(x1,y1,x2,y2);
write('Ъ');
for i:=1 to(x2-x1)-1 do
begin
write('Д');
end;
write('ї');
for i:=2 to(y2-y1)-1 do
begin
gotoxy(1,i);
write('і');
gotoxy(x2-x1+1,i);
write('і');
end;
write('А');
for i:=1 to(x2-x1)-1 do
begin
write('Д');
end;
write('Щ');
end;
{------------------------}
procedurenewreadkey (var a:char;var b:byte);
begin
b:=0;
a:=readkey;
if a=#0 then
b:=ord(readkey);
end;
{------------------}
procedurezapaska(i:byte;s1,s2,s3,s4:string);
begin
window(1,1,40,7);
textbackground(1);
clrscr;
window(1,18,40,25);
textbackground(1);
clrscr;
window(1,7,40,18);
textbackground(0);
clrscr;
case i of
1: begin
window(1,7,10,10);
textbackground(1);
clrscr;
window(1,15,10,18);
textbackground(1);
clrscr;
end;
2: begin
window(10,7,20,10);
textbackground(1);
clrscr;
window(10,15,20,18);
textbackground(1);
clrscr;
end;
3: begin
window(20,7,30,10);
textbackground(1);
clrscr;
window(20,15,30,18);
textbackground(1);
clrscr;
end;
4: begin
window(30,7,40,10);
textbackground(1);
clrscr;
window(30,15,40,18);
textbackground(1);
clrscr;
end;
end;
window(1,12,40,14);
gotoxy(1,13);
write(s1);
write(s2);
write(s3);
write(s4);
end;
{==================}
begin
window(1,1,40,25);
textbackground(0);
clrscr;
p:=1;
s1:=' Vvod ';
s2:=' Analiz ';
s3:=' Udal ';
s4:=' Vihid ';
zapaska(1,s1,s2,s3,s4);
repeat
newreadkey(a,b);
case b of
77:p:=p+1;
75:p:=p-1;
end;
case p of
5: p:=4;
0: p:=1;
end;
case p of
1: begin
if a=#13 then
vo;
zapaska(p,s1,s2,s3,s4);
end;
2: begin
if a=#13 then
por;
zapaska(p,s1,s2,s3,s4);
end;
3: begin
if a=#13 then
ud;
zapaska(p,s1,s2,s3,s4);
end;
4: begin
if a=#13 then
halt;
zapaska(p,s1,s2,s3,s4);
end;
end;
until a=#27;
end.
Висновок
В данній курсовійроботі було створено програму для автоматизації та обробки певної інформації.Програма називається «Аналіз успішності групи». В даній програмі був створений максимально простийінтерфейс, максимально спростована робота користувачем. Таким чином програмалегка в використанні, в той же час вона набагато спростовує обробку певноїнеобхідної інформації. Було створене головне поле, де графічно створені пунктивибору певного дійства яке вибрав користувач. Під слофом графіка тутрозуміється псевдографіка яка доступна завдяки модулю CRT. Також в «Аналізіуспішності групи» використовуються процедури з модулю DOS. Булавикористані приємна кольорова гама, яка надає розслабленості користувачу, атакож концентрує увагу на певних важливих елементах програми.
Списоквикористаної літератури
1. СтруковВ.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. –Харьков: Изд. Нац. ун-та внутр.дел,2003. – 188 с.
2. СердюченкоВ.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. – X.,1995.
3. НемнюгинС.А. Turbo Pascal. – СПб.: Питер, 2002. – 496 с.: ил.