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

var R, I,A,t: real;

begin

writeln (‘введіть опір (в Ом), силу струму (в А) та час проходження струму (в с)‘);

readln (R,I,t);

A:=sqr(I)*R*t;

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

end.

якщо відомо не сила струму, а напруга, то замінити рядки

writeln (‘введіть опір (в Ом), силу струму (в А) та час проходження струму (в с)‘);

readln (R,I,t);

A:=sqr(I)*R*t;

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

на

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

readln (R,U,t);

A:=sqr(U)*t/R;

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

29. Задача на визначення коефіцієнта корисної дії джерела електричного струму, якщо відомо зовнішній опір навантаження і внутрішній опір джерела струму:

var R,r1,n: real;

begin

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

readln (R,r1);

n:=(R/(R+r1))*100;

writeln (‘ ККД = ‘, n, ‘ %’);

end.

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

var P,U,I: real;

begin

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