Використання мови програмування Turbo Pascal при розв’язуванні задач з фізики (стр. 2 из 2)

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 (‘Введіть силу струму та напругу споживача електричного струму‘);

readln (I,U);

P:=U*I;

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

end.

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

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.

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