Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
castiloc
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 5
1

Модуль Graph, Crt

19.06.2011, 16:33. Просмотров 1292. Ответов 3
Метки нет (Все метки)

Пожалуйста напишите текст программы на движущийся квадрат вниз а потом наверх,цвет не важен)за ранее спасибо

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2011, 16:33
Ответы с готовыми решениями:

CRT совместно с Graph
Всем добрый вечер! Столкнулся с такой проблемой: работую с модулем Graph,...

Модуль CRT
Здравствуйте! Помогите, пожалуйста. Как написать такую программу на Pascal?

модуль CRT
не удивляйтесь вопросу, но мне очень нужно узнать ,что-то дополнительно...

Модуль CRT
У меня есть такого вида меню: uses crt; var s,s1,s2,s3,s4:string;...

Модуль CRT
Задание: 1. Напишите 3 подпрограммы, каждая из которых будет выдавать заданную...

3
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,608
19.06.2011, 16:34 2
Цитата Сообщение от castiloc Посмотреть сообщение
на летящий квадрат вниз а потом наверх
Это как? С крыльями?
1
castiloc
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 5
19.06.2011, 16:41  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Это как? С крыльями?
ахах ну движущейся)
0
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,608
19.06.2011, 16:56 4
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
uses crt,graph;
var x,y,a:integer;
begin
initgraph(x,y,'');
a:=30;
x:=(getmaxX-a) div 2;
y:=a div 2;
while y<getmaxY-a do
 begin
  setcolor(13);
  rectangle(x,y,x+a,y+a);
  delay(50);
  setcolor(0);
  rectangle(x,y,x+a,y+a);
  y:=y+2;
 end;
while y>5 do
 begin
  setcolor(13);
  rectangle(x,y,x+a,y+a);
  delay(50);
  setcolor(0);
  rectangle(x,y,x+a,y+a);
  y:=y-2;
 end;
setcolor(13);
rectangle(x,y,x+a,y+a);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2011, 16:56

Модуль Crt
1. Сгенерировать случайным образом и вывести на экран 8 окон разного цвета и...

Модуль Crt....
немогу никак доделать задачку ... &quot;. Создать программу «Электронно -...

Модуль Crt
Нужно написать программу с использованием модуля CRT: Организовать перемещение...


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

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

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