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

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

readln (R0,R,x);

t:=((R/R0)-1)/x;

writeln (‘ t = ‘, t, ‘ градусів Цельсія’);

end.

25. Задача на знаходження сили струму в колі за законом Ома для ділянки кола:

var R,U,I: real;

begin

writeln (‘введіть опір (в Ом) та напругу (в В)‘);

readln (R, U);

I:=U/R;

writeln (‘ I = ‘, I, ‘ A’);

end.

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

var R,U,I,r1: real;

begin

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

readln (R,r1, U);

I:=U/(R+r1);

writeln (‘ I = ‘, I, ‘ A’);

end.

27. Задача на знаходження внутрішнього опору джерела струму:

var R,U,I,r1: real;

begin

writeln (‘введіть зовнішній опір (в Ом), силу струму в колі (в А) та електрорушійну силу (в В)‘);

readln (R,I,U);

r1:=(U/I)-R;

writeln (‘ r = ‘, r1, ‘ Ом’);

end.