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, 12:37   #1
Çevrimiçi
Q Basic Alıştırma sinif yas siralama


-- Sponsor Baglantı --


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:   Kodu kopyalamak için üzerine çift tıklayın!
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

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:   Kodu kopyalamak için üzerine çift tıklayın!
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

__________________
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, q basic, q basic alıştırma sayıların sınıf yaş sıralama, sayıların sınıf yaş sıralama, sinif, siralama, yas

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 ok şekli Kaf_Dağı Programlama 0 21 Aralık 2015 12:36
Q Basic Alıştırma faktöriyel if Kaf_Dağı Programlama 0 21 Aralık 2015 12:34
Q Basic Alıştırma faktöriyel hesaplama Kaf_Dağı Programlama 0 21 Aralık 2015 12:34
Q Basic Alıştırma faktöriyel for Kaf_Dağı Programlama 0 21 Aralık 2015 12:34
Q Basic Alıştırma ad sinif no siralama gosub Kaf_Dağı Programlama 0 21 Aralık 2015 11:08