|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2011, 10:26 | #1 |
Пользователь
Регистрация: 13.10.2011
Сообщений: 11
|
почему не выполняется 3-е движение? Код на Pascal ABC.NET
uses GraphABC;
var x,y:integer; begin Window.Title := 'Движение точки'; Brush.Color := clBlack; x:=50; for y:= 100 to 400 do begin Window.Clear(clWhite); Circle(x,y,2); sleep(5); end; x:=0; y:=0; y:=400; for x:=50 to 300 do begin Window.Clear(clWhite); Circle(x,y,2); sleep(5); end; y:=0; x:=0; x:=300; for y:=400 to 50 do begin Window.Clear(clWhite); Circle(x,y,2); sleep(5); end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ABC.NET | gogomon93 | Помощь студентам | 4 | 01.12.2013 17:56 |
движение языков пламени или костер (огонь) - графика на 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 |
Pascal ABC .NET | no4_sniper | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 17.10.2009 00:21 |