Pochodna n-tego stopnia z ax^b w Pascalu

[Sajlar]

Kod: Zaznacz cały

program pochodna; 
var a,b,n,i:integer; 
begin 
write('Podaj wspolczynnik przy x '); 
readln(a); 
write('Podaj potege x '); 
readln(b); 
write('Podaj ktora pochodna chcesz policzyc '); 
readln(n); 
i:=1; 
while i<=n do 
begin if a=0 then writeln(0) else 
if b=0 then if n<1 then writeln(a) else 
writeln(0) else 
if b=1 then if n<1 then if a=1 then writeln('x') else 
writeln(a,'x') else 
if n=1 then writeln(a) else 
writeln(0) else 
a:=a*b; 
b:=b-1; 
i:=i+1; 
end; 
writeln(a,'x^',b); 
readln; 
end.

to jest w dev pascalu jak coś, co zrobić żeby wyświetlało jeden wynik ten który wyświetla się jako pierwszy a nie kilka np dam 4 pochodną dla 0 (czyli a podaje 0 reszta cokolwiek) to wyświetla mi 4 razy 0 i jeszcze na koniec to z ax^b. Jak ktoś wie co trzeba zrobić niech sie pochwali.

[Xitami]

Kod: Zaznacz cały

i:=n;
while i>0 do begin
       a:=a*b; b:=b-1
end
{a:=a!/(b-n)!; b:=b-n}