Аналіз успішності групи
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
w.qw);
erase(f);
writeln(FAIL UDALEN);
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;
{------------------------}
procedure newreadkey (var a:char;var b:byte);
begin
b:=0;
a:=readkey;
if a=#0 then
b:=ord(readkey);
end;
{------------------}
procedure zapaska(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. Була використані приємна кольорова гама, яка надає розслабленості користувачу, а також концентрує увагу на певних важливих елементах програми.
Список використаної літератури
- Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. Харьков: Изд. Нац. ун-та внутр.дел,2003. 188 с.
- Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. X.,1995.
- Немнюгин С.А. Turbo Pascal. СПб.: Питер, 2002. 496 с.: ил.