100 балов, решите плиз нужно очень
(составить программу определения общего сопротивления электрической цепи при последовательном и параллельном соединении трех резисторов)
Ответы
Ответ дал:
0
Объяснение:
const
n = 10;
r1 = 2;
r2 = 4;
r3 = 3;
var
temp1, temp2: Real; begin
temp1 := r1 * ((n div 2) * (n + 1) + Ord(Odd(n)) * ((n div 2) + 1));
temp2 := 2 * r2 * r3 / (r2 + r3);
WriteLn('R=', (r1 + temp1 * temp2 / (temp1 + temp2) + r2):0:4);
end.
fggggs:
Это правильно?(я просто хз)
Ответ дал:
1
PascalABC.NET
Ответ:
- begin
- var n := ReadInteger('Введите количество резисторов:');
- var Rs := ReadArrInteger('Введите их сопротивления:',n);
- Writeln(NewLine, 'Общее сопротивление цепи равно:');
- Println(' при последовательном соединении -', Rs.Sum,'Ом');
- Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');
- end.
или кратко:
- begin
- var Rs := ReadArrInteger(3);
- Println('послед:', Rs.Sum);
- Println('парал:', 1/Rs.Sum(r->1/r));
- end.
Пример работы:
Приложения:
![](https://st.uroker.com/files/5bc/5bcc87770fd560fcb7d0abeaf75ff81a.jpg)
![](https://st.uroker.com/files/3a5/3a5663dcb741686891b82d7a3b92470b.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад