IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Aralık 2015, 11:08   #1
Çevrimiçi
Q Basic Alıştırma ad sinif no siralama gosub


-- Sponsor Baglantı --


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

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

__________________
Kalem mürekkebi yüreği güzelinden alıyorsa,şiir bitmiştir demek...
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
, alıştırma, basic, gosub, q basic, q basic alıştırma ad sınıf no sıralama gosub, sinif, siralama, sıralama gosub

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Q Basic Alıştırma 2 sayı arası asallar Kaf_Dağı Programlama 0 21 Aralık 2015 11:07
Q Basic Alıştırma 1den N'e toplam Kaf_Dağı Programlama 0 21 Aralık 2015 11:07
Alıştırma oyunları Desmont Aile Evlilik ve Çocuklar 0 14 Aralık 2014 11:39
liste.txtden sirasi ile dialogda siralama? Aero mIRC Scripting Sorunları 6 16 Şubat 2009 20:59
Soru bankasini alfabetik olarak siralama CaPaCuL Eggdrop, NeoStats, BNC 5 09 Ocak 2008 02:25