[hArd_wAr_e]

Kojiroh, mesajından alıntı:

Rasyonel bir sayının tamsayı kuvvetini alan bir programı döngüyle yapabiliriz. En rahat ve en güzel yöntem budur diye tahmin ediyorum. İşte hızlıca yazdığım program:

program usal;
uses wincrt; {ya da crt}
 var
   i,us:Integer;
  sonuc,sayi:Real;
 begin
  repeat
   sonuc:=1;
   clrscr;
   write('ussu alinacak sayiyi giriniz: '); readln(sayi);
   write('sayinin kacinci kuvveti alinacak? '); readln(us);
   if us<0 then
    for i:=-1 downto us do sonuc:=sonuc/sayi
   else if us=0 then sonuc:=1
    else if us>0 then
      for i:=1 to us do sonuc:=sayi*sonuc;
   writeln(sayi:0:5, ' sayisinin ', us, '. kuvveti: ', sonuc:0:5);
   write('tekrar? (e/h)');
   if upcase(readkey)<>'E' then break;
  until 1=2;
 end.

Fakat rasyonel kuvvetlerin nasıl hesaplanacağını ben de merak ediyorum açıkçası.

@Kojiroh tesekkurler,
Bakalım Rasyonel sayının rasyonel üssünü fonksiyon kullanmadan yapabilecekmiyiz ...