Kaf_Dağı | 21 Aralık 2015 11:08 | 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:
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 |