Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Unick
не Администратор ^_^
985 / 220 / 23
Регистрация: 03.05.2009
Сообщений: 1,483
Записей в блоге: 1
1

Работа в графическом режиме

10.04.2011, 21:01. Просмотров 716. Ответов 1
Метки нет (Все метки)

Не интересовался графикой в паскале, да и не хочется, а задачку сделать надо) выручайте...
Нарисовать квадрат, который движется по горизонтали, в прямом и обратном направлении, и меняет цвет при достижении границы экрана. Программа завершается нажатием любой клавиши.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2011, 21:01
Ответы с готовыми решениями:

Работа в графическом режиме (Turbo Paskal)
как делать? кто-нибудь вручайте

Меню в графическом режиме
Дайте кто-нибудь пожалуйста текст какой-нибудь зачётной менюшки на n-ое количество пунктов!Буду...

Функции в графическом режиме
Составить график функций e^(-x) и sin x в графическом режиме. помогите пожалуйста....

Вывод текста в графическом режиме
Есть ли у кого нибудь функция для моментального вывода букв и цифр на экран , и занесения значения...

Ввод данных в графическом режиме.
Все доброе время суток. Как сделать ввод данных в графическом режиме? Допустим взять и ввести...

1
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
10.04.2011, 21:31 2
Лучший ответ Сообщение было отмечено Unick как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt,graph;
var gd,gm,x,y,x1,y1,h,d,c:integer;
begin
gd:=0;
initgraph(gd,gm,'');
outtextXY(getmaxX div 2-30,20,'Vyhod - any key');
x:=0;y:=(getmaxY-h) div 2;
h:=50;
c:=0;
repeat
if x<=1 then
 begin
  d:=5;
  c:=c+1;
  if c=16 then c:=1;
 end;
x:=x+d;
setcolor(c);
rectangle(x,y,x+h,y+h);
delay(50);
setcolor(0);
rectangle(x,y,x+h,y+h);
if x>=getmaxX-h then
 begin
  d:=-5;
  c:=c+1;
  if c=16 then c:=1;
 end;
until keypressed;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.04.2011, 21:31

Объясните работу в графическом режиме
Ребят, есть несколько пунктов, что задали на учёбе, раньше паскаль вообще не изучал, а сейчас вот в...

Нарисуйте функцию в графическом режиме
Пожалуйста, помогите нарисовать функцию в графическом режиме. 1)нужно сделать график у...

Вывод матрицы в графическом режиме
как перенести матрицу в графическом режиме??


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

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

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