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

P:=U*I;

writeln (‘ P = ‘, P, ‘ Вт’);

end.

31. Який об’єм води Vможна закип’ятити, затративши Q Дж енергії. Початкова температура води T ^o C.

var V,t,Q: real;

const r=1000; c=4200;

begin

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

readln (Q,t);

V:=1000*Q/(c*r*(100-t));

writeln (‘ V = ‘, V, ‘ літрів’);

end.

32. Задача на знаходження фокусної відстані лінзи, якщо відома її оптична сила.

var F,D: real;

begin

writeln (‘Введіть оптичну силу лінзи (в дптр)’);

readln (D);

F:=1/D;

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

end.

33. Радіуси кривизни поверхонь двовипуклої лінзи R1 і R2. Знайти оптичну силу лінзи D, якщо показник заломлення для матеріалу, з якого вона виготовлена, дорівнює n.

var R1,R2,D,n: real;

begin

writeln (‘введіть радіуси кривизни лінзи R1 і R2 (в м) та показник заломлення‘);

readln (R1,R2,n);

D:=(n-1)*((1/R1)-(1/R2));

writeln (‘ D = ‘, D, ‘ дптр’);

end.

Вивчивши структуру цих програм, студент чи учень зможе без проблем самостійно писати допоміжні програми, які значно полегшать процес навчання та підвищать його ефективність.