pascalda negatif bir sayının kuvvetini nasıl alıyoruz??

[ertunc]

arkadaslar negatif bi sayının kuvvetini nasıl alıyoruz.. bunun icin ln fonksiyonunu kullanmayı denedım ama o zaman hata veriyo program sanırım ln fonkisyonunun ici negatif deger alamayacagı icin bu hatayı veriyo.. ornegın (-2)^3 degeri pascalda nasıl hesaplanır bunun icin bi komut var mı yoksa pozitif degerini hesaplayıp (-1)le carpıp mı yazdıracaz benı bu konuda bılgılendırırsenız sevinirim.. ilginize tesekkurler............

[HaokaH]

Birde değişkenleri real tanimlarmisin, ayrIca yazIlIşInI kontrol edermisin..

Şu şekilde olmalI..

y:=Exp(b*Ln(a));

gibi gibi..

[ertunc]

real alınca da yine aynı hatayı veriyo sayıyı negatif girmeyince bi sorun yok ama negatif girince hata veriyo.sen real alınca calıstı mı program denediysen programın tamamını yazarmısın bende sorun vardır belki.......

[erpay]

Kendin bir fonksiyon hazırlayabilirsin, bir de öyle dene istersen.

[HaokaH]

O zaman özyineli fonksiyon ile yapip değer döndüreceksin..

Uses Crt;
var
a,b,c:integer;

Function us(x,y:integer):integer;
var
q:real;
begin
q:=Exp(y*Ln(x));
us:=round(q);
end.

begin
clrscr;
write('Sayıyı giriniz');readln(a);
write('Sayının üssünü giriniz');readln(b);
c:=us(a,b);
writeln(a,'''nın,b'. kuvveti',c,'dir');
end.

gibi gibi..

[ertunc]

ben bu yazdıgın programı denedım ama yıne negatif bi sayının kuvvetini alırken "invalid floating point operation" diye bi hata veriyo acaba ben mi biseyleri yanlıs yapıyorum......

[mr1yh1]

negatif sayının doğal logaritması olmaz.
pozitifinin üstünü al, üst tek ise sonucu -1 ile çarpabilirsin.

bu arada google, power diye bir delphi fonksiyondan bahsediyor.
( unit math )

[ertunc]

mr1yh1, mesajından alıntı:

negatif sayının doğal logaritması olmaz.
pozitifinin üstünü al, üst tek ise sonucu -1 ile çarpabilirsin.

bunun bi kısayolu yok diyosun yani oyle mi??

[HaokaH]

Ben test etmeden veriyorum tabi pascal ile ugrasmak gerekiyor, delphide değişkeni variant tanImladIgIn an herşey bitiyor fakat bunda böyle olmuyor.. Birde şunu denermisin..
Basit bir konuyu boşa uzattIk sanIrIm

Uses Crt;

var
i,us:Integer;
sonuc,sayi:Real;

begin
repeat
sonuc:=1;
write('Sayıyı giriniz= '); readln(sayi);
write('Sayının üssünü giriniz= '); 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:2, ' sayisinin ', us, '. kuvveti: ', sonuc:0:2);
until 1=2;
end.