Witam.
Chcialbym stabelaryzować N-wyrazow ciagu oraz obliczyc jego sume:
kod programu wyglada nastepujaco:
program potegowanie;
uses crt,graph;
var i,p,w:integer;
n:word;
suma:real;
wyraz:array[1..256] of real;
function potega(p,w:integer):real;
begin
potega:=exp(w*ln(p));
end;
begin
clrscr;
write('Podaj ilosc wyrazow ciagu: ');
readln(n);
for i:=1 to n do
begin
wyraz[i]:=((potega(i,100)) * (potega(99,i))) / (potega(100,i));
suma:=suma+wyraz[i];
writeln(i,'. ',wyraz[i]:5:2);
writeln(suma:4:2);
end;
readkey;
end.
Jednak juz dla n>2 wyskakuje blad "Floating point overflow" czyli "blad w obliczeniach"..
Moze zmienic typy zmiennych lub cos innego..
Prosze o sugestie.
Dziekuje!