Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
klaRRk
0 / 0 / 0
Регистрация: 29.04.2014
Сообщений: 1
1

Нарисовать движущийся прямоугольник с нижнего правого угла в верхний левый змейкой

03.05.2014, 06:54. Просмотров 805. Ответов 1
Метки нет (Все метки)

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

Движение слова с нижнего правого угла в левый верхний
Нужно чтобы слово двигалось с с нижнего правого угла в левый верхний. ...

Заполнить матрицу змейкой, начиная с правого верхнего угла
2)Заполнить двумерный массив m на n (m и n вводятся с клавиатуры, оба числа не...

Непрерывно перемещать по возвратно-поступательным траектории с левого верхнего до правого нижнего угла экрана графический объект
Нужно на экзамен! Непрерывно перемещать по возвратно-поступательным траектории...

Заполнить массив против часовой стрелки начиная с нижнего правого угла
Заполнить массив против часовой стрелки начиная с нижнего правого угла размер...

Подсчитать, сколько раз за нулем следует положительное число, если обходить таблицу по спирали против часовой стрелки, начиная с нижнего правого угла.
Пожалуйста помогите!:help: Задача: Подсчитать, сколько раз за нулем следует...

1
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,319
03.05.2014, 08:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
37
38
39
40
41
uses graphABC;
var x,y,k,w,h,p:integer;
begin
k:=5; //нечетное число
w:=windowwidth div k;//ширина
h:=windowheight div k;//высота
lockdrawing;
x:=windowwidth-w;//в правый нижний
y:=windowheight-h;
p:=0;//количество проходов
repeat
while x>0 do //влево
 begin
  clearwindow;
  rectangle(x,y,x+w,y+h);
  sleep(20);
  x:=x-4;
  redraw;
 end;
y:=y-h;//на 1 вверх
p:=p+1;//считаем
while x<windowwidth-w do //вправо
 begin
  clearwindow;
  rectangle(x,y,x+w,y+h);
  sleep(20);
  x:=x+4;
  redraw;
 end;
y:=y-h;
p:=p+1
until p=k-1;//четное число проходов
while x>0 do //последний проход влево
 begin
  clearwindow;
  rectangle(x,y,x+w,y+h);
  sleep(20);
  x:=x-4;
  redraw;
 end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2014, 08:08

Начиная с нижнего левого угла екрана нарисовать треугольники
как можно начиная с нижнего левого угла екрана нарисовать треугольники

Нарисовать на экране движущийся по вертикальной восьмерке экрана(или по квадрату) прямоугольник размером WxH
Помогите написать программу.....хотя бы наброски какие-нибудь......Нарисовать...

Спираль из нижнего правого -вверх
Помогите написать матрицу, не пойму как это сделать.:( Нужно сгенерировать...


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

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

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