Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Юлия575
0 / 0 / 0
Регистрация: 03.01.2015
Сообщений: 33
#1

Изменить цвет квадратов

21.05.2015, 17:54. Просмотров 317. Ответов 3
Метки нет (Все метки)

Помогите,пожалуйста,нужно,чтобы цвет квадратов менялся.
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
31
32
33
34
35
36
uses ABCObjects;
var
r: RoundSquareABC;
i,j: integer;
 
procedure MoveAll(a,b: integer);
var j: integer;
begin
  for j:=1 to Objects.Count do
    Objects[j].moveOn(a,b); // ÏåðåìåùåГ*ГЁГҐ ГЈГ°Г*ГґГЁГ·ГҐГ±ГЄГЁГµ îáúåêòîâ
end;
 
begin
//  LockDrawingObjects; Áëîêèðóåò ðèñîâГ*Г*ГЁГҐ ГЈГ°Г*ГґГЁГ·ГҐГ±ГЄГЁГµ îáúåêòîâ. ÂîçìîæГ*Г* ëèøü ïåðåðèñîâêГ* ГўГ±ГҐГЈГ® ГЅГЄГ°Г*Г*Г* âìåñòå Г±Г® âñåìè ГЈГ°Г*ôè÷åñêèìè îáúåêòГ*ìè Г*Г* Г*ГҐГ¬ âûçîâîì RedrawObjects.
 
 
r:=CreateRoundSquareABC(50,50,100,30,RGB(295,120,130));
r:=CreateRoundSquareABC(59,60,120,10,RGB(795,171,120));
r:=CreateRoundSquareABC(70,90,140,38,RGB(335,180,170));
r:=CreateRoundSquareABC(70,90,130,25,RGB(135,130,140));
MoveAll(160,110);// ГђГ*ñïîëîæåГ*ГЁГҐ ïðåäìåòîâ ГЇГ® öåГ*òðó(Г§Г*Г¤Г*ВёГ¬ êîîðäèГ*Г*ГІГ»)
 
 
 
  LockDrawingObjects;
  RedrawObjects;// ÏåðåðèñîâêГ* ГўГ±ГҐГЈГ® ГЅГЄГ°Г*Г*Г* âìåñòå Г±Г® âñåìè ГЈГ°Г*ôè÷åñêèìè îáúåêòГ*ìè Г*Г* Г*ГҐГ¬.
  while True do
  begin
    for j:=1 to Objects.Count do
      Objects[j].moveOn(Random(3)-1,Random(3)-1);
      Objects[j].moveOn(Random(3)-1,Random(3)-1);
      Objects[j].moveOn(Random(3)-1,Random(3)-1);//ÏåðåìåùГ*ГҐГІ ГЈГ°Г*ГґГЁГ·ГҐГ±ГЄГЁГ© îáúåêò Г*Г* âåêòîð a, b.
 
RedrawObjects;
  end;
end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2015, 17:54
Ответы с готовыми решениями:

Изменить цвет окна консоли
Uses CRT; Begin TextColor(White); TextBackground(LightBlue);...

Изменить цвет фона консоли
как сделать цвет фона всего окна сразу?? program ti; uses crt; type...

Как изменить цвет графического окна
Выполняю работу по графике в Паскале. Нужно нарисовать фигуры белого цвета,...

Модуль crt: изменить цвет экрана 16 раз
Используя возможности модуля Crt для работы в экране в текстовом режиме,...

Подпрограммы. Найти пять чисел, чтобы сумма квадратов наибольших равнялась сумме квадратов трех остальных
Попытайтесь найти пять идущих подряд целых чисел, таких, чтобы сумма квадратов...

3
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
22.05.2015, 13:19 #2
Pascal
1
2
3
4
5
6
7
8
9
while True do
   begin
    for j:=1 to Objects.Count do
     begin
      Objects[j].moveOn(Random(3)-1,Random(3)-1);
      Objects[j].color:=clrandom
     end;
    RedrawObjects;
  end;
0
Юлия575
0 / 0 / 0
Регистрация: 03.01.2015
Сообщений: 33
22.05.2015, 13:30  [ТС] #3
Спасибо!
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
22.05.2015, 13:32 #4
Вместо строк 27-35
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2015, 13:32

На прямоугольнике размещено максимально возможное количество квадратов. Найти количество квадратов и площадь незанятой части прямоугольника
1.Даны целые положительные числа A,B,C. На прямоугольнике размером A х B...

Существует ли такая четвёрка последовательных натуральных чисел,сумма квадратов которых равна сумме квадратов трёх следующих натуральных чисел
Помогите с задачами пожалуйста!!! задача 2. Определить,существует ли такая...

Изменить данную программу организовав чтение исходных данных из текстового файла изменить размерность массива на квадратную матрицу 5х5
Изменить данную программу организовав чтение исходных данных из текстового...


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

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

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