qbasic faktöriyel

[Brudenell]

Selamlar geçen gece wildpervert la beraber qbasic çalışmıştım
şimdi kendimi geliştirmek için denemeler yapıyorum fakat 1 yerde takıldım
faktöriyel hesaplamak için bir sistem geliştirmeye çalıştım ve başarısız oldum bana yardımcı olabilirmisiniz

[Qui]

Faktöriyel şu 5! şeklinde yazılan ve 1x2x3x4x5 anlamına gelen olay değilmiydi?

kullanıcının girdiği rakama i'ye ata
k=1
sonuc=1

do until i=k
sonuc = sonuc * k
k = k + 1
end loop

print sonuc

oldu mu?[signature][hline]God created the earth in six days, on the seventh he rendered.
@ui ICQ UIN: 1957744 MSN Messenger: [email protected]
ek$i | DevianArt | Eve-Online | K.O.C.

[Bu mesaj Qui tarafından 10 Temmuz 2004 16:36 tarihinde değiştirilmiştir]

[Lixad]

qbasicde nasıl ama c için yazayım

unsigned int fak; //faktorieli alıncak sayı
unsignet int top = 1; //toplam
for(int i=2;i {
top = top * i;
}[signature][hline]Alma?
Mater?

[Qui]

Yazımda hata olabilir, qbasic bilmiyorum :)

[aktiftablet]

du until - loop yerine for - next döngüsü kullanabilirsin, basic de daha çok kullanılır. ama Qui'nin yazdığı doğru[signature][hline]move thougtfuly but fast as well
from heaven through the world to hell.

[Brudenell]

said:

Qui, 10 Temmuz 2004 16:35 tarihinde demiş ki:

do until i=k

bu satırı yazarken hata verdi... anlamadım düzeltemedimde neyse çok sağolun hepiniz

[zgrw]

10 i="girilen sayi bu olsaun"
20 if i=1 then goto 50
30 sonuc=i*(i-1)
40 i-- (c de var bu ama qbasic de varmı hatırlamıyorum olmazsa i=i-1 yaz :) )
45 goto 20
50 print sonuc
60 end[signature][hline]Her Avcı Avını Tutkuyla Avlar .
Bense Ötesinde Bir Av Yaparım .
Grandmaster zgrw
[Bu imza zgrw tarafından 07 July 2004 23:18 tarihinde değiştirilmiştir]

[Bu mesaj zgrw tarafından 11 Temmuz 2004 12:04 tarihinde değiştirilmiştir]