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

end.

7. Задача на знаходження роботи сили по переміщенню тіла відомої маси на певну відстань:

var A,m,s: real;

begin

writeln ('Введіть масу тіла (в кг) і переміщення (в м)');

readln (m,s);

A:=m*9.81*s;

writeln (‘робота = ’, A, ‘ Дж’);

end.

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

var A,m,v1,v2: real;

begin

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

readln (v1,v2,m);

A:= (m*sqr(v1)/2)-(m*sqr(v2)/2);

writeln (‘робота по зміні кінетичної енергії тіла = ’, A, ‘ Дж’);

end.

Від’ємне значення роботи буде вказувати на те, що для того, щоб змінити швидкість, треба збільшити кінетичну енергію тіла.

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

var alpha,t,v0: real;

const g=9.81;

begin

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

readln (alpha,v0);

t:=v0*sin(alpha)/g;

writeln (‘ час = ’, t, ‘ с’);

end.

10. На штовхання ядра, кинутого під кутом alpha до горизонту, затрачена робота А. Через який час t і на якій відстані s від місця кидання ядро впаде на землю? Маса тіла m.

var alpha,t,A,m,s: real;