Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.03.2018
Сообщений: 7
1
GraphABC

Изобразить движение качели. Длина и высота качели задается. Изобразить на ней сидящих детей

20.03.2018, 14:49. Просмотров 711. Ответов 4
Метки нет (Все метки)

Помогите написать пожалуйста программу: Изобразить движение качели. Длина и высота качели задается. Изобразить на ней сидящих детей.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2018, 14:49
Ответы с готовыми решениями:

качели с видеокартами
мать Asus PSG-MX, дискретная видеокарта Nivida GeForce 8500GT, встроенная - Intel(R) 82945G Express...

Электродвигатель для подвесной качели
Приветствую всех. На форуме я впервые и к элетрике в профессиональном плане не отношусь ни коем...

Качели=Диван + Профиль гипсокартона
Фотография KJCnzE5icZ8

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

4
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28014 / 15740 / 971
Регистрация: 15.09.2009
Сообщений: 67,812
Записей в блоге: 78
20.03.2018, 14:52 2
Цитата Сообщение от Олег228123 Посмотреть сообщение
Помогите написать
чем? ссылок на книжки дать?
0
Alvin Seville
331 / 264 / 131
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
20.03.2018, 14:53 3
Скорее всего под "помогите" имелось ввиду "напишите за меня".
0
0 / 0 / 0
Регистрация: 17.03.2018
Сообщений: 7
20.03.2018, 15:22  [ТС] 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses crt,graphabc;
var
a:=0;
l:integer;
da:=1;
dx:=0;
begin
setwindowsize(600,600);
while true do
    begin
    lockdrawing;
    setpencolor(clblack);
    setpenwidth(6);
    
    line(100,150,100,350);
line(100,150,300,150);
line(300,150,300,350);
    l := round(cos(a*pi/50) * 40);
 
line(150,150,150-dx,300+l);
line(250,150,250+dx,300+l);
line(150-dx,300+l,250+dx,300+l);
setpenwidth(2);
setpencolor(clred);
circle(200,200+l,20);
circle(190,190+l,3);
circle(210,190+l,3);
line(200,220+l,200,300+l);
line(200,260+l,230,230+l);
line(200,260+l,170,230+l);
line(200,300+l,180,310+l);
line(180,310+l,180,320+l);
line(200,300+l,220,310+l);
line(220,310+l,220,320+l);
line(188,212+l,212,212+l);
line(200,200+l,200,205+l);
inc(a, da);
        if da > 0 then inc(dx)
        else          dec(dx);
 
        if abs(a) >= 25 then da := -da;
       delay(2);
       redraw;
       clearwindow;
       sleep(1);
   
    
        if keypressed then
          break;
end;
end.
0
Alvin Seville
331 / 264 / 131
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
20.03.2018, 15:52 5
Олег228123, константами, например, не вариант?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2018, 15:52

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

Изобразить движение круга
Надо простую программу,например движение круга в Турбо паскаль ,а не в ABC. For I:=1 to 200 do...

Изобразить движение линии
Буду очень благодарен . Нужно что б было Движение линии

Изобразить движение автомобиля
Помогите зделать анимацию машины которая движеться.

Изобразить движение автомобиля
Помогите нарисовать мышку в Паскале, чтобы анимационная была, т.е передвигалась Добавлено через...


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

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

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