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 11 Temmuz 2014, 11:02   #1
Çevrimdışı
Bir Dizinin İkinci En Büyük Elemanını Diziyi Sıralamadan Bulan Program


-- Sponsor Baglantı --


Pascal programlama dilinde yazılmış bu programda verilen bir dizinin 2. en büyük elemanını diziyi sıralamadan bulan prosedür icra edilmiştir.Bu kısımda öncelikle en büyük sayı bulunmuş sonrasında bu sayının bulunduğu dizi elemanına -10000 değeri atanarak ikinci en büyük sayının bulunması amaçlanmıştır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var dizi :array [1..100] of integer; i,k,max1,max2,b,j :integer; ch:char; procedure maksimum2; begin max1:=dizi[1]; for i:=2 to k do begin if max1 < dizi[i] then begin max1:=dizi[i]; j:=i; end; end; dizi[j]:=-10000; max2:=dizi[1]; for i:=2 to k do begin if max2 < dizi[i] then max2:=dizi[i]; end; end; begin clrscr; writeln('Dizi boyutunu giriniz..: '); readln(k); writeln('Dizi degerlerini giriniz..: '); for i:=1 to k do begin readln(b); dizi[i]:=b; end; maksimum2; writeln('Dizinin maksimum elemani: ', max1,' Dizinin maksimum ikinci elemani: ', max2); readln; end.

Pascal programlama dilinde yazılmış bu programda verilen bir dizinin 2. en büyük elemanını diziyi sıralamadan bulan prosedür icra edilmiştir.Bu kısımda öncelikle en büyük sayı bulunmuş sonrasında bu sayının bulunduğu dizi elemanına -10000 değeri atanarak ikinci en büyük sayının bulunması amaçlanmıştır.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
uses crt; var dizi :array [1..100] of integer; i,k,max1,max2,b,j :integer; ch:char; procedure maksimum2; begin max1:=dizi[1]; for i:=2 to k do begin if max1 < dizi[i] then begin max1:=dizi[i]; j:=i; end; end; dizi[j]:=-10000; max2:=dizi[1]; for i:=2 to k do begin if max2 < dizi[i] then max2:=dizi[i]; end; end; begin clrscr; writeln('Dizi boyutunu giriniz..: '); readln(k); writeln('Dizi degerlerini giriniz..: '); for i:=1 to k do begin readln(b); dizi[i]:=b; end; maksimum2; writeln('Dizinin maksimum elemani: ', max1,' Dizinin maksimum ikinci elemani: ', max2); readln; end.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
bîr, bulan, bÜyÜk, dizinin, diziyi, elemanını, en, program, sıralamadan, İkinci

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
Wildstar'ın İkinci Büyük Güncellemesi PvP Odaklı Olacak! Kalemzede Oyun Dünyasından Son Haberler 0 06 Temmuz 2014 14:32
İkinci Büyük Talip Elysian Spor Haberleri 0 09 Mart 2014 15:57
Harf notlarının sayısını bulan program aSi C ve C++ 0 17 Şubat 2012 23:56
Kenarlarından hiçbirinin değeri 50 ‘den büyük olmayan tüm özel üçgenleri bulan progr aSi C ve C++ 0 17 Şubat 2012 23:49
İkinci el otoda büyük ucuzluk Collettivo Otomobil Haberleri 1 24 Ekim 2008 03:52