IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Q Basic Alıştırma faktöriyel hesaplama

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Programlama (https://www.ircforumlari.net/programlama/)

- - Q Basic Alıştırma faktöriyel hesaplama (https://www.ircforumlari.net/programlama/719726-q-basic-alistirma-faktoriyel-hesaplama.html)

Kaf_Dağı

21 Aralık 2015 12:34

Q Basic Alıştırma faktöriyel hesaplama

Q Basic Alıştırma faktöriyel hesaplama

q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma

Kod:

CLS

10 PRINT "FAKTORIYELINI HESAPLAMAK ISTEDIGINIZ SAYiyi GIRIN"

20 INPUT N

30 IF N = 0 THEN PRINT 1: GOTO 100

40 F = 1

50 S = 1

60 F = F * S

70 S = S + 1

80 IF S > N THEN GOTO 90 ELSE GOTO 60

90 PRINT F

100 END

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:53.