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: Kodu kopyalamak için üzerine çift tıklayın! 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
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|