|
Webmaster Genel kategorisinde açılmış olan Q Basic Alıştırmaisim numara dizi sıralama konusu , ...
| LinkBack | Seçenekler | Arama | Stil |
21.12.2015, 08:36 | #1 (permalink) |
Kullanıcıların profil bilgileri misafirlere kapatılmıştır. | Q Basic Alıştırmaisim 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
__________________ Yalandan Korusun Mevlam |
Yukarı'daki Konuyu Aşağıdaki Sosyal Ağlarda Paylaşabilirsiniz. |
| |
Forum hakkında | Kullanılan sistem hakkında |
| SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc. |