База даних по приватних підприємствах регіону
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
e(#187);
for i:=1 to y2-y1-1 do
begin
gotoxy(x2,y1+i);
write(#186);
end;
gotoxy(x2,y2);
write(#188);
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 into;
var i,n:integer;
begin
window(1,1,40,25);
textbackground(0);
clrscr;
textcolor(3);
pamka(1,19,39,25);
pamka(1,1,39,25);
gotoxy(1,19);
write(#204);
gotoxy(39,19);
write(#185);
window(2,20,38,24);
writeln( ЯЯЯЯЯЬ ЬЯЯЬ ЫЯЯЯЫ Я ЬЬЬ );
writeln( ЬЯ Ы Ы ЫЬЬЬЫ Ы ЯЬ Я );
writeln( ЬЯ ЫЬЬЬ Ы Ы Ы ЯЬ );
writeln( ЯЬЬЬЬЬ Ы Ы Ы Ы ЯЬЬЬЯ );
window(5,2,37,17);
textcolor(7);
write(vvedi kolichestvo predpreatiy- );readln(n);
assign(f,d:\bas.bas);
rewrite(f);
clrscr;
for i:=1 to n do
begin
seek(f,filesize(f));
clrscr;
with pr do
begin
write(vvedi nasvanie predpreyatia-);readln(naz);
write(vvedi vid deyatelnosti predpreyatia);readln(vd);
write(vvedi region v kotorom zareg.-);readln(reg);
write(vvedi vladelcha predpriyatia-);readln(vl);
write(vvedi nomer telefona predpreyatia);readln(nt);
end;
write(f,pr) ;
end;
close(f);
end;
{.................................}
procedure is;
var s:string;i:integer;
begin
window(1,1,80,25);
textbackground(0);
clrscr;
if FSearch(bas.bas,d:\)= then
begin
textbackground(0);
clrscr;
textcolor(132);
writeln(FAIL NE NAYDEN);
readln;
end
else
begin
textcolor(7);
pamka(1,19,39,25);
pamka(1,1,39,25);
gotoxy(1,19);
write(#204);
gotoxy(39,19);
write(#185);
window(2,20,38,24);
writeln( ЫЯЯЯЫ ЫЯЯЯЯЫ Я ЬЬЬ Ы ЬЯ );
writeln( ЫЬЬЬЫ Ы Ы Ы ЯЬ Я ЫЬЯ );
writeln( Ы Ы Ы Ы ЯЬ ЫЯЬ );
writeln( Ы ЫЬЬЬЬЫ Ы ЯЬЬЬЯ Ы ЯЬ );
window(5,2,37,17);
textcolor(7);
write(vvedi slovo dla poiska-);readln(s);
assign(f,d:\bas.bas);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,pr);
with pr do
begin
if (s=naz) or (s=vd) or (s=nt) or (s=reg) or (s=vl) then
begin
writeln(zapis,i+1);
writeln( nasvanie predpreyatia-,naz);
writeln( vid deyatelnosti predpreyatia-,vd);
writeln( region v kotorom zareg.-,reg);
writeln( vladelcha predpriyatia-,vl);
writeln( nomer telefona predpreyatia-,nt);
end
else
writeln(po etomu zaprocu nichego ne naydeno);
end;
end;
readln;
end;
end;
{..............................}
procedure ud;
begin
window(1,1,40,25);
clrscr;
if FSearch(bas.bas,d:\)= then
begin
textbackground(0);
clrscr;
textcolor(132);
writeln(FAIL NE NAYDEN);
readln;
end
else
begin
pamka(1,1,39,25);
window(2,2,38,24);
writeln(Nagmi na "enter" dla udalenia);
if readkey=#13 then
begin
assign(f,d:\bas.bas);
erase(f);
writeln(fail udalen);
end;
end;
readln;
end;
{:::::::::::::::::::::::::::::::::::::::::::::}
var st1,st2,st3,st4:string;
e:char;d,p:byte;
begin
textmode(c40);
{into;
{is;
ud;
readln;}
repeat
window(1,1,40,25);
textbackground(7);
clrscr;
st1:=Zapis;
st2:=Nayti;
st3:=Steret;
st4:=Vixod;
rrr(st1,st2,st3,st4);
window(1,1,40,25);
prig(6,3,14,29);
p:=1;
repeat
newreadkey(e,d);
if d=80 then
p:=p+1;
if d=72 then
p:=p-1;
if p=5 then
p:=1;
if p=0 then
p:=4;
case p of
1: begin
rrr(st1,st2,st3,st4);
window (1,1,40,25);
prig(6,3,14,29);
end;
2: begin
rrr(st1,st2,st3,st4);
window (1,1,40,25);
prig(6,9,14,29);
end;
3: begin
rrr(st1,st2,st3,st4);
window (1,1,40,25);
prig(6,15,14,29);
end;
4: begin
rrr(st1,st2,st3,st4);
window (1,1,40,25);
prig(6,21,14,29);
end;
end;
until e=#13;
case p of
1:into;
2:is;
3:ud;
end;
until p=4;end.
Висновок
В даній курсовій роботі були поставлені такі задачі: поглибити свої знання в алгоритмічних мовах, та вдосконалити програмування на мові Паскаль. Та створити корисний продукт. Була створена програма, якою я виконую обидві задачі які ставилися на початку.
В даній роботі було створено досить велику кількість процедур, які можливо використати і в інших програмних проектах, були використані різні типи даних, а також були застосовані процедури та функції які були створені раніше, ці процедури та функції я брав з модулів CRT та DOS
Список використаної літератури
- Струков В.М. Основы алгоритмизации и программирования. Часть 2. Учебное пособие. Харьков: Изд. Нац. ун-та внутр.дел,2003. 188 с.
- Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. X.,1995.
- Немнюгин С.А. Turbo Pascal. СПб.: Питер, 2002. 496 с.: ил.