Автоматизована реєстрація і облік автомобілей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
p>
for i:=1 to x2-x1-1 do
begin
gotoxy(x2-i,y2);
write(#205);
end;
gotoxy(x1,y2);
write(#200);
for i:=1 to y2-y1-1 do
begin
gotoxy(x1,y1+i);
write(#186);
end;
end;
{...............................................}
procedure tabl(st:string);
var i,j,x,y:integer;
begin
for i:=1 to 80 do
begin
gotoxy(0+i,2);
write(#196);
end;
for i:=1 to 80 do
begin
gotoxy(0+i,4);
write(#196);
end;
gotoxy(1,1);
write(#218);
gotoxy(80,1);
write(#191);
for i:=1 to 78 do
begin
gotoxy(1+i,1);
write(#196);
end;
gotoxy(35,1);
textcolor(3);
writeln(st);
textcolor(7);
for i:=1 to 23 do
begin
gotoxy(1,1+i);
write(#179);
end;
gotoxy(1,2);
write(#195);
gotoxy(1,4);
write(#195);
y:=2;
for i:=1 to 10 do
begin
gotoxy(1,4+y);
write(#195);
y:=y+2;
end;
gotoxy(1,24);
write(#192);
for i:=1 to 78 do
begin
gotoxy(1+i,24);
write(#196);
end;
for i:=1 to 23 do
begin
gotoxy(80,1+i);
write(#179);
end;
gotoxy(80,24);
write(#217);
gotoxy(80,2);
write(#180);
y:=2;
for i:=1 to 10 do
begin
gotoxy(80,2+y);
write(#180);
y:=y+2;
end;
y:=2;
for j:=1 to 10 do
begin
y:=y+2;
for i:=1 to 78 do
begin
gotoxy(1+i,y);
write(#196);
end;
end;
x:=20;
for i:=1 to 3 do
begin
gotoxy(0+x,2);
write(#194);
x:=x+20;
end;
x:=20;
for i:=1 to 3 do
begin
gotoxy(0+x,24);
write(#193);
x:=x+20;
end;
x:=0;
for j:=1 to 3 do
begin
x:=x+20;
for i:=1 to 21 do
begin
gotoxy(0+x,2+i);
write(#179);
end;
end;
x:=0;
for j:=1 to 3 do
begin
y:=4;
for i:=1 to 10 do
begin
gotoxy(20+x,y);
write(#197);
y:=y+2;
end;
x:=x+20;
end;
textcolor(3);
gotoxy(5,3);
write(model mahini);
gotoxy(24,3);
write(obem dvigatela);
gotoxy(44,3);
writeln(god vipuska);
gotoxy(61,3);
write(rashod topliva);
end;
{.............................................}
procedure vvod;
var st:string; i,n:integer;
begin
window(1,1,80,25);
clrscr;
assign(f,d:\tyu);
rewrite(f);
pamka(1,1,80,3);
gotoxy(37,2);
writeln(VVOD);
pamka(1,1,80,24);
gotoxy(1,3);
write(#204);
gotoxy(80,3);
write(#185);
window(2,4,79,23);
write(vvedite kolichestvo avtomobiley- );
readln(n);
for i:=1 to n do
begin
with ma do
begin
clrscr;
gotoxy(2,4);
writeln(mahina-,i);
write(vvedi model mahini- );readln(ml);
write(vvedi god vipuska- );readln(gv);
write(vvedi rasxod topliva- );readln(tp);
write(vvedi obem dv. );readln(odv);
writeln;
end;
seek(f,filesize(f));
write(f,ma);
end;
close(f);
end;
procedure viv;
var st:string;i,y:integer;
begin
window(1,1,80,25);
if FSearch(tyu,d:\)= then
begin
textbackground(0);
clrscr;
textcolor(132);
writeln(FAIL NE NAYDEN);
readln;
end
else
begin
textbackground(0);
clrscr;
st:=baza dannix;
tabl(st);
assign(f,d:\tyu);
reset(f);
y:=1;
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,ma);
with ma do
begin
gotoxy(2,4+y);
write(i+1);
gotoxy(3,4+y);
write(#179);
gotoxy(4,4+y);
write(ml);
gotoxy(24,4+y);
write(odv);
gotoxy(44,4+y);
write(gv);
gotoxy(64,4+y);
write(tp);
end;
y:=y+2;
end;
end;
readln;
end;
procedure poi;
var i:integer ; s:string;
begin
window(1,1,80,25);
if FSearch(tyu,d:\)= then
begin
textbackground(0);
clrscr;
textcolor(132);
writeln(FAIL NE NAYDEN);
readln;
end
else
begin
window(1,1,80,25);
clrscr;
assign(f,d:\tyu);
reset(f);
pamka(1,1,80,3);
gotoxy(37,2);
writeln(Poisk);
pamka(1,1,80,24);
gotoxy(1,3);
write(#204);
gotoxy(80,3);
write(#185);
window(2,4,79,23);
write(Kluch dla poicka-);
textcolor(4);
readln(s);
textcolor(7);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,ma);
with ma do
begin
if (s=ml) or (s=odv) or (s=gv) or (s=tp) then
begin
textcolor(4);
writeln(zapis-,i+1);
write(model mashini- ,ml);
write(god vipuska- ,gv);
write( obem dvigatela- ,odv);
write(rasxod topliva- ,tp);
end;
end;
end;
end;
end;
{:::::::::::::::::::::::::::::::}
var e:char;r,i:byte;
begin
{clrscr;
vvod;
viv;
poi;
readln;}
repeat
clrscr;
window(1,1,80,25);
textbackground(1);
clrscr;
i:=1;
window (6,4,34,22);
menu_pickto(6);
textcolor(14);
menu_text(8,3,12,14,14,14, Vvod, Pokasat, Nayti, Viyti);
menu_vibor(7,1,14);
repeat
newreadkey(e,r);
if r=72 then
i:=i-1;
if r=80 then
i:=i+1;
if i=0 then
i:=4;
if i=5 then
i:=1;
case i of
1: begin
menu_vibor(7,5,1);
menu_vibor(7,13,1);
menu_text(8,3,12,14,14,14, Vvod, Pokasat, Nayti, Viyti);
menu_vibor(7,1,14);
end;
2: begin
menu_vibor(7,1,1);
menu_vibor(7,9,1);
menu_text(8,3,14,12,14,14, Vvod, Pokasat, Nayti, Viyti);
menu_vibor(7,5,14);
end;
3: begin
menu_vibor(7,5,1);
menu_vibor(7,13,1);
menu_text(8,3,14,14,12,14, Vvod, Pokasat, Nayti, Viyti);
menu_vibor(7,9,14);
end;
4: begin
menu_vibor(7,9,1);
menu_vibor(7,1,1);
menu_text(8,3,14,14,14,12, Vvod, Pokasat, Nayti, Viyti);
menu_vibor(7,13,14);
end;
end;
until e=#13;
case i of
1:vvod;
2:viv;
3:poi;
end;
until i=4;
end.
Висновок
В даній курсовій роботі були виконане всі поставлені задачі. Було продемонстровано мій рівень програмування в середовищі Турбо Паскаль. Результатом цієї роботи є програмний продукт, який має зручний інтерфейс, простоту в застосуванні та виконує всі покладені в основу функції.
Я обрав мову програмування Паскаль, оскільки вважаю що для даної роботи він підходить найбільш.
Список використаної літератури
1.Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. - Харьков: Изд. Нац. ун-та внутр.дел,2003. - 188 с.
2.Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. - X.,1995.
3.Немнюгин С.А. Turbo Pascal. - СПб.: Питер, 2002. - 496 с.: ил.