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