Дуже часто в учнів і студентів виникає потреба швидко розв’язати ті чи інші задачі з фізики. Це може бути зумовлено браком часу, великим об’ємом роботи, яку необхідно виконати тощо. Дуже часто їм доводиться виконувати кілька однотипних задач, які відрізняються лише значенням величин, які дано за умовою задачі. В такому випадку можна обійтися без розв’язування кожної задачі окремо. Велику допомогу учневі чи студенту при цьому може надати вміння програмувати мовою програмування Pascal. Необхідно мати персональний комп’ютер чи ноутбук і середовище програмування Turbo Pascal. Написані програми дозволять миттєво розв’язувати задачі певного типу. Найголовніше – попередньо розв’язати хоча б одну задачу цього типу письмово для того, щоб був зразок, по якому надалі можна писати програми. Отже, нижче будуть наведені приклади написання програм мовою Turbo Pascal для швидкого розрахунку тих чи інших фізичних величин.
фізичний тіло програмування pascal
1. Задача на знаходження швидкості фізичного тіла, якщо відомо шлях і час
var v,s, t: real;
begin
writeln ('Введіть відстань (в метрах) і час (в секундах)');
Возможно вы искали - Реферат: Время и его изучение в физике
readln (s,t);
v:=s/t;
writeln ('Швидкість тіла = ', v, ' м/с');
end.
Якщо необхідно знайти час, якщо відомо відстань і швидкість, то в даній програмі змінюємо наступні рядки:
Похожий материал - Курсовая работа: Расчет электрической сети электромонтажного цеха
writeln ('Введіть відстань (в метрах) і час (в секундах)');
readln (s,t);
v:=s/t;
writeln ('Швидкість тіла = ', v, ' м/с');
на writeln ('Введіть відстань (в метрах) і швидкість (в метрах за секунду)');
Очень интересно - Курсовая работа: ГРЭС-2200МВт
readln (s,v);
t:=s/v;
writeln ('Час руху тіла = ', v, ' с');
2. Задача на знаходження швидкості двох фізичних тіл одне відносно одного, якщо вони рухаються вздовж однієї лінії:
var v1,v2,v: real;
Вам будет интересно - Контрольная работа: Растекание тока в земле при замыкании
begin
writeln ('Введіть швидкість першого і другого тіла (в метрах за секунду). Якщо тіла рухаються в протилежних напрямках, одне зі значень швидкості введіть зі знаком «мінус»);
readln (v1,v2);
v:=v1+v2;
writeln ('Швидкість тіл одне відносно одного = ', v, ' м/с');
Похожий материал - Контрольная работа: Гидравлический расчет конденсатной системы трубопровода
end.
3. Задача на знаходження шляху, що проходить фізичне тіло за певний час, рухаючись з прискоренням і початковою швидкістю (тіло, кинуте з деякої висоти):
var s ,v0, t: real;
const g=9.81;