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)
Silahkan login sebagai user agar dapat men Download file-file perkuliahan..
belum jadi member? Register dolo dah..

enjoy it
*world
Mafika (Management File Informatika)
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Mafika (Management File Informatika)

forum nya anak IT
 
IndeksLatest imagesPencarianPendaftaranLogin
Pencarian
 
 

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

» Waspada Krisis Nasional
Program Pengurutan Angka dengan Pascal  Icon_minitimeby vila145 Fri 10 Jul 2015, 2:34 pm

» SUTIYOSO Bang Yos - JOKOWI SUTIYOSO BIN – Pupusnya Harapan Memiliki Kabinet Profesional (BIN)
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Wed 01 Jul 2015, 2:18 pm

» BangYos Sutiyoso -Korban Penculikan Yakin Sutiyoso Terlibat di Peristiwa 27 Juli
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Tue 30 Jun 2015, 1:46 pm

» Sutiyoso Pelantikan (KaBIN) dan Impeachment Jokowi | By Relawan B5
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Fri 26 Jun 2015, 1:32 pm

» Sutiyoso - Liputan6 - BIN- Jokowi Didesak Ajukan Calon Kepala BIN yang Bebas dari Politik
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Tue 23 Jun 2015, 12:02 pm

» Sutiyoso Bin Bang Yos Intelijen PKPI BANG YOS KORUPSI dan KOLUSI SUTIYOSO
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Mon 22 Jun 2015, 3:46 pm

» CALON KEPALA BIN YANG TIDAK TEPAT - BANG YOS - SUTIYOSO
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Fri 19 Jun 2015, 12:08 pm

» Tolak Sutiyoso - Save RI - Sadarkan Jokowi - Publik Kecewa Jokowi Pilih Bang Yos - D
Program Pengurutan Angka dengan Pascal  Icon_minitimeby putih118 Wed 17 Jun 2015, 1:58 pm

Similar topics
Top posters
olaf thon (320)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
-C- (161)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
kido (99)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
Mr_Rin (64)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
Admin (56)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
extreme21 (52)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
Jhajat (48)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
iwan kiddy (47)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
NyetNjingSu (25)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
aminpersonal (22)
Program Pengurutan Angka dengan Pascal  Vote_lcapProgram Pengurutan Angka dengan Pascal  Voting_barProgram Pengurutan Angka dengan Pascal  Vote_rcap 
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

 

 Program Pengurutan Angka dengan Pascal

Go down 
PengirimMessage
Mr_Rin
Level 4
Level 4
Mr_Rin


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

Program Pengurutan Angka dengan Pascal  Empty
PostSubyek: Program Pengurutan Angka dengan Pascal    Program Pengurutan Angka dengan Pascal  Icon_minitimeWed 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
http://didit-rinjano.blogspot.com/
 
Program Pengurutan Angka dengan Pascal
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Program Penambahan Indeks dengan Pascal
» Mengakses Web hanya dengan kalkulator...
» Design Jaringan dengan NetSimK

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