IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Q Basic Alıştırma isim numara dizi sıralama

Q Basic Alıştırma isim numara dizi sıralama

q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma

Kod:

CLS

TYPE kimlik

    ad AS STRING * 10

    no AS INTEGER

END TYPE

OPTION BASE 1

DIM a(5) AS kimlik

FOR i = 1 TO 5

    INPUT "adiniz"; a(i).ad

    INPUT "numaraiz"; a(i).no

NEXT i
 

FOR m = 1 TO 5

    FOR n = m + 1 TO 5

        IF a(m).no > a(n).no THEN

            t1 = a(m).no

            a(m).no = a(n).no

            a(n).no = t1

            t2$ = a(m).ad

            a(m).ad = a(n).ad

            a(n).ad = t2$

        END IF

    NEXT n

NEXT m

DO WHILE s < 5

    s = s + 1

    PRINT a(s).no

    PRINT a(s).ad

LOOP