IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Q Basic Alıştırma 2 sayı arası asallar

Q Basic Alıştırma 2 sayı arası asallar

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

Kod:

5 CLS

6 A = 0

7 B = 0

10 FOR X = 2000 TO 3001

12 G = 0

15 Y = 0

20 Y = Y + 1

30 Z = X / Y

40 C = INT(Z)

50 IF Z = C THEN GOTO 52 ELSE GOTO 20

52 G = G + 1

70 IF Y <> X THEN GOTO 20

80 IF G = 2 THEN PRINT X; : A = A + 1: B = B + X

85 NEXT X

86 PRINT "BULUNAN ASAL SAYI ADEDI="; A

87 PRINT "ASAL SAYILARIN TOPLAMI ="; B

88 D = B / A

89 PRINT "ASAL SAYILARIN ORTALAMASI ="; D

90 END