Написать функцию,которая вычисляет сопротивление цепи

Trahtinberg

Написать функцию,которая вычисляет сопротивление цепи,состоящей из 2х резисторов.Параметрами функции являются величины сопротивлений и тип соединения(параллельный и последовательный).Функция должна проверять корректность параметров:если неверно указан тип соединения,то функция должна возвращать -1.
3 ответа

Trahtinberg

function R (connType: integer; R1, R2: real): real;
begin
case connType of
1{последовательное}: R:=R1 + R2;
2{параллельное}: R:=1/(1/R1 + 1/R2);
else R:=-1;
end;
end;
Ну только там нужна менюшка типа "1 - последовательное, 2 - параллельное".


Trahtinberg

Не могли бы тогда по подробнее расписать??


Trahtinberg

uses crt;
 
var
R1,R2: real;
connType: integer;
 
{--------------------------------------------------------------------}
function R: real;
begin
case connType of
 1: R:=R1 + R2;
 2: R:=1/(1/R1 + 1/R2);
 else R:=-1;
 end;
end;
{--------------------------------------------------------------------}
 
 
begin clrscr;
write('R1 = '); readln(R1);
write('R2 = '); readln(R2);
write('Укажите тип соединения (1 - последовательное, 2 - параллельное): ');
readln(connType);
 
writeln('R = ',R:5:2);
readkey; end.