Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Владбэн
0 / 0 / 1
Регистрация: 18.04.2011
Сообщений: 19
#1

Модель падения тела с высоты - Pascal ABC

22.05.2011, 20:40. Просмотров 558. Ответов 1
Метки нет (Все метки)

При запуске программы выдает ошибку.
Программа должна выдавать модель падения тела с высоты.
http://www.cyberforum.ru/pascalabc/thread386725.html
Не могу найти касяк???

Сама прога:
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
program telo;
uses crt,graph;
var grDriver,grMode,y:integer;
    g,m,v,v0,a,a0,h,
      dt,S,S0,t,k:real;
begin
 g:=10;h:=2000;k:=10;
 m:=100;dt:=sqrt(2*h/g)/100;
 grDriver:=Detect;
 InitGraph(grDriver,grMode,' ');
 circle(300,100,5);
 setfillstyle(5,2);
 bar(200,320,400,330);
 repeat until keypressed;
 t:=0;S0:=0;v0:=0;a0:=g;
 repeat
  t:=t+dt;
  S:=S0+v0*dt+a0*sqr(dt)/2;
  v:=v0+a0*dt;
  a:=(m*g-k*v)/m;
  y:=round(100+S*(320-100)/h);
  setcolor(15);circle(300,y,5 );
  delay(200);
  setcolor(0);circle(300,y,5);
  S0:=S;a0:=a;v0:=v;
 until (S>h) or (y>319);
 setcolor(15);
 circle(300,y,5);
 readln;
 CloseGraph;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2011, 20:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Модель падения тела с высоты (Pascal ABC):

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

Компьютерное моделирование падения тела
Дана программа падения шара. При запуске вводится только радиус шара. Нужно...

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

Вычислить скорость тела массой m которое падает из высоты n около поверхности земли
Вычислить скорость тела массой m которое падает из высоты n около поверхности...

Компьютерная модель демонстрации влияния силы трения при движении тела по наклонной плоскости
Помогите пожаааалуйста написать программу создания компьютерной модели...

1
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
22.05.2011, 21:10 #2
Не могу найти касяк???
И не найдешь, если не понимаешь что программы, написанные для Турбо Паскаля для АВС нужно полностью переделывать. А программа рабочая.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 21:10
Привет! Вот еще темы с решениями:

Определите время свободного падения с высоты H
Помогите пожалуйста решить задачку: Определите время свободного падения с...

определить время падения камня на поверхность земли с высоты h
определить время падения камня на поверхность земли с высоты h. напишите...

Определить время падения камня на поверхность земли с высоты h
Помогите с решением на паскале :)

Модель движения тела в гравитационном поле звезды и двух планет
Делал ли кто нибудь подобную программу? Возможно у кого то есть наработки? Буду...


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

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

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