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

Вертикальные колебания пружинного маятника!

17.12.2013, 18:18. Просмотров 1487. Ответов 2
Метки нет (Все метки)


Написать прогу чтоб маятник был вертикально и ходил вниз и в верх на пружинке
помогите решить)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 18:18
Ответы с готовыми решениями:

Смоделировать колебания пружинного маятника
Помогите, составить программу, моделирующую колебания пружинного маятника (колебания происходят в...

Моделирование вынужденных колебаний пружинного маятника
Тело массой m, закрепленное на пружине жесткостью k, совершает вынужденные колебания под действием...

Построить амплитудно-частотную характеристику пружинного маятника
Построить амплитудно-частотную характеристику пружинного маятника.Программа должна выводить...

Динамические колебания маятника.
помогите кто сможет: 1. Написать программу которая определяет два упорядоченных по возрастанию...

2
0 / 0 / 1
Регистрация: 16.12.2013
Сообщений: 6
19.12.2013, 01:19  [ТС] 2
надо написать програму на паскале abc.net
0
0 / 0 / 1
Регистрация: 16.12.2013
Сообщений: 6
26.12.2013, 00:06  [ТС] 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
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
program apolon;
uses crt, graphABC;
var x,y:integer; i : real;
key:char;
 
procedure Program1;
begin
hidecursor;
repeat
repeat
 
ClearWindow;
line(0,250,10,250);
line(10,250,x+20,y+300);
line(x+20,y+300,x+x+30,y+200);
line(x+x+30,y+200,x+x+x+40,y+300);
line(x+x+x+40,y+300,x+x+x+x+50,y+250);
line(x+x+x+x+50,y+250,x+x+x+x+60,y+250);
 
circle(x+x+x+x+90,250,30);
redraw;
sleep(10);i:=i+pi/100;
 
x:=round(100*(sin(i)));
 
lockdrawing;
until i >= pi;
i:=0;
repeat
i:=i+pi/200;
 
x:=round(100*(sin(i)));
lockdrawing;
ClearWindow;
line(0,250,10,250);
line(10,250,x+20,y+300);
line(x+20,y+300,x+x+30,y+200);
line(x+x+30,y+200,x+x+x+40,y+300);
line(x+x+x+40,y+300,x+x+x+x+50,y+250);
line(x+x+x+x+50,y+250,x+x+x+x+60,y+250);
 
circle(x+x+x+x+90,250,30);
redraw;
sleep(10);
until i >= pi;
If i >= pi then i := 0;
until keypressed;
end;
 
procedure Program2;
begin
hidecursor;
repeat
repeat
 
ClearWindow;
line(250,0,250,10);
line(250,10,x+300,y+20);
line(x+300,y+20,x+200,y+y+30);
line(x+200,y+y+30,x+300,y+y+y+40);
line(x+300,y+y+y+40,x+250,y+y+y+y+50);
line(x+250,y+y+y+y+50,x+250,y+y+y+y+60);
 
circle(x+250,y+y+y+y+90,30);
redraw;
sleep(10);i:=i+pi/100;
 
y:=round(100*(sin(i)));
lockdrawing;
until i >= pi;
i:=0;
repeat
i:=i+pi/200;
 
y:=round(100*(sin(i)));
lockdrawing;
ClearWindow;
line(250,0,250,10);
line(250,10,x+300,y+20);
line(x+300,y+20,x+200,y+y+30);
line(x+200,y+y+30,x+300,y+y+y+40);
line(x+300,y+y+y+40,x+250,y+y+y+y+50);
line(x+250,y+y+y+y+50,x+250,y+y+y+y+60);
 
circle(x+250,y+y+y+y+90,30);
redraw;
sleep(10);
until i >= pi;
If i >= pi then i := 0;
until keypressed;
end;
 
procedure Vubir1;
 
begin
ClearWindow;
gotoxy(30,9); write('вибірний маятник');
gotoxy(30,10); write('3.вертикаль');
gotoxy(30,11); write('4.Горизонталь');
repeat
key:=ReadKey;
case key of
'3':
begin
Program1;
end;
'4':
begin
Program2;
end;
end;
until key=#13
end;
 
procedure Vubir;
begin
ClearWindow;
gotoxy(5,5); write('для переходу нажимайте клавішою число що перед словом');
gotoxy(30,9); write('Пружинний маятник');
gotoxy(30,10); write('1.Почати');
gotoxy(30,12); write('2.Вихід');
 
repeat
key:=ReadKey;
case key of 
'1':
Vubir1;
'2':
Exit;
end;
until key=#13
end;
 
begin
repeat 
Vubir;
key:=ReadKey;
until key = #13
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 00:06

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

Смоделировать вынужденные колебания маятника Дафинга
народ помогите пожалуйста написать программу ! задание выглядит так : С модулировать вынужденные...

Гармонические колебания пружинного маятника
Груз массой m=1,095кг , подвешенный к пружине жесткостью к=1,2Н/м , совершает незатухающие...

Уравнение колебания пружинного маятника в среде
Тело радиуса r на пруж. маятнике колеблется в жидкости - его оттягивают вниз и отпускают. нужно...

Построить математическую модель гармонического колебания пружинного маятника
Здравствуйте. Вот мне в универе задали задачу: Построить мат. модель гармонического колебания...


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

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

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