Рекомендуемый вид формы приведен на рис. 1.9. Если величина сопротивления цепи превышает 1 000 Ом, то результат должен быть выведен в килоомах.

Рис. 1.9. Форма программы Сопротивление электрической цепи

// щелчок на кнопке Вычислить
procedure TForml.ButtonlClick(Sender: TObject);
var
rl,r2: real; // величины сопротивлении
r: real; // сопротивление цепи begin
// получить исходные данные
rl := StrToFloat(Edit 1.Text);
r2 := StrToFloat(Edit2.Text);
if (rl = 0) and (r2 = 0) then begin
ShowMessage('Надо задать величину хотя бы одного
сопротивления'); exit; end;
// переключатели RadioButtonl и RadioButton2
// зависимые, поэтому о типе соединения можно
// судить по состоянию одного из этих
// переключателей
if RadioButtonl.Checked
then // выбран переключатель Последовательно
r:= rl+r2
else // выбран переключатель Параллельно r:= (rl*r2)/(rl+r2);