Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Bir Dizinin İkinci En Büyük Elemanını Diziyi Sıralamadan Bulan Program


Bir Dizinin İkinci En Büyük Elemanını Diziyi Sıralamadan Bulan Program

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.


  1.  
  2.  
  3.  
  4. uses crt;
  5. var
  6. dizi :array [1..100] of integer;
  7. i,k,max1,max2,b,j :integer;
  8. ch:char;
  9.  
  10. procedure maksimum2;
  11. begin
  12. max1:=dizi[1];
  13. for i:=2 to k do
  14.   begin
  15.   if max1 < dizi[i] then begin max1:=dizi[i]; j:=i; end;
  16.   end;
  17.  
  18. dizi[j]:=-10000;
  19. max2:=dizi[1];
  20. for i:=2 to k do
  21.   begin
  22.   if max2 < dizi[i] then max2:=dizi[i];
  23.   end;
  24.  
  25.  
  26.  
  27. begin
  28. clrscr;
  29. writeln('Dizi boyutunu giriniz..: ');
  30. readln(k);
  31. writeln('Dizi degerlerini giriniz..: ');
  32. for i:=1 to k do begin readln(b); dizi[i]:=b; end;
  33. maksimum2;
  34. writeln('Dizinin maksimum elemani:  ', max1,' Dizinin maksimum ikinci elemani: ', max2);
  35. readln;
  36.  
  37.                
  38.  
  39.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cuma, 03 Ağustos 2012 22:36 )  
backlinktr.biz | 521: Web server is down

Error 521 Ray ID: 4c9b703c4898a806 • 2019-04-19 02:27:16 UTC

Web server is down

You

Browser

Working
Istanbul

Cloudflare

Working
backlinktr.biz

Host

Error

What happened?

The web server is not returning a connection. As a result, the web page is not displaying.

What can I do?

If you are a visitor of this website:

Please try again in a few minutes.

If you are the owner of this website:

Contact your hosting provider letting them know your web server is not responding. Additional troubleshooting information.