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

begin

writeln (‘Введіть значення кута (в радіанах), масу тіла (в кг), роботу (в Дж)');

readln (alpha,m,A);

t:=(2*sin(alpha)*sqrt(2*A))/(g*sqrt(m));

s:=t*cos(alpha)*sqrt(2*A/m);

writeln (‘ час = ’, t, ‘ с’, ‘ відстань = ’, s, ‘ м’);

end.

11. Задача на знаходження сили гравітаційної взаємодії між двома тілами відомої маси, які знаходяться на відомій відстані одне від одного:

var m1,m2,r,F: real;

const G=6.67E-11;

begin

writeln (‘Введіть масу першого і другого тіл (в кг) і відстань між ними (в м)');

readln (m1,m2,r);

F:=G*m1*m2/sqr(r);

writeln (‘F = ‘, F, ‘Н’);

end.

12. Обчислити гравітаційну сталу G, знаючи радіус земної кулі R, середню густину землі r і прискорення вільного падіння g на поверхні Землі:

var R,G,r1,g1: real;

begin

writeln (‘введіть радіус (в м), середню густину (в кг/куб.м) і прискорення вільного падіння (в Н/с)');

readln (R,r1,g1);

G:=(3*g1)/(4*3.14*R*r1);

writeln (‘G = ‘, G);

end.

13. Задача на знаходження моменту інерції Iта моменту імпульсу Lкулі масою m і радіусом r:

var I,L,m,r,T: real;

begin

writeln (‘введіть радіус (в м), масу (в кг) і період обертання (в с) кулі');

readln (r,m,T);