Правила форума
Прочтите прежде чем задавать вопрос!
данных по ключу.Предусмотреть вывод всей базы
данных на экран. Вся обработка базы данных должна
происходить путем выбора соответствующего пункта из
меню.
Помогите пожалуйста
- Чего не хватает?
- Помогите пожалуйста с запросом (на фото)
- Не могу убрать заливку на титульной странице, ничего из-за нее не видно.
Если нужно больше информации, могу выложить всю курсовую (задание).
program felkurs;
uses crt,graph;
type
datatype=record
firmpodryadchik:string;
klient:string;
typestroeniya:string;
stoimost:integer;
prockredit:integer;
summavbanke:integer;
neviplsumma:integer;
end;
var max:datatype;
fel:file of datatype;
i:integer;
gm,gd,w,m,x:integer;
B:word;
procedure pr;
var s:integer;
begin
assign(fel,'lab.ua');
rewrite(fel);
for i:=1 to 3 do
begin
clrscr;
writeln('enter firmpodryadchik');
readln(max.firmpodryadchik);
writeln('enter klient');
readln(max.klient);
writeln('enter typestroeniya');
readln(max.typestroeniya);
writeln('enter stoimost');
readln(max.stoimost);
writeln(' enter prockredit ');
readln(max.prockredit);
writeln('enter summavbanke ');
readln(max.summavbanke );
writeln('enter neviplsumma ');
readln(max.neviplsumma);
write(fel,max);
end;
close(fel);
end;
procedure klient;
var k:integer;
f:boolean;
begin
clrscr;
f:=false;
writeln(' enter proc_za_credit ');
readln(k);
assign(fel,'lab.ua');
reset(fel);
while not EOF(fel) do
begin
read (fel,max);
if k=max.prockredit then
begin
f:=true;
writeln('procent' , max.prockredit);
end;
end;
if f=false then
writeln (' nety etoy summy');
close(fel);
readln;
end;
procedure r;
var j:integer;
s:boolean;
begin
clrscr;
writeln('enter neviplsumma');
readln(j);
s:=false;
assign (fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
clrscr;
read(fel,max);
if j=max.neviplsumma then
begin
s:=true;
writeln(max.summavbanke);
end;
end;
if s=false then
begin
writeln('nety summy_vklada_v_banke');
end;
readln;
close(fel);
end;
procedure d;
begin
assign(fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
read(fel,max);
writeln('summy_vklada_v_banke', max.summavbanke);
writeln('neviplsumma',max.neviplsumma);
writeln('proc_za_credit',max.prockredit);
writeln('neviplsumma',max.neviplsumma);
writeln('stoimost',max.stoimost);
readln;
end;
close(fel);
end;
begin
writeln('initialising graphics');
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then
begin
clrscr;
writeln('initialising error');
writeln(grapherrormsg(graphresult));
delay(1500);
halt(1);
end;
SetBkcolor(4);
repeat
if B<>1 then
begin
FOR x:=1 to 1000 do
circle(200,420,x);
delay(500);
rectangle(30,60,380,580);
setcolor(B);
OuttextXY(100,40,'MISTERSTVO OBRAZOVANIYA I NAYKI UKRAINY');
Setcolor(B);
OuttextXY(180,80,'GOSUDARSTVENNUJ UNNIVERSITET');
setcolor(B);
OuttextXY(130,65,'KAFEDRA INFORMACIONNUH TECHOLOGIJ PROEKTIROVANIYA');
setcolor(B);
OuttextXY(255,155,'KYRSOVAYA ROBOTA');
setcolor(B);
OuttextXY(265,175,'po displine');
setcolor(B);
OuttextXY(105,190,'osnovy programirovaniya i algoritmicheskie yaziki');
setcolor(B);
OuttextXY(90,330,'Vypolnil:');
setcolor(B);
OuttextXY(390,320,'student gruppy IT');
setcolor(B);
OuttextXY(390,340,'Ale Mase');
setcolor(B);
OuttextXY(90,360,'Variant');
setcolor(B);
OuttextXY(380,360,'3');
setcolor(B);
OuttextXY(390,390,'S.M.');
setcolor(B);
OuttextXY(280,460,'2009');
delay(1500);
end;
until keypressed;
closegraph;
begin
repeat
clrscr;
writeln('1-new file');
writeln('2-niyti klienta');
writeln('3-nevipl.summa');
writeln('4-podshet file');
writeln('5-quit');
writeln;
write('choose:');
readln(i);
if i=1 then pr;
if i=2 then klient;
if i=3 then r;
if i=4 then d;
until i=5;
end.
Сообщение отредактировано: Lapp -
