Для решения задачи вычисления силы тока в проводнике по заданным значениям электрического сопротивления ( R ) и напряжения ( U ) мы можем использовать закон Ома. Закон Ома формулируется следующим образом:
[ I = \frac{U}{R} ]
где:
- ( I ) — сила тока (в амперах),
- ( U ) — напряжение (в вольтах),
- ( R ) — сопротивление (в омах).
Теперь давайте рассмотрим, как составить программу на языке Pascal для выполнения этого вычисления. Программа должна запрашивать у пользователя значения ( R ) и ( U ), затем вычислять силу тока ( I ) и выводить результат на экран.
Вот пример программы на языке Pascal, которая решает эту задачу:
program OhmsLawCalculator;
uses
SysUtils;
var
R, U, I: Real;
begin
// Запрашиваем у пользователя значение сопротивления R
Write('Введите значение сопротивления R (в омах): ');
ReadLn(R);
// Проверяем, что сопротивление не равно нулю
if R = 0 then
begin
WriteLn('Сопротивление не может быть равно нулю.');
Exit;
end;
// Запрашиваем у пользователя значение напряжения U
Write('Введите значение напряжения U (в вольтах): ');
ReadLn(U);
// Вычисляем силу тока I по закону Ома
I := U / R;
// Выводим результат
WriteLn('Сила тока I (в амперах): ', FormatFloat('0.00', I));
end.
Пояснение к программе:
Объявление переменных: В программе используются три переменные типа Real
: R
для сопротивления, U
для напряжения и I
для силы тока. Тип Real
используется для работы с вещественными числами.
Ввод данных: Программа запрашивает у пользователя ввод значений сопротивления и напряжения.
Проверка на нулевое сопротивление: Перед вычислением силы тока программа проверяет, чтобы значение сопротивления ( R ) не было равно нулю, так как деление на ноль невозможно.
Вычисление силы тока: Используя формулу закона Ома, программа вычисляет силу тока ( I ).
Вывод результата: Результат вычисления выводится на экран с форматированием до двух знаков после запятой.
Эта простая программа демонстрирует применение основ программирования на языке Pascal для решения задачи вычисления силы тока по закону Ома.