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

Программа движения маятника

22.06.2009, 08:39. Показов 4155. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам


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

программа маятника в PASCAL
Помогите написать прогу, заранее большое спасибо!!!!!!

Программа движения двух окружностей
Написать программу движения двух окружностей.Движутся навстречу друг к другу по...

Программа для движения шарика
Ребята, помогите мне, нужно составить программу для движения шарика:( Помогите пожалуйста, очень...

Найти среднюю скорость движения тела, зная длительность двух интервалов времени и скорости движения тела в них
Заданы длительность двух интервалов времени и соответствующие скорости движения тела. найти среднюю...

1
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
25.02.2010, 19:18 2
Лучший ответ Сообщение было отмечено Alexsandres как решение

Решение

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
uses graph,crt;
const al=Pi/6;
var bgColor,i:byte;
    x,y,dx,dy,dr,h,ErrCode:integer;
    r:word;
    a,da:real;
 
function initializeGraph:integer;
var grDriver:integer;
    grMode:integer;
  begin
  grDriver:=Detect;
  InitGraph(grDriver, grMode, '');
  initializeGraph:=GraphResult;
  end;
 
function getH(a:real):integer;
begin
 getH:=round(400*cos(a));
end;
begin
 ErrCode:=initializeGraph;
 if ErrCode <> grOk then
  writeln('Ошибка инициализации графики: ', GraphErrorMsg(ErrCode))
 else
 begin
 bgColor:=0;
 rectangle(1,1,GetMaxX-1,GetMaxY-1); 
{ обсчитываем движение пока не нажата какая-либо клавиша }
 x:=(GetMaxX-1) div 2; 
 y:=300;
 r:=80;
 dr:=-1;
 da:=-al/30;
 a:=al; { al - угол в радианах, амплитуда качания маятника }
 repeat
  setColor(15);
  circle(x, getH(a), r); { нарисовали }
  { временная задержка - установите свое значение для вашего компьютера }
  Delay(400);
  if ((a<-al) or (a>al)) then { если угол за пределами амплитуды }
   begin
    Delay(3*400);
    da := -da; dr:=-dr;       { меняем направление движения }
   end;
  setColor(bgColor); { цвет фона }
  circle(x, getH(a), r); { стерли }
  inc(r,dr);
  a:=a+da;
 until keyPressed;
  CloseGraph;
 end
end.
1
25.02.2010, 19:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2010, 19:18
Помогаю со студенческими работами здесь

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

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

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

Смоделировать на экране в реальном времени затухающие движения маятника
Здравствуйте! Нужно написать программу на C#. Помогите, пожалуйста. Маятник Смоделировать на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru