program pengurutan data;
uses wincrt;
const NilaiMaksimum = 1000;
type Larik = array[1..NilaiMaksimum] of integer;
var
L : Larik;
batas : integer;
procedure masukan (var L : Larik; n : integer);
var
a : integer;
begin
for a := 1 to n do
begin
write('Masukkan Nilai Ke-' ,a,' : '); readln(L[a]);
end;
end;
procedure pengurutan (var L : Larik; n : integer);
var
i : integer;
k : integer;
temp : integer;
begin
for i := 1 to (n-1) do
for k := n downto i+1 do
if L[k] < L[k-1] then
begin
temp := L[k];
L[k] := L[k-1];
L[k-1] := temp;
end;
end;
procedure keluaran(var L : Larik; n : integer);
var
i : integer;
begin
for i := 1 to n do
write(L[i]:5);
end;
begin
writeln ('*******************************************') ;
write('Masukkan Jumlah Elemen yang diinginkan : '); readln(batas);
writeln ('*******************************************') ;
writeln;
masukan(L,batas) ; writeln;
pengurutan (L,batas); writeln;
writeln ('************************') ;
writeln('Hasil Pengurutan Larik : ');
writeln ('************************') ;
keluaran(L,batas);
Langganan:
Posting Komentar (Atom)
HTML
Blogroll
Popular Post
-
1.Python ( http://www.python.org/ftp/python/2.5/python-2.5.msi ) 2.Schemafuzz ( http://rup.ee/schemafuzzy.py ) 3.CMD buka cmd masuk ke fold...
-
<!– –> Memberi komentar atau keterangan. Kalimat yang...
-
Jika ada orang bicara mengenai kita di Belakang, itu adalah tanda bahwa kita sudah ada di DEPAN. Saat orang bicara Merendahkan diri kita, it...
-
SABTU, 24 MARET 2012 Aku Ingin Menjadi Hacker (Motivasi Buat Newbie) K etika pertama kali mengenal k...
-
Belajar C //////////// /// /// – tutorial /// /// //////////// Pada tutorial ini, diberikan penjelasan singkat tentang tipe data di C, dasar...
-
cuman mau mengingatkan jangan sampe ke asyikan deface web orang lain sampe sampe security web kita gak di perhatikan mungkin kalaw bug...
-
Udah lama ngga posting tentang tutor defacing website hehee, Sekarang saya akan sempatkan membahas tentang Cyber Gravity lagi nih... yai...
-
Pernah mencoba meretas akun twitter teman anda? Pasti pernah, tapi apakah pernah berhasil? Lebih baik jangan meretas twitter mereka, lebih b...
-
ANDA INGIN MENJADI SEORANG HACKER, TAPI TIDAK MENGETAHUI BAGAIMANA CARANYA? Pertama kali, saya akan menciutkan nyali siapapun yang ingin...
-
tak pernah kurasa sebelumnya ikatan erat pada sebuah kota kota kecil yang manis dan ramah kota tempatku tumbuh dan melihat dunia tak pern...
Followers
About Author
Pages
Diberdayakan oleh Blogger.
Archive
-
▼
2012
(35)
-
▼
Juni
(34)
- Cara Membuat Aplikasi Phishing Dengan VB 6
- "Portail Dokeos" File Upload vulnerability
- Memeriksa dan Menghentikan Serangan DDoS
- Bugs Template CMS Lokomedia After Patch
- TEKNIK DASAR CARDING
- Program C++ Luas dan Keliling Lingkaran
- Program C++ Luas Segitiga
- Contoh pascal program pengurutan data
- Belajar C++/C
- Deface Website SQL Injection with Havij
- Cara Deface Website Menggunakan Teknik XSS Vulnera...
- Perkuat login admin web kamu
- Cara Deface website dengan Schemafuzz
- Selamat Tinggal
- Jadi diri sendiri itu Indah
- Gue bukan hacker !!
- anda ingin menjadi seorang hacker, tapi tidak meng...
- Dari Newbie jadi Hacker
- Ajari Saya bagaimana menjadi Hacker yang baik
- Aku Ingin Menjadi Hacker (Motivasi Buat Newbie)
- Belajar Menjadi Hacker (Newbie)
- Cerita Perjalanan Seorang Newbie Menjadi Hacker
- Cara Upload Shell Melalui phpmyadmin
- Make a fake Twitter Password
- Source Code Twitter Auto Followers
- How to build your own Twitter client
- HTML syntax
- Tentang Hidup
- Alasan kenapa gue jomblo
- Tutorial HTML: Kumpulan Tag HTML
- Tips Buat Komputer Bicara
- Surat dari Anak yang di Aborsi
- Belajar bahasa CMD
- pengertian bahasa deface
-
▼
Juni
(34)
Tidak ada komentar:
Posting Komentar