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

Графика: нарисовать идущего человека

03.10.2011, 14:05. Просмотров 5754. Ответов 1
Метки нет (Все метки)

Вот еще одно задание... Даже не знаю с чего начать... Помогите советом или делом...
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2011, 14:05
Ответы с готовыми решениями:

Графика. Нарисовать человека
Графика. Нарисовать человека: круглая голова, треугольное туловище, ноги и руки тоже треугольные но...

Графика в паскале: нарисовать человека
Здравствуйте! Помогите, пожалуйста, нарисовать в паскале человечка, нужно чтобы при перемещении...

Создать идущего человека
Создать идущего человека (без процедур).

Изобразить идущего человека
В рисованных мультфильмах иллюзия движения создается последовательной сменой кадров, каждый из...

Нарисовать человека
Изобразить на экране ЭВМ следующий рисунок:

1
Puporev
Модератор
57824 / 44052 / 30420
Регистрация: 18.05.2008
Сообщений: 105,360
03.10.2011, 14:14 2
Лучший ответ Сообщение было отмечено GK_NooB как решение

Решение

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
uses GraphABC;
procedure P1(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x-15,y+100);
line(x,y+70,x+15,y+100);
end;
procedure P2(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
repeat
  LockDrawing;
  ClearWindow;
  setpenwidth(3);
  if odd(i) then P1(x,y)
  else P2(x,y);
  setpenwidth(10);
  line(0,y+100,windowwidth,y+100);
  Redraw;
  Sleep(500);
  x:=x+5;
  i:=i+1;
until x>=windowwidth-20;
end.
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2011, 14:14

Нарисовать человека
как решить задачу?Правила форума п. 5.5: Запрещено размещать тему в нескольких разделах...

Нарисовать лицо человека и раскрасить его
Помогите нарисовать лицо человека и раскрасить его.

Графика. Нарисовать машинку
Не получается покрасить шины в чёрный цвет и эллипсы (ручки шкафчика и фонарь). Program Car; Uses...


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

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

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