begin
clrscr;
if FSearch('uy.rer','d:\')='' then
begin
gotoxy(15,12);
textcolor(132);
writeln('zapisi net');
for b:=1 to 40 do
Delay(9999);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end
else
begin
assign(f,'d:\uy.rer');
reset(f);
writeln('mogno iskat po:');
writeln;
writeln('dla poiska po modeli orugia vvedi-"model"');
writeln;
writeln('dla poiska po kalibru vvedi-"kalibr"');
writeln;
writeln('dla poiska po vesu vvedi-"ves"');
writeln;
writeln('dla poiska po dline vvedi-"dlina"');
writeln;
writeln('dla poiska po visote vvedi-"visota"');
writeln;
writeln('dla poiska po por.nomeru vvedi-"nomer"');
writeln;
writeln('vvedi po hom budem iskat i nagm. "ENTER"');
readln(p);
if (p= 'model') or (p='kalibr') or ( p='ves') or (p='dlina') or (p='visota') or (p='nomer') then
begin
if p='model' then
begin
clrscr;
writeln('vvedi iskaemou model');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=med then
begin
writeln('model orugia-',med);
writeln(' kalibr-',kal);
writeln(' ves-',ves);
writeln(' dlina-',dl);
writeln(' visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end;
if p='kalibr' then
begin
clrscr;
writeln('vvedi iskaeiy kalibr');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=kal then
begin
writeln('model orugia-',med);
writeln('kalibr-',kal);
writeln('ves-',ves);
writeln('dlina-',dl);
writeln('visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end;
if p='ves' then
begin
clrscr;
writeln('vvedi iskaeiy ves');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=ves then
begin
writeln('model orugia-',med);
writeln('kalibr-',kal);
writeln('ves-',ves);
writeln('dlina-',dl);
writeln('visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end;
if p='dlina' then
begin
clrscr;
writeln('vvedi iskaemou dliny');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=dl then
begin
writeln('model orugia-',med);
writeln('kalibr-',kal);
writeln('ves-',ves);
writeln('dlina-',dl);
writeln('visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end;
if p='visota' then
begin
clrscr;
writeln('vvedi iskaemou visotu');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=vis then
begin
writeln('model orugia-',med);
writeln('kalibr-',kal);
writeln('ves-',ves);
writeln('dlina-',dl);
writeln('visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end;
if p='nomer' then
begin
clrscr;
writeln('vvedi iskaemiy por.nomer');
readln(x);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
if x=pr_nom then
begin
writeln('model orugia-',med);
writeln('kalibr-',kal);
writeln('ves-',ves);
writeln('dlina-',dl);
writeln('visota-',vis);
writeln('por.nom-',pr_nom);
end;
end;
end
end
else writeln('po' ,p,'poisk ne idet');
close(f);
end;
readln;
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
procedure prosm;
var i,j:integer;
begin
clrscr;
if FSearch('uy.rer','d:\')='' then
begin
gotoxy(15,12);
textcolor(132);
writeln('zapisi net');
for b:=1 to 40 do
Delay(9999);
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end
else
begin
assign(f,'d:\uy.rer');
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,oru);
with oru do
begin
writeln('zapis-',i+1);
writeln('model orugia-',med);
writeln(' kalibr-',kal);
writeln(' ves-',ves);
writeln(' dlinu-',dl);
writeln(' visotu-',vis);
textcolor(2);
for j:=1 to 80 do
write(#205);
end;
end;
close(f);
end;
readln;
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
end;
begin
textmode(co40);
window(1,1,40,25);
clrscr;
st1:='novaya basa';
st2:='udalit basu';
st3:='poisk v base';
st4:='prosmotr ';
st5:='exit';
menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);
x1:=13;y1:=6;y2:=6;
i:=1;
repeat
repeat
newreadkey(a1,b);
strelka(y2,i,x1,y1,6,b);
until a1=#13;
case i of
1:zap;
2:udal;
3:poisk;
4:prosm;
5:halt;
end;
until a1=#27;
end.
В даній курсовій роботі були використані елементи програмування на мові Паскаль. Була створена програма, яка веде облік вогнепальної зброї. Таким чином біли виконані всі вимоги до даної курсової роботи.
В даній роботі було створено досить велику кількість процедур, які можливо використати і в інших програмних проектах, були використані різні типи даних, а також були застосовані процедури та функції які були створені раніше, ці процедури та функції я брав з модулів CRT та DOS.
1. Струков В.М. Основи алгоритмизации и програмирования. Часть 2. Учебное пособие. – Харьков: Изд. Нац. ун-та внутр.дел,2003. – 188 с.
2. Сердюченко В.Я. Розробка алгоритмів та програмування на мові Turbo Pascal. – X.,1995.
3. Немнюгин С.А. Turbo Pascal. – СПб.: Питер, 2002. – 496 с.: ил.