21 Aralık 2015, 12:37
|
#1 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Q Basic Alıştırma sinif yas siralama
Q Basic Alıştırma sayıların sinif yas siralama 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
OPTION BASE 1
DIM yas(5) AS INTEGER
DIM sinif(5) AS INTEGER
FOR i = 1 TO 5
INPUT "yas", yas(i)
INPUT "sinif", sinif(i)
NEXT i
PRINT "======================="
PRINT "yaslar",
PRINT "siniflar"
FOR j = 1 TO 5
PRINT yas(j),
PRINT sinif(j)
NEXT j
'sinifa g”re siralama'
FOR m = 1 TO 4
FOR n = m + 1 TO 5
IF sinif(m) > sinif(n) THEN
SWAP sinif(m), sinif(n)
SWAP yas(m), yas(n)
END IF
NEXT n
NEXT m
'yasa g”re siralama'
FOR m = 1 TO 4
FOR n = m + 1 TO 5
IF sinif(m) = sinif(n) AND yas(m) > yas(n) THEN
SWAP yas(m), yas(n)
END IF
NEXT n
NEXT m
PRINT "======================="
PRINT "yaslar",
PRINT "siniflar"
FOR j = 1 TO 5
PRINT yas(j),
PRINT sinif(j)
NEXT j
__________________ 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.
|
| |