|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2012, 11:57 | #1 |
Пользователь
Регистрация: 21.07.2012
Сообщений: 14
|
Не отображается линия (ABC.NET)
Задача: "Нарисуйте ряд точек по направлению из левого нижнего угла в правый верхний".
Я решил так: uses graphABC; var x, y, i: integer; begin x:= 10; y:= 500; setPencolor(clBlack); repeat PutPixel(x, y, clblack); x:= x + 1; y:= y + 1; until x > 400; end. Не отображается линия, шаг минимален. Подскажите что не так? |
19.12.2012, 12:01 | #2 |
Пользователь
Регистрация: 21.07.2012
Сообщений: 14
|
Я затупок, начальная точка вылезла за пределы отображаемого окна, да ещё линия пошла внис по приращению Y, решение такое:
uses graphABC; var x, y, i: integer; begin x:= 10; y:= 500; repeat PutPixel(x, y, clblack); x:= x + 1; y:= y - 1; until x > 400; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal ABC.NET | gogomon93 | Помощь студентам | 4 | 01.12.2013 17:56 |
Pascal ABC Net | sarkisova_elena | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.02.2012 00:40 |
Pascal ABC.NET | BuTaJI | Помощь студентам | 1 | 26.04.2011 20:10 |
Pascal ABC .NET | no4_sniper | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 17.10.2009 00:21 |