Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Владбэн
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 19
#1

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

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

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

Сама прога:
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):

Вычислить время падения тела с высоты H с начальной скоростью V. - Pascal ABC
№1 Вычислить время падения тела с высоты H с начальной скоростью V. №2 Даны три числа a, b, c, удовлетворяющие аксиомам треугольника....

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

Компьютерное моделирование падения тела - Pascal ABC
Дана программа падения шара. При запуске вводится только радиус шара. Нужно добавить еще какие нибудь входные данные, например падение под...

Построить график падения тела с парашютом - Pascal ABC
Скорость движения тела с парашютом определяется формулой: v=sqrt(gm/k)*th(t*sqrt(gk/m)), где k – коэффициент сопротивления; m –...

Вычислить скорость тела массой m которое падает из высоты n около поверхности земли - Pascal ABC
Вычислить скорость тела массой m которое падает из высоты n около поверхности земли Обчислити швидкість тіла масою m яке падає з висоти n...

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

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

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

определить время падения камня на поверхность земли с высоты h - Pascal
определить время падения камня на поверхность земли с высоты h. напишите пожалуйста лабораторку по информатике

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

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


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

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

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