Графика в паскале
Автор Михаил Соколов задал вопрос в разделе Другие языки и технологии
Написать программу на Pascal ABC с графикой и получил лучший ответ
Ответ от Георгий Зотиков[гуру]
program salyt;
uses crt,graphABC;
var vx,vy: integer;
procedure Vzlet(x,k: integer);
var i,y: integer;
begin
y:=500;
for i:=1 to 100 do
begin
setbrushcolor(clwhite);
setpencolor(clwhite);
circle(x,y,5);
if i>10 then
begin
setbrushcolor(clblack);
setpencolor(clblack);
circle(x-(k*10),y+(4*10),5);
end;
y:=y-4;
x:=x+k;
sleep(10);
end;
end;
procedure Bach (x,y: integer);
var i,j,kx,ky: integer;
begin
for j:=1 to 6 do
begin
clearwindow(clblack);
for i:=1 to 100 do
begin
setbrushcolor(rgb(random(255),random(255),random(255));
setpencolor(rgb(random(255),random(255),random(255));
repeat
kx:=random(200)-100;
ky:=random(200)-100;
until sqr(kx)+sqr(ky)<sqr(100);
circle(x+kx,y+ky,6-j);
sleep(1);
end;
y:=y+10;
sleep(50);
end;
end;
begin
hidecursor;
setwindowsize(800,500);
clearwindow(clblack);
repeat
vx:=random(400)+200;
vy:=random(6)-3;
Vzlet(vx,vy);
Bach (vx+(vy*100),random(100)+100);
until keypressed;
end.
cublen
(67139)
программа не работает, ошибки
Писал чот такое уже хДД
uses crt, graphABC;
var x11,x12, x21, x22, xp:integer;
procedure stakan;
begin
ellipse(150,20,340,30);
line(150,25,110,330);
line(340,25,380,330);
ellipse(110,325,380,335);
end;
procedure tarakan1;
begin
ellipse(x11-50,320,x11,330);
FloodFill(x11-45,325, clBlack);
line(x11-45,325,x11-65,320);
line(x11-45,325,x11-65,315);
line(x11-35,325,x11-45,333);
line(x11-25,325,x11-15,333);
line(x11-30,325,x11-30,333);
end;
procedure tarakan2;
begin
ellipse(x21,320,x21+50,330);
FloodFill(x21+45,325, clBlack);
line(x21+45,325,x21+65,320);
line(x21+45,325,x21+65,315);
line(x21+35,325,x21+45,333);
line(x21+25,325,x21+15,333);
line(x21+30,325,x21+30,333);
end;
begin
while true do
begin
x11:= 370; //Координата жопы таракана, бегущего налево
x12:= 180; //Координата кончика усов таракана, бегущего налево
x21:= x12-50;
x22:= x11-60;
xp:= round(x21+(x22-x21)/2);
while x11 > x12 do
begin
clrscr;
stakan;
tarakan1;
sleep(5);
x11:=x11-1;
end;
while x21 < x22 do
begin
clrscr;
stakan;
tarakan2;
if (x21 = xp) then
begin
TextOut(xp, 260, 'Памагити! ');
line(xp+30, 280, xp+40, 310);
sleep(1000);
end;
sleep(5);
x21:=x21+1;
end;
end;
end.
И вот:
uses crt, graphABC;
procedure stakan;
begin
ellipse(110,20,380,30);
line(110,25,150,330);
line(380,25,340,330);
ellipse(150,325,340,335);
end;
procedure tarakan1_1;
begin
ellipse(220,315,270,325);
FloodFill(225,320, clBlack);
line(225,320,205,315);
line(225,320,205,310);
line(245,320,245,333);
line(250,320,260,333);
end;
procedure tarakan1_2;
begin
ellipse(210,315,260,325);
FloodFill(215,320, clBlack);
line(215,320,195,315);
line(215,320,195,310);
line(235,320,245,333);
line(240,320,260,333);
end;
procedure tarakan2;
begin
ellipse(200,320,250,330);
FloodFill(205,325, clBlack);
line(205,325,185,320);
line(205,325,185,315);
line(215,325,205,333);
line(225,325,235,333);
line(220,325,220,333);
end;
begin
while true do
begin
stakan;
tarakan2;
tarakan1_1;
sleep(500);
clrscr;
stakan;
tarakan2;
tarakan1_2;
sleep(500);
clrscr;
end;
end.