Возведение в степень

[guardi]

program number15;
var
a,a0,ha,an,ast,q,s1,s2,ax,s:real;
n:integer;

begin
writeln('a0,ha,an');
readln(a0,ha,an);
a:=a0;
while a < an + ax/2 do
begin
 if a < 0.4 then
  begin
   ast:=1;
   s1:=0;
    for n:=1 to 10 do
     begin
      ast:=ast*a;
      s1:=s1+(a*a)/(ast-5);
     end;
    q:=(a/3)*s1;
   end
 else
  begin
   ast:=1;
   s2:=0;
   for n:=1 to 8 do
    begin
     ast:=ast*(a-1);
     s:=s+(1+ast/n);
    end;
   q:=((a+1)/a)*s;
  end;
 writeln(' a = ',a,' Q = ',q:0:2);
 a:=a+ha;
end;
end.

(a-1)^n = ast:=ast*(a-1); или как-то по другому будет?

[Serge_Bliznykov]

Сообщение от guardi

(a-1)^n = ast:=ast*(a-1);

это верно.

но!

Сообщение от guardi

writeln('a0,ha,an');
readln(a0,ha,an);
a:=a0;
while a < an + ax/2 do

что за ax? откуда она взялась? почему не определена?

может быть, имеется в виду шаг цикла?

while a < an + ha/2 do

[guardi]

Сообщение от Serge_Bliznykov

это верно.

но!



что за ax? откуда она взялась? почему не определена?

может быть, имеется в виду шаг цикла?

while a < an + ha/2 do

да!упс)