Використання мови програмування Turbo Pascal при розв’язуванні задач з фізики

Дуже часто в учнів і студентів виникає потреба швидко розв’язати ті чи інші задачі з фізики. Це може бути зумовлено браком часу, великим об’ємом роботи, яку необхідно виконати тощо. Дуже часто їм доводиться виконувати кілька однотипних задач, які відрізняються лише значенням величин, які дано за умовою задачі. В такому випадку можна обійтися без розв’язування кожної задачі окремо. Велику допомогу учневі чи студенту при цьому може надати вміння програмувати мовою програмування 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 ('Введіть відстань (в метрах) і швидкість (в метрах за секунду)');

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;

begin

writeln ('Введіть початкову швидкість (в метрах за секунду) і час (в секундах)');

readln (v0, t);

s:=v0*t+(g*sqr(t)/2);

writeln ('Шлях = ', s, ' м');

end.

4. Задача на знаходження періоду та частоти коливань за циклічною частотою.

var w,T,v: real;

const Pi=3.14;

begin

writeln ('Введіть значення циклічної частоти обертання матеріальної точки навколо осі (в секундах)');

readln (w);

T:=2*Pi/w;

v:=1/T;

writeln ('період обертання матеріальної точки = ', T, ' с', ‘частота обертання матеріальної точки = ’, v, ‘ Гц’);

end.

5. Задача на знаходження доцентрового прискорення за радіусом і лінійною швидкістю обертання матеріальної точки навколо осі:

var a,r,v: real;

begin

writeln ('Введіть значення швидкості обертання точки (в м/с) і радіуса (в м)');

readln (v,r);

a:=sqr(v)/r;

writeln ('доцентрове прискорення точки = ’, a, ‘м/сек.в кв.’);

end.

6. Задача на знаходження кінетичної енергії тіла відомої маси, що рухається з відомою швидкістю:

var E,m,v: real;

begin

writeln ('Введіть значення швидкості тіла (в м/с) і його маси (в кг)');

readln (v,m);

E:= m*sqr(v)/2;

writeln (‘кінетична енергія тіла = ’, E, ‘ Дж’);

end.

7. ............