Графика в паскале
Автор Михаил Соколов задал вопрос в разделе Другие языки и технологии
Написать программу на 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.
Есть ли 3д графика в паскале абс нет.
> Есть ли 3д графика в паскале абс нет.
А почему бы и нет?
> если не трудно,
подробнее...
турбо паскаль
Доброго времени суток.
Вот пример рисования в паскале. Такой незамысловатый рисунок.
Графика в паскале
Третий параметр в инитграф, это путь к файлу *.bgi (обычно egavga.bgi) или пустая строка, если этот
подробнее...
где можно скачать бесплатно книгу Н. Культин "Delphi в задачах и примерах"?
нахер он тебе нужен)) его же в библиотеке нам дали
подробнее...
ПАСКАЛЬ и ГРАФИКА
Подпрограммы для работы с пером
Рисование линий осуществляется текущим пером. Доступ к
подробнее...
графика в паскале абс. как построить график, если дана функция?
вот посмотри как
program grkrug;
uses graphABC,crt;
var
x,y:integer;
подробнее...
Что такое Delphi и с чем это едят?:)
Delphi- это среда программирования на языке Паскаль (Pascal), Среда как таковая требуется для
подробнее...
Чем отличается Free Pascal от Turbo Pascal?
Необходимость в библиотеках зависит исключительно от используемого кода. Free Pascal содержит
подробнее...
Как в паскале залить цветом (любым) трапецию?
Процедура FloodFill. Заполняет произвольную замкнутую фигуру, используя текущий стиль заполнения
подробнее...
Научите рисовать в паскале ( Pascal ) хотябы основы в двух словах
В собственно Паскале нет графики. Рисуют подпрограммами модуля, обычно называющегося Graph, в
подробнее...
Как создать оконный интерфейс программы в паскале. И ещё несколько вопросов...
GraphDriver := Detect;
DetectGraph(GraphDriver, GraphMode);
if (GraphDriver = EGA64)
подробнее...
А кто такой Паскаль Кэмпион (Pascal Campion) в мире искусства? Что вы слышали, что вы знаете о его творчестве?
Паскаль Кэмпион-- французский художник, который в настоящее время проживает в Америке. Искусство
подробнее...
для чего нужна высшая математика в программировании.
//натуральные логарифмы или экспоненты или еще какая нибудь билеберда (пока еще школьник с этим не
подробнее...