[hArd_wAr_e]

Merhaba Arkadaşlar;

Pascal da girilen reel sayının üssünü, fonksiyon kullanmadan nasıl bulabiliriz ?

İnteger sayı olsa kolayca halledebiliriz, fakat işe reel sayılar girince fonksiyon kullanmadan bir türlü yapamıyorum.

Bakın "exp" fonksiyonu kullanarak program çalışıyor.

program usalma;
uses crt;

function us_al(var a,b:real):real;
begin
us_al:=exp(b*ln(a));
end;

var
i,j:real;
s:string[1];
begin
repeat
clrscr;
writeln('örnek');
writeln('tabanı giriniz: 3.4');
writeln('üssü giriniz: 1.5');
writeln('sonuc: 6.2693');
writeln;
write('tabanı giriniz: ');readln(i);
write('üssü giriniz: ');readln(j);
writeln(i: 3:4,' üssü ',j: 3:4,' = ',us_al(i,j): 3:4);
s:=readkey;
until (s='0');
end.


Burada fonksiyon kullanmadan programı çalıştırmam gerekiyor. Bana bir akıl verebilirmisiniz.

eğer pascal bilmiyorsanız bile, mantığı konusunda yardımcı olabilirseniz sevinirim ...