Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Tenned
0 / 0 / 1
Регистрация: 12.03.2012
Сообщений: 33
#1

Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет - Turbo Pascal

21.03.2012, 19:57. Просмотров 1560. Ответов 1
Метки нет (Все метки)

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на розовый и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2012, 19:57
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет (Turbo Pascal):

Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана
Нарисовать на экране овал зеленого цвета, который движется по вертикали по центру экрана. При достижении границы экрана овал меняет цвет на...

Нарисовать графический объект звезда, который меняет цвет через каждые 5 секунд
Нарисовать графический объект звезда, который меняет цвет через каждые 5 секунд.

Модуль Graph - не закрашиваются края в черный цвет
Нужно края в черный закрасить, вроде все задал, а они все равно белые вот прога: Program pr; uses crt,graph; var ...

Модуль Graph: изменить цвет фигур и линий
Как сделать, что бы цвет линий, фигур был черным? Когда я пишу SetColor(0); , то линии делаются прозрачными, и тогда и не рисунка нету и с...

Нарисовать прямоугольник, который движется по синусоиде вдоль экрана
Нарисовать прямоугольник, который, вращаясь вокруг своего центра, движется по синусоиде вдоль экрана.

Модуль GRAPH: нарисовать шестиугольник
Написать программу, которая вычерчивает на экране шестиугольник. Используйте заливку и перемещение фигуры по экрану с задержкой в 500 мс.

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
21.03.2012, 20:47 #2
Tenned, см. здесь... и пользуйтесь поиском, помогает, правда =)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2012, 20:47
Привет! Вот еще темы с решениями:

Модуль Graph. Нарисовать цветок
Написать программу, которая рисовала бы цветок Написати програму яка малювала б квітку.

Модуль Graph: нарисовать улитку
http://img138.imageshack.us/i/ulitka.jpg/ подскажите как эту хрень дорисовать. я замучался. вот код program ulitka; uses graph; ...

Нарисовать на экране круг зеленого цвета, который движется по горизонтали
Нарисовать на экране круг зеленого цвета, который движется по горизонтали, при достижении границы экрана превращается в квадрат и начинает...

Нарисовать на экране прямоугольник желтого цвета, который движется по горизонтали
Нарисовать на экране прямоугольник желтого цвета, который движется по горизонтали, в прямом и обратном направлении, и за ним тянется «след»...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru