21 Aralık 2015, 11:08
|
#1 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Q Basic Alıştırma ad sinif no siralama gosub
Q Basic Alıştırma ad sinif no siralama gosub 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 sinif(5) AS INTEGER
DIM no(5) AS INTEGER
DIM ad(5) AS STRING
FOR i = 1 TO 5
INPUT "sinifini gir ", sinif(i)
INPUT "no gir ", no(i)
INPUT "ad gir ", ad(i)
NEXT i
GOSUB yazdir
FOR m = 1 TO 5
FOR n = 1 TO 5
IF sinif(m) < sinif(n) THEN
SWAP sinif(m), sinif(n)
SWAP ad(m), ad(n)
SWAP no(m), no(n)
END IF
NEXT n
NEXT m
GOSUB yazdir
FOR m = 1 TO 5
FOR n = 1 TO 5
IF sinif(m) = sinif(n) AND no(m) < no(n) THEN
SWAP no(m), no(n)
SWAP ad(m), ad(n)
END IF
NEXT n
NEXT m
GOSUB yazdir
FOR m = 1 TO 5
FOR n = 1 TO 5
IF sinif(m) = sinif(n) AND no(m) = no(n) AND ad(m) < ad(n) THEN
SWAP ad(m), ad(n)
END IF
NEXT n
NEXT m
GOSUB yazdir
END
yazdir:
PRINT "---sinif-----",
PRINT "-----no-----",
PRINT "---isimler---"
FOR i = 1 TO 5
PRINT sinif(i),
PRINT no(i),
PRINT ad(i)
NEXT i
RETURN
__________________ 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.
|
| |