IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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 asal sayı bulma (https://www.ircforumlari.net/programlama/719721-q-basic-alistirma-asal-sayi-bulma.html)

Kaf_Dağı 21 Aralık 2015 11:09

Q Basic Alıştırma asal sayı bulma
 
Q Basic Alıştırma asal sayı bulma




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


Kod:

CLS
 PRINT "GIRILEN SAYININ ASAL OLUP OLMADIGINI BULAN PROGRAM"
 INPUT "SAYI = ", N
 IF N < 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 1 THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF N = 2 THEN
  PRINT "ASAL"
  END
 END IF
 A = 1
 
ISLEM:
 A = A + 1
 IF (INT(N / A)) * A = N THEN
  PRINT "ASAL DEGIL"
  END
 END IF
 IF A = (N - 1) THEN
  PRINT "ASAL"
  END
 END IF
 GOTO ISLEM



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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net