Решите в паскале. Составить программу вычисляющую силу тока в цепи r1, r2, r3, r4, r5, r6, r7, r8, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17, r18, r19, r20 соединение паралельное. Сопротивления заданы в массиве, напряжение вводится.

Question

Информатика

Толюся

10 мая, 05:05

Решите в паскале. Составить программу вычисляющую силу тока в цепи r1, r2, r3, r4, r5, r6, r7, r8, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17, r18, r19, r20 соединение паралельное. Сопротивления заданы в массиве, напряжение вводится.

+5

Ответы (1)

Знаете ответ?

Максимка · Answer 1

Uses crt;

const R: array[1 ... 20] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10,

11, 12, 13, 14, 15, 16, 17, 18, 19, 20) ;

var I:array [1 ... 20] of real;

U, x:integer;

SUM:real;

begin

write ('U=') ; readln (U) ;

for x:=1 to 20 do

begin

write ('R[', x,']:', R[x],' ') ;

I[x]:=U/R[x];

SUM:=SUM+I[x];

writeln ('I[', x,']:', I[x]:5:3) ;

end;

writeln ('I=', SUM:5:3) ;

end.