DP.29 · Радиотехника
Задача
По любой паре из U, I, R вычислить остальные величины и мощность.
Алгоритм
Меню выбирает известную пару, затем по формулам U=IR, I=U/R, R=U/I, P=UI считаются остальные.
Исходный код
program ZakonOma;
{$mode delphi}{$apptype console}
uses SysUtils;
var U, I, R, Pw: Double; c: string;
begin
WriteLn('Закон Ома. Что известно?');
WriteLn(' 1 - U и I 2 - U и R 3 - I и R');
Write('Выбор: '); ReadLn(c);
if c = '' then c := '1';
case c[1] of
'1': begin Write('U (В) = '); ReadLn(U); Write('I (А) = '); ReadLn(I); R := U / I; Pw := U * I; end;
'2': begin Write('U (В) = '); ReadLn(U); Write('R (Ом) = '); ReadLn(R); I := U / R; Pw := U * I; end;
'3': begin Write('I (А) = '); ReadLn(I); Write('R (Ом) = '); ReadLn(R); U := I * R; Pw := U * I; end;
else
WriteLn('Неверный выбор'); ReadLn; Halt;
end;
WriteLn(Format('U = %.3f В I = %.3f А R = %.3f Ом P = %.3f Вт', [U, I, R, Pw]));
ReadLn;
end.
Пояснения
Format с %.3f выводит инженерные величины. Тема связана с онлайн-калькулятором закона Ома на сайте.