Довідкова система по кримінальному праву
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
;);
end;
end;
readln;
end;
{............................}
procedure dov;
var i:integer;b:string;
begin
window(1,1,40,25);
textbackground(14);
clrscr;
window(4,3,37,22);
textbackground(9);
clrscr;
if fsearch(kil.kil,d:\)= then
begin
textcolor(4);
writeln(faila net);
end
else
begin
clrscr;
assign(f,d:\kil.kil);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);read(f,d);
writeln(i+1,., d.z);
end;
write(vvedi termin- );read(b);
clrscr;
for i:=0 to filesize(f)-1 do
begin
seek(f,i);read(f,d);
if b=d.z then
begin
writeln(d.z,:); writeln;
writeln(d.s);
end;
end;
close(f);
end;
readln;
end;
{==================}
begin
textmode(co40);
window(1,1,40,25);
clrscr;
s1:=Termini;
s2:=Prosmotr;
s3:=Udalenie;
s4:=Vihod;
menu_1(s1,s2,s3,s4,0,15,15,15);
i:=1;
menu_2(i,5,0,0,0,15,s1);
repeat
newreadkey(h,l);
case l of
80:i:=i+1;
72:i:=i-1;
end;
case i of
0:i:=4;
5:i:=1;
end;
case i of
1:begin
if h=#13 then
pol;
window(1,1,40,25);
textbackground(0);
clrscr;
menu_1(s1,s2,s3,s4,0,15,15,15);
menu_2(i,5,0,0,0,15,s1);
end;
2:begin
if h=#13 then
dov;
window(1,1,40,25);
textbackground(0);
clrscr;
menu_1(s1,s2,s3,s4,15,0,15,15);
menu_2(i,0,5,0,0,15,s2);
end;
3:begin
if h=#13 then
del;
window(1,1,40,25);
textbackground(0);
clrscr;
menu_1(s1,s2,s3,s4,15,15,0,15);
menu_2(i,0,0,5,0,15,s3);
end;
4:begin
if h=#13 then
halt;
window(1,1,40,25);
textbackground(0);
clrscr;
menu_1(s1,s2,s3,s4,15,15,15,0);
menu_2(i,0,0,0,5,15,s4);
end;
end;
until h=#27;
end.
Висновок
В цій роботі я створив програму Довідник, яка полегшує обробітку інформації яка вводиться користувачем. В даній роботі були використані власні процедури та запозичені. Булу підключено два модулі СRT, якій відповідає за графіку та DOS, який працює з файлами. Вся інформація яка водиться користувачем зберігається в файлі, та при необхідності може бути переглянута.
Мовою програмування я обрав Turbo Pascal, оскільки він є найбільш оптимальним для виконання поставленої задачі.
Список використаної літератури
- Струков В.М. Основы алгоритмизации и программирования. Часть 2. Учебное пособие. Харьков: Изд. Нац. ун-та внутр.дел,2003. 188 с.
- Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. X.,1995.
- Немнюгин С.А. Turbo Pascal. СПб.: Питер, 2002. 496 с.: ил.