Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73

Найти уравнение скорости движения тела и положение тела как функцию от времени

03.05.2016, 16:23. Показов 3594. Ответов 47
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
здравствуйте, помогите пожалуйста)
Найти уравнение скорости движения тела и положение тела как функцию от времени. Входные данные: v(0)=2м/с; s(0)=0м. Определить положение. скорость и ускорение на отрезке времени t=[0;5] с шагом 1 с. Построить графики s(t), v(t), a(t).
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.05.2016, 16:23
Ответы с готовыми решениями:

Найти уравнение скорости движения тела и положение тела как функцию от времени
задан закон изменения ускорения движения тела как функция от времени. Найти уравнение скорости движения тела и положение тела как функцию...

Найти уравнение скорости движения и положения тела как функции от времени
Задан закон изменения ускорения движения тела как функция от времени. Найти уравнение скорости движения и положения тела как функции от...

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

47
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
17.05.2016, 18:11  [ТС]
Студворк — интернет-сервис помощи студентам
Вы просто заменили аналитические коды v и s на вот эти
Цитата Сообщение от ФедосеевПавел Посмотреть сообщение
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
  function v(k: byte; t: real): real;
  var
    Sum, dt, tt: real;
  begin
    dt  := t / 10000;
    Sum := 0;
    tt  := 0;
    while tt < t do
    begin
      tt  := tt + dt;
      Sum := Sum + a(k, tt);
    end;
    v := v0 + Sum * dt;
  end;
 
  function s(k: byte; t: real): real;
  var
    Sum, dt, tt: real;
  begin
    dt  := t / 1000;
    Sum := 0;
    tt  := 0;
    while tt < t do
    begin
      tt  := tt + dt;
      Sum := Sum + v(k, tt);
    end;
    s := s0 + Sum * dt;
  end;
и больше ничего не меняли и у Вас всё вы вело и всё нарисовало?
0
17.05.2016, 18:13

Не по теме:

07051997, код в теги соответствующие заключайте, пожалуйста. Для этого нажмите надпись PASCAL в шапке редактора сообщений, и вставьте код между тегами, или выделите код, а затем нажмите надпись PASCAL.

Если желаете, чтобы нумерация строк кода начиналась не с 1, исправьте первый тег. Примеры исправления: [PASCAL=25] - будет с 25 строки. [PASCAL=-1] - вообще не будет нумерации строк.

0
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
17.05.2016, 18:21  [ТС]
мне будет удобней переписать это в паскаль free и тогда всё будет работать?
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8667 / 4504 / 1670
Регистрация: 01.02.2015
Сообщений: 13,934
Записей в блоге: 13
17.05.2016, 18:29
Если с аналитическими формулами работает, то будет и с численным интегрированием работать. Просто дольше. А компилятор вам выбирает преподаватель и условия в методичке.

Добавлено через 50 секунд
Цитата Сообщение от 07051997 Посмотреть сообщение
и больше ничего не меняли и у Вас всё вы вело и всё нарисовало?
Да.
0
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
17.05.2016, 18:36  [ТС]
тогда я поменяю местами рисование графиков s и a, и возможно у меня комп слабый и так быстро не запускает
просто ошибку никакую не выдаёт, значит должно работать
спасибо Вам большое
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8667 / 4504 / 1670
Регистрация: 01.02.2015
Сообщений: 13,934
Записей в блоге: 13
17.05.2016, 18:56
Можете взять не "правые прямоугольники", а метод Симпсона из поста #34. За счёт лучшей точности меньше вычислений - выше скорость расчётов.
0
Модератор
10452 / 5748 / 3409
Регистрация: 17.08.2012
Сообщений: 17,495
17.05.2016, 19:02
Цитата Сообщение от 07051997 Посмотреть сообщение
переписать это в паскаль free
Код, в принципе, можно вовсе не переделывать. В Free Pascal в начале программы (перед uses) пропишите строчку с директивой компилятора
Pascal
1
{$MODE TP}
0
0 / 0 / 0
Регистрация: 06.11.2014
Сообщений: 73
17.05.2016, 19:26  [ТС]
да. я так и сделала
там более приближённые результаты к расчётом в маткаде
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.05.2016, 19:26
Помогаю со студенческими работами здесь

Найти уравнения скорости и ускорения тела как функции от времени
помогите, пожалуйста, решить задачу методом Эйлера (или Рунге-Кутта) Задан закон движения тела как функция координаты (положения) от...

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

Найти работу, которую надо совершить для изменения скорости тела и какая доля совершенной работы пошла на разгон тела
В общем задача звучит так: Скорость тела под действием постоянной силы увеличилась от 2 м/с до 8 м/с на пути в 12 м. На всем пути...

Как направлен вектор мгновенной скорости в различных точках траектории движения тела?
Как направлен вектор мгновенной скорости в различных точках траектории движения тела, брошенного горизонтально?

Определение скорости движения тела
Определять скорость движения тела в Ардуино при помощи ультразвукового датчика расстояния


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

Или воспользуйтесь поиском по форуму:
48
Ответ Создать тему
Новые блоги и статьи
Модель здравосохранения 17. Планы на выгорание
anaschu 23.05.2026
Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона
russiannick 23.05.2026
Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .
Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой
anaschu 23.05.2026
Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .
Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15
anaschu 23.05.2026
Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул
anaschu 23.05.2026
Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .
Диалоги с ИИ
zorxor 23.05.2026
Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .
Модель здравосохранения 14. Собираем всю модель вместе.
anaschu 22.05.2026
Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .
Модель здравоохранения 13. Добавление самой системы здравоохранения.
anaschu 22.05.2026
В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru