Автор Алексей Чешуин задал вопрос в разделе Другие языки и технологии
Не работает GraphABC в PascalABC и получил лучший ответ
Ответ от Ponyfag1337[гуру]
ты рисуешь белый круг на белом фоне
Ответ от Евгений Попов[гуру]
PenColor: поменяй на другой
PenColor: поменяй на другой
Ответ от F f[активный]
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
var c(n..,m..) of color;
begin
n:=7;
m:=7;
brush.color(c)
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clwhite);
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
var c(n..,m..) of color;
begin
n:=7;
m:=7;
brush.color(c)
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clwhite);
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.
Ответ от ?*PeAr^MRmlAdE?™[мастер]
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
begin
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clred);//в этой строчке цвет не должен быть белым (clwhite), а, например, clred, clblack, clgreen
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.
program chetverg;
uses crt,graphabc;
var x,y,dx,dy,r:integer;
begin
setwindowsize(1200,800);
x:=600;y:=200;r:=20;dx:=1;
dy:=10;
repeat setpencolor(clred);//в этой строчке цвет не должен быть белым (clwhite), а, например, clred, clblack, clgreen
circle(x,y,r);
if x>1200 then dx:=-random(5)-5;
if x>20 then dx:=random(5)+5;
if y>20 then dy:=random(5)-5;
if y>800 then dy:=-5;
x:=x+dx;y:=y+dy;
until keypressed;
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Не работает GraphABC в PascalABC
Как в Pascal ABC с помощью модуля graph abc нарисовать это
Решение на Pascal ABC
program star;
uses graphabc;
var k, xw, s: integer;
Как сделать анимацию в Paskal Abc.net ?
uses
GraphABC;
var
x : integer;
begin
//for x := 0 to 500 do
подробнее...
спросили в Grave
Подскажите, почему, когда запускаю любую нормальную программу в Pascal ABC. Выдаеться Ошибка:Модуль Graph не найден.
Стандартная проблема неправильно установленного паскаля.
Options >> Directories
подробнее...
Подскажите, почему, когда запускаю любую нормальную программу в Pascal ABC. Выдаеться Ошибка:Модуль Graph не найден.
Стандартная проблема неправильно установленного паскаля.
Options >> Directories
подробнее...
спросили в Vocaloid
Написать программу на Pascal ABC с графикой
program salyt;
uses crt,graphABC;
var vx,vy: integer;
procedure Vzlet(x,k:
подробнее...
Написать программу на Pascal ABC с графикой
program salyt;
uses crt,graphABC;
var vx,vy: integer;
procedure Vzlet(x,k:
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
ПАСКАЛЬ и ГРАФИКА
Подпрограммы для работы с пером
Рисование линий осуществляется текущим пером. Доступ к
подробнее...
Как нарисовать Флаг России на Pascal ABC? Помогоите плизз)
uses Crt,GraphABC;
begin
SetBrushColor(clwhite);
Rectangle(10,10,200,75);
подробнее...
Информатика Pascal ABC Нарисовать простой дом
program dom;
uses graphABC;
begin
setwindowwidth(700);
setwindowheight(700);
спросили в Gorillaz
Кто знает, как работать в Pascal ABC?
{Вот программа с елкой: }
program grelka;
Uses GraphABC;
Begin
Кто знает, как работать в Pascal ABC?
{Вот программа с елкой: }
program grelka;
Uses GraphABC;
Begin
Помогите сделать два рисунка в Pascal ABC Помогите сделать два любых рисунка из символов в Pascal ABC
uses graphABC;
begin
setwindowsize(350,300);
setpenwidth(3);
спросили в Randomness
Движение, анимация в Pascal ABC. HELPP!)
Запихни смайл в цикл, и каждый прогон увеличивай координаты на
подробнее...
Движение, анимация в Pascal ABC. HELPP!)
Запихни смайл в цикл, и каждый прогон увеличивай координаты на
подробнее...
спросили в Randomness Игры Level 5
Приведите пример игры которая написана на Pascal ABC.
uses GraphABC, crt;
label metka,metka2;
var x,y: array [1..100] of integer;
Приведите пример игры которая написана на Pascal ABC.
uses GraphABC, crt;
label metka,metka2;
var x,y: array [1..100] of integer;
спросили в Randomness
Помогите.. Как двигать например круги в паскале?
рисовать, например, со смещенным
подробнее...
Помогите.. Как двигать например круги в паскале?
рисовать, например, со смещенным
подробнее...
спросили в Randomness
Напишите программу в PascalABC, рисующую движущийся рисунок, с помощью цикла for и простых команд (используя GraphABC).
program car1; uses graphabc, crt;
Var x:integer;
procedure car(x0,y0: integer);
Напишите программу в PascalABC, рисующую движущийся рисунок, с помощью цикла for и простых команд (используя GraphABC).
program car1; uses graphabc, crt;
Var x:integer;
procedure car(x0,y0: integer);