Технический форум - Одномерный массив. Рассчитать сопротивление сложного соединения.

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Одномерный массив. Рассчитать сопротивление сложного соединения.

День добрый!
Вот условие задачи:

Рассчитать сопртивление сложного соединения,в котором паралельно соединены цепочки последовательных соединений.Сопротивления задаются в одномерном массиве,цепочки разделены между собой нулями.

(Тест:Если задан массив: 10 20 0 10 5 5 4 ,то ответом будет 13,33 Ом)

var
sum_r,sum,pr,r: integer;
ans: real;
begin
sum_r:=0;
pr:=1;
while not eoln do
begin
read(r);
if r<>0 then
sum_r:=sum_r+r
else
begin
sum:=sum+sum_r;
pr:=pr*sum_r;
sum_r:=0;
end;
end;
if sum_r<>0 then
begin
sum:=sum+sum_r;
pr:=pr*sum_r;
end;
ans:=pr/sum;
writeln(ans:2,' Om');
end.

Вот решение нашел,но че-т под массив написать не могу,не работает прога

Помогите..

Цитата:

Сообщение от NamYola (Сообщение 526083)

Помогите..

Попробую. Правда, не очень понял, что собой символизует переменная pr и зачем там вообще нужен массив. Так что вот вариант - правда без массива. Вначале нужно задать полное число резисторов, ВКЛЮЧАЯ ПРОМЕЖУТОЧНЫЕ НУЛИ. Дальше последовательно ввести номиналы (включая опять же нули), и - voila!

Код:

var

 N:Byte;

 sum,r,ans:real;

 i:Byte;



begin

 write('N(<256)= ');

 readln(N);

 writeln;

 ans:=0;

 sum:=0;

 For i:=1 to N do

  begin

   write('R',i,'= ');

   readln(r);

   if r>0 then

    sum:=sum+r;

   if (r=0) or (i=N) then

    begin

     ans:=ans+1/sum;

     sum:=0;

    end;

  end;

 writeln;

 writeln('Answer is ',1/ans:8:2,' Ohm');

 readln

end.