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

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

end.

21. Задача на знаходження часу розряду конденсатора ємністю С через резистором з опором R від напруги U1 до напруги U2:

var t,C,R, U1,U2: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф) , опір резистора (в Ом), початкову та кінцеву напругу (в В)');

readln (C,R,U1,U2);

t:=C*R*ln(U1/U2);

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

end.

22. Задача на знаходження електроємності конденсатора, якщо відомо площа обкладок S, відстань між ними d та відносна діелектрична проникливість діелектрика e:

var C,e,S,d: real;

const e0=8.85E-12;

begin

writeln (‘введіть площу пластин (в кв.м) , відстань між ними (в м) та відносну діелектричну проникливість діелектрика');

readln (S,d,e);

C:=e*e0*S/d;

writeln (‘ C = ‘, C, ‘ Ф’);

end.

23. Задача на знаходження електричного опору провідника при нагріванні до певної температури, якщо відомо його опір при 0 ^о С, температурний коефіцієнт опору та температуру, до якої він нагрівається:

var R,R0,t,x: real;

begin

writeln (‘введіть опір провідника при 0 градусів Цельсія (в Ом), температуру (в градусах Цельсія) та температурний коефіцієнт опору провідника‘);

readln (R0,t,x);

R:=R0*(1+x*t);

writeln (‘ R = ‘, R, ‘ Ом’);

end.

24. Задача на знаходження температури, до якої нагрівся провідник з відомим температурним коефіцієнтом опору, якщо відомо його опір при 0 ^о С та при даній температурі:

var R,R0,t,x: real;