0 / 0 / 1
Регистрация: 26.10.2013
Сообщений: 29

Анимация: человечек по желанию пользователей либо махает правой рукой, либо левой или правой ногой

26.10.2013, 18:12. Показов 1766. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
написать программу, при помощи которой человечек будет по желанию пользователей либо махать правой рукой, либо левой или правой ногой. в PascalABC
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.10.2013, 18:12
Ответы с готовыми решениями:

Можно ли как то поставить удары левой рукой так же как и правой?
я правша, правые бодрые, а вот левая подводит, левая есть левая, можно ли как то поставить удары левой рукой так же как и правой?

При нажатии левой клавиши "мыши" отразить курсор в левой половине экрана, а при нажатии правой - в правой
При нажатии левой клавиши "мыши" отразить курсор в левой половине экрана, а при нажатии правой - в правой, использовав в случае...

Нажимаю на какой либо файл правой кнопкой у меня гаснет монитор
Ребят... подниму тему. Такая проблема! Видуха Nvidia Geforce 7600 GS. Вобщем недавно начались проблемы, может и не видеокарта виновата...

4
27 / 6 / 3
Регистрация: 24.10.2013
Сообщений: 43
26.10.2013, 22:38
нарисуй человечка
0
0 / 0 / 1
Регистрация: 26.10.2013
Сообщений: 29
27.10.2013, 09:48  [ТС]
Цитата Сообщение от NewMind Посмотреть сообщение
нарисуй человечка
вот человек, а дальше что?
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
Program wrt;
uses GraphABC,crt;
begin
SetWindowSize(500,500);
Circle(250, 100, 50);
FloodFill(250, 100, clRed);
Rectangle(200, 150, 300, 300);
SetBrushColor(clGreen);
FillRect(200, 150, 300, 300);
SetPenColor(clBlack);
Line(200, 300, 200, 360);
LineTo(220,420);
Line(300, 300, 300, 360);
LineTo(280,420);
Line(200, 150, 150, 200);
LineTo(90,y);
Line(300, 150, 400, 260);
SetBrushColor(clBlue);
Ellipse(180,410,230,440);
Ellipse(330,410,280,440);
SetBrushColor(clYellow);
Pie(400,250,20,20,300);
Arc (70,y,20,200,100) ;
end.
0
27 / 6 / 3
Регистрация: 24.10.2013
Сообщений: 43
27.10.2013, 11:30
откуда взялся у в коде? где он в разделе вар? вы запускали программу?
1
0 / 0 / 1
Регистрация: 26.10.2013
Сообщений: 29
27.10.2013, 15:54  [ТС]
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

все у меня получилось. Вот
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Program wrt;
uses GraphABC,crt;
var a,y,x :integer;
procedure qwe;
begin
clearwindow;
SetWindowSize(500,500);
Circle(250, 100, 50);
FloodFill(250, 100, clRed);
Rectangle(200, 150, 300, 300);
SetBrushColor(clGreen);
FillRect(200, 150, 300, 300);
SetPenColor(clBlack);
Line(200, 300, 200, 360);
LineTo(220,420);
SetBrushColor(clBlue);
Ellipse(180,410,230,440);
18SetBrushColor(clYellow);
end;
BEGIN
     y:=200;
     x:=300;
     writeln('введите 1,2 или 3');
     readln(a);
          if a=1 then
             repeat
             if y=200 then
                while y>160 do begin
                      y:=y-1;
                      if y=161 then
                         while y<200 do
                               y:=y+1;
                               begin
                                    Delay(50);
                                    clearwindow;
                                    qwe;
                                    Line(300, 300, 300, 360);
                                    LineTo(290,420);
                                    Line(300, 150, 430, 260);
                                    Line(200, 150, 150, 200);
                                    LineTo(90,y);
                                    Arc (70,y,20,200,100) ;
                                    Pie(430,250,20,20,300);
                                    SetBrushColor(clBlue);
                                    Ellipse(330,410,280,440);
                               end;
                end;
            until false;
          if a=2 then
            repeat
             if y=200 then
                 while y>160 do begin
                      y:=y-1;
                             if y=161 then
                                while y<200 do
                                y:=y+1;
                                       begin
                                       Delay(50);
                                       clearwindow;
                                       qwe;
                                       Line(300, 300, 300, 360);
                                       LineTo(290,420);
                                       Line(200, 150, 150, 200);
                                       LineTo(90,187);
                                       Line(300, 150, 430, y);
                                       Pie(430,y,20,20,300);
                                       Arc (70,184,20,200,100) ;
                                       SetBrushColor(clBlue);
                                       Ellipse(330,410,280,440);
                 end;
                                       end;
           until false;
       if a=3 then
          repeat
               if x=300 then
                  while x>270 do begin
                           x:=x-1;
                              if x=271 then
                                while x<300 do
                                 x:=x+1;
                                       begin
                                       Delay(50);
                                       clearwindow;
                                       qwe;
                                       Line(200, 150, 150, 200);
                                       LineTo(90,187);
                                       Line(300, 150, 430, 260);
                                       Arc (70,184,20,200,100) ;
                                       Pie(430,250,20,20,300);
                                       Line(300, 300, 300, 360);
                                       LineTo(x,420);
                                       SetBrushColor(clBlue);
                                       Ellipse(x,410,x+50,440);
 
                  end;
                                       end;
          until false;
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.10.2013, 15:54
Помогаю со студенческими работами здесь

Время от времени в правой или левой колонке пропадает звук
Помогите пожалуйста! Поблема в том, что время от времени в правой или левой колонке пропадает звук, заметил также что это происходит...

Обработка клика левой или правой кнопкой мыши по ячейке DataGridView
Здравствуйте, помогите пожалуйста, в dataGridView1 я вывожу массив клеток с цифрами, я сделал чтобы по нажатию как какую нибудь из этих...

Дан отрезок. Нужно выяснить, лежит ли он в левой полуплоскости, или в правой
Дан отрезок. Нужно выяснить, лежит ли он в левой полуплоскости, или в правой, или пересекает ось OY. Input Со стандартного устройства...

Нажатие на пункт PopupMenu MenuItem по событию MenuItemClick правой или левой кнопкой мыши
Собственно никак не получается. Надо, чтобы по левой работал код пункта, а по правой только чекинг ставился... по...

Для матрицы A определить, в какой из ее половин (левой или правой) больше нулевых элементов
Для матрицы A (5 строк, 4 столбца) определить, в какой из ее половин (левой или правой) больше нулевых элементов (вывести одно из...


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

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

Новые блоги и статьи
Звёздная пыль
kumehtar 20.06.2025
Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch
AI_Generated 19.06.2025
Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .
JWT аутентификация в ASP.NET Core
UnmanagedCoder 18.06.2025
Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С#
aaLeXAA 18.06.2025
Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru