Pascal:Kolejny problem dot potęg... Ważne!

[Night Knight 0]

program wypisuje potęgi danej liczby np 4

4 do potęgi 1=4

4 do 2= 16

itd...

 

 Var
a:integer; {podstawa}
p:integer; {potęga}
i:integer;  {zmienna kontrolna}
suma:integer; {wynik}

begin
  writeln('podaj liczbe: ');
  readln(a);
  writeln('Potegi liczby ',a, ' sa rowne: ');
  writeln();
  suma:=1;
  p:=a;

for i:=1 to p do
 begin
 suma:=suma*p;
 writeln(suma);
 end;

readln();
end.

 

nie wiem co zrobić aby potęgi danej liczby wypisywały się w kolejności malejącej, jak biorę

 

downto

 

i zmieniam nieco kod, to nadal wypisuje mi je w kolejności rosnącej

nie wiem jak zmodyfikować kod aby wypisywał również

4 do potęgi 0 =1

 

ktoś potrafi pomóc ?

 

ps. założyłem 2 tematy, bo z doświadczenia wiem, że na forum PcLab, uzyskam szybciej pomoc w typie: 1 zagadnienie na jeden temat. Pozdrawiam

[spinaker 0]

To najpierw podnieś liczbę do danej potęgi, a potem w pętli dziel przez tą liczbę.

[Night Knight 0]

to znaczy jak? obecnie jak wpiszę liczbę 4 to wypiszę mi wynik:

 

4
16
64
256

 

wiadomo:

(niestety brak 4 do 0=1)

4 do 1=4

4 do 2=16

4 do 3=64

4 do 4=256

 

a mi chodzi aby dokładnie wypisał w ten sposób:

 

64
16
4
1

Jak mam niby podnieść liczbę do potęgi przed pętlą, a potem dzielić ją w pętli, jakiś wzór do tego ? albo podpowiedź ?

[januzi 24]

pow

jesli nie ma, to napisz sobie wlasna

np:

function power(const x,y : float) : float;

begin

 power := exp(ln(abs(x))*y);

end;