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

const k=9E10;

begin

writeln (‘введіть модуль заряду (в Кл) та відстань до даної точки (в м)');

readln (q,r);

E:=k*q/sqr(r);

writeln (‘E = ‘, E, ‘ В/м’);

end.

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

varf,q,r: real;

const k=9E10;

begin

writeln (‘введіть модуль заряду (в Кл) та відстань до даної точки (в м)');

readln (q,r);

f:=k*q/r;

writeln (‘ потенціал = ‘, f, ‘ В’);

end.

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

var c,q,u: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф) та напругу на його обкладках (в В)');

readln (c,u);

q:=c*u;

writeln (‘ q = ‘, q, ‘ Кл’);

end.

20. Задача на знаходження енергії конденсатора відомої ємності, зарядженого до певної напруги:

varW,C,U: real;

begin

writeln (‘введіть електроємність конденсатора (в Ф) та напругу на його обкладках (в В)');

readln (C,U);