Графическая задача на Паскале
Через процедуру сделать мигающий квадрат.. Т.е в центре экрана появляется квадрат, затем исчезает, затем появляется другой, но уже другого цвета и другого размера, затем исчезает, затем другой и т.д. Это продолжается, пока пользователь не нажмет Esc.
:tehnari_ru_837: |
Какой Паскаль - ABC? Free? Turbo? Когда речь о графике, это принципиальнейший момент! Пока подскажу простейший алгоритм. В цикле:
1. Задаем цвет. 2. Рисуем квадрат. 3. Меняем цвет на фоновый. 4. Рисуем тот же квадрат. 5. Переходим к п.1. |
Turbo Pascal.
п.3 - нельзя ли просто сделать отчистку экрана с помощью ClrScr? |
Цитата:
Фу, прошу прощения - поторопился. Не ClrScr (это текстовая CRT-шная команда), а ее графическим аналогом ClearDevice. |
Даже нарисовал программку - самому интересно стало:
Код:
Uses CRT, Graph; |
чорд.. мне тут вообще ничего не понятно, неизвестные команды(
|
Цитата:
|
честно эти команды впервые вижу, мне бы уровень 10 класса) ну там циклы, условия и т.п)
иии..что такое "GetMахХ"? И для чего вводится переменная "А"? |
Цитата:
A - это половина стороны квадрата. В программе сделано так: если H - полная высота экрана, то полная длина стороны квадрата выбирается случайным образом из диапазона (0.1*Н)..(0.9*Н). |
Вложений: 1
А впрочем, ладно - попробую объяснить смысл каждой из команд.
Код:
Uses CRT, Graph; {Подключаем дополнительные модули} |
Часовой пояс GMT +4, время: 17:58. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.