Dosya İsmine Göre Ara
Yazara Göre Ara
Dosyala Türleri

Pascal Programlama Dersi’nden Geçme Kılavuzu


Administ 05-02-2014
Dosya:
Pascal Programlama Dersi’nde...

Yazar / Kaynak:

Kategori:

Dosya Formatı:

Dil - Çevirmen:
Türkçe

İndirme:
198

Görüntüleme:
790



Özet:

Soru 01: N adet sayıyı küçükten büyüğe sıralayan program

{N adet sayıyı küçükten büyüğe sıralayan program}

Program kucuk_buyuk;

uses crt;

var

n, i, j, yedek :integer;

matris :array[1..100] of integer;

begin

clrscr;

write('Sıralanacak sayı adedini giriniz :');

readln(N);

for i:=1 to n do

begin

write(i);

write('. sayıyı giriniz :');

readln(matris[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

begin

if matris[i]>matris[j] then

begin

yedek :=matris[i];

matris[i]:=matris[j];

matris[j]:=yedek;

end;

end;

clrscr;

writeln('Küçükten büyüğe sıralama :');

for i:=1 to n do

writeln(matris[i]);

readkey;

end.


Kullanıcı Yorumları (0)

Bu dosyaya daha yorum yapılmamış. İlk yorumu sen yaz.
ZiyaretçiTarih: 19-06-20 21:22:21



Facebook sayfamızı beğensene



Rastgele Dosyalar


Kimsesiz Kitaplar, hiç bir dosyayı kendi sunucusunda barındırmaz. kimsesizkitaplar.com üzerinden paylaşılan dosya bağlantılarınının kaldırılmasını istiyorsanız lütfen bize bildiriniz. İletişim: info@kimsesizkitaplar.com
info@kimsesizkitaplar.com | WebSiteniOlustur | Kimsesiz Kitaplar | ip: 18.212.90.230
kimsesizkitaplar Anasayfakimsesizkitaplar Facebook sayfasıkimsesizkitaplar Twitter hesabıkimsesizkitaplar Google Plus sayfası