Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:asd / корзина / лекции по TP / Lecture_Pascal / graph / RAKETA
.PAS program ball;
uses graph,crt;
var
graphdriver,graphmode : integer;
c,c1,c2,c3 : integer;
{*****************************************************}
procedure qwer;
var c,c1,c2,c3,i :integer;
{--------------------------------}
procedure picture(col:word);
begin
setcolor(col);
line(400,350,350,350+c3);
circle(350+c,50+c1,10)
end;
{--------------------------------}
procedure picture1(col:word);
begin
setcolor(col);
circle(350+c,50+c1,10)
end;
{--------------------------------}
procedure picture2(col:word);
begin
setcolor(col);
line(400,350,350,350+c3)
end;
{--------------------------------}
begin
c:=0;c1:=0;c2:=0;c3:=0;
repeat
picture(white);
delay(50);
picture(black);
if (c1<=287) and (c=0) then c1:=c1+5
else if (c1>287) and (c1<300) then
begin
c1:=c1+1;
c3:=c3+1;
end;
if (c1>=300) then
begin
for i:=1 to 40 do
begin
picture1(white);
delay(70);
picture1(black);
c1:=c1-i;
c:=c-i;
c3:=c3-i;
if c3>=0 then begin c3:=c3;
picture2(white);
delay(50);
picture2(black)
end;
if c<=-7 then
begin
c3:=0;
picture2(white) end
end
end;
until keypressed
end;
{*****************************************************}
begin
graphdriver:=detect;
clrscr;
initgraph(graphdriver,graphmode,'d:\tp70\bgi');
setbkcolor(black);
c:=0; c1:=0; c2:=0; c3:=0;
qwer;
readln;
closegraph
end.
uses graph,crt;
var
graphdriver,graphmode : integer;
c,c1,c2,c3 : integer;
{*****************************************************}
procedure qwer;
var c,c1,c2,c3,i :integer;
{--------------------------------}
procedure picture(col:word);
begin
setcolor(col);
line(400,350,350,350+c3);
circle(350+c,50+c1,10)
end;
{--------------------------------}
procedure picture1(col:word);
begin
setcolor(col);
circle(350+c,50+c1,10)
end;
{--------------------------------}
procedure picture2(col:word);
begin
setcolor(col);
line(400,350,350,350+c3)
end;
{--------------------------------}
begin
c:=0;c1:=0;c2:=0;c3:=0;
repeat
picture(white);
delay(50);
picture(black);
if (c1<=287) and (c=0) then c1:=c1+5
else if (c1>287) and (c1<300) then
begin
c1:=c1+1;
c3:=c3+1;
end;
if (c1>=300) then
begin
for i:=1 to 40 do
begin
picture1(white);
delay(70);
picture1(black);
c1:=c1-i;
c:=c-i;
c3:=c3-i;
if c3>=0 then begin c3:=c3;
picture2(white);
delay(50);
picture2(black)
end;
if c<=-7 then
begin
c3:=0;
picture2(white) end
end
end;
until keypressed
end;
{*****************************************************}
begin
graphdriver:=detect;
clrscr;
initgraph(graphdriver,graphmode,'d:\tp70\bgi');
setbkcolor(black);
c:=0; c1:=0; c2:=0; c3:=0;
qwer;
readln;
closegraph
end.
Соседние файлы в папке graph