Mafika (Management File Informatika)
Silahkan login sebagai user agar dapat men Download file-file perkuliahan..
belum jadi member? Register dolo dah..

enjoy it
*world

Mafika (Management File Informatika)

forum nya anak IT
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Sepak Terjang si Ratu KKN (Rini Sumarno) By Relawan B5
by vila145 Mon 13 Jul 2015, 12:58 pm

» Waspada Krisis Nasional
by vila145 Fri 10 Jul 2015, 2:34 pm

» SUTIYOSO Bang Yos - JOKOWI SUTIYOSO BIN – Pupusnya Harapan Memiliki Kabinet Profesional (BIN)
by putih118 Wed 01 Jul 2015, 2:18 pm

» BangYos Sutiyoso -Korban Penculikan Yakin Sutiyoso Terlibat di Peristiwa 27 Juli
by putih118 Tue 30 Jun 2015, 1:46 pm

» Sutiyoso Pelantikan (KaBIN) dan Impeachment Jokowi | By Relawan B5
by putih118 Fri 26 Jun 2015, 1:32 pm

» Sutiyoso - Liputan6 - BIN- Jokowi Didesak Ajukan Calon Kepala BIN yang Bebas dari Politik
by putih118 Tue 23 Jun 2015, 12:02 pm

» Sutiyoso Bin Bang Yos Intelijen PKPI BANG YOS KORUPSI dan KOLUSI SUTIYOSO
by putih118 Mon 22 Jun 2015, 3:46 pm

» CALON KEPALA BIN YANG TIDAK TEPAT - BANG YOS - SUTIYOSO
by putih118 Fri 19 Jun 2015, 12:08 pm

» Tolak Sutiyoso - Save RI - Sadarkan Jokowi - Publik Kecewa Jokowi Pilih Bang Yos - D
by putih118 Wed 17 Jun 2015, 1:58 pm

Similar topics
Top posters
olaf thon (320)
 
-C- (161)
 
kido (99)
 
Mr_Rin (64)
 
Admin (56)
 
extreme21 (52)
 
Jhajat (48)
 
iwan kiddy (47)
 
NyetNjingSu (25)
 
aminpersonal (22)
 
Mafika On Facebook
My Time
Laku.com belanja online grosir eceran murah dan aman = http://www.diditrinjano.com/2012/07/lakucom-belanja-online-grosir-eceran.html

Share | 
 

 Program Pengurutan Angka dengan Pascal

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Mr_Rin
Level 4
Level 4


Jumlah posting : 64
Points : 129
Join date : 27.11.10
Age : 25
Lokasi : World Cyber

PostSubyek: Program Pengurutan Angka dengan Pascal    Wed 18 May 2011, 9:56 pm

program MengurutkanData;
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 ('PuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyeng*') ;
write('Masukkan Jumlah Elemen yang diinginkan : '); readln(batas);
writeln ('PuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyeng*') ;
writeln;
masukan(L,batas) ; writeln;
pengurutan (L,batas); writeln;
writeln ('PuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyeng') ;
writeln('Hasil Pengurutan Larik : ');
writeln ('PuyengPuyengPuyengPuyengPuyengPuyengPuyengPuyeng') ;
keluaran(L,batas);
end.
Kembali Ke Atas Go down
Lihat profil user http://didit-rinjano.blogspot.com/
 
Program Pengurutan Angka dengan Pascal
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» 10 Negara dengan Jumlah Perokok TerTinggi di Dunia
» Angka Romawi Kuno
» Memahami Indra Keenam
» Program Beasiswa S2 dan S3 Luar Negeri untuk Umum
» Cerita tentang Jin

Permissions in this forum:Anda tidak dapat menjawab topik
Mafika (Management File Informatika) :: MAFIKA DATABASES :: SEMESTER II :: Algoritma dan Pemrograman + Praktek-
Navigasi: