Даны действительние числа a[1],a[2],...a[28]; b[1],b[2],...b[28].... c[1],c[1]..с[29] связаны данными последовательностями след.соотношением:
c[29]=0
c[29-i]=a[29-i]/(b[29-i] - c[29-1+i]
i=1,2,...28
получить с[1],c[2]...c[29]
Как найти с[i] ??? Пишет Divizion by Zero. Что делать(a и b вводил через рандомайз)
Покажи код сразу, чего трудно чтоль ? Гимморой заочно не лечится..
program mass
uses crt;
var
a:array[1..28] of real;
b:array[1..28] of real;
c:array[1..29]of real;
i:integer;
begin
clrscr;
c[29]:=0;
For i:=1 to 28 do begin
c[29-i]=a[29-1]/b[29-1] - c[29-1+i]
writeln(c[i]);
end;
readln;
end.
Где заполнение массивов ?