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

L:=I*2*3.14/T;

writeln (‘I = ‘, I, ‘ кг*кв.м’, ‘L = ’, L, ‘кг*кв.м/с’);

end.

14. Задача на знаходження енергії, необхідної для нагрівання тіла відомої маси, виготовленого з відомого матеріалу, на певну кількість градусів Цельсія чи Кельвіна:

var Q,c,m,t12: real;

begin

writeln (‘введіть питому теплоємність речовини (в Дж/кг*К), массу тіла і різницю температур');

readln (c,m,t12);

Q:=c*m*t12;

writeln (‘Q = ‘, Q, ‘ Дж’);

end.

15. За який часt кип’ятильник потужністю P нагріє воду масою m до температури кипіння від початкової температури t0?

var P,c,m,t,t0: real;

begin

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

readln (m,P,t0);

t:=(4200*m*(100-t0))/P;

writeln (‘t = ‘, t, ‘ c’);

end.

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

var F,q1,q2,r: real;

const k=9E10;

begin

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

readln (q1,q2,r);

F:=k*q1*q2/sqr(r);

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

end.

17. Задача на знаходження величини напруженості, яку створює зарядq на відстані r від себе: