Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.12.2012, 21:30   #11
supervova
Пользователь
 
Регистрация: 21.07.2012
Сообщений: 14
По умолчанию

На чистои АБЦ проверил, работает исходный)
Правда с небольшой корректирвкой
uses GraphABC;
var
x,y, i: INTEGER;
begin
x:= 50;
// y:= 200;
repeat
setPenColor(clBlack) ;
circle(x, 200, 30);
sleep(5) ;
setPenColor(clwhite);
circle(x, 200, 30);
x:= x + 1;
until x > 600;
end.

Последний раз редактировалось supervova; 21.12.2012 в 21:44.
supervova вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal ABC Net sarkisova_elena Паскаль, Turbo Pascal, PascalABC.NET 2 07.02.2012 00:40
почему не выполняется 3-е движение? Код на Pascal ABC.NET Рафиль Паскаль, Turbo Pascal, PascalABC.NET 1 23.12.2011 13:01
движение языков пламени или костер (огонь) - графика на Pascal ABC Дариiя Помощь студентам 2 19.06.2011 17:55
Pascal ABC.NET BuTaJI Помощь студентам 1 26.04.2011 20:10
Pascal ABC net DiLLe Паскаль, Turbo Pascal, PascalABC.NET 1 08.06.2010 23:20