Pengurutan Bilangan mengunakan Turbo Pascal

Berikut ini adalah program sederhana Pengurutan dari tiga bilangan yang dimasukkan secara acak..

Output Program :

 

 

Source codenya :

program swift;
uses wincrt;
var
A, B, C : Integer;
begin
write('Masukkan Nilai A : '); readln(A);
write('Masukkan Nilai B : '); readln(B);
write('Masukkan Nilai C : '); readln(C);
writeln;
if (A <= B) and (A <= C) then
     if B <= C then
     writeln(A,' ',B,' ',C)
     else
     writeln(A,' ',C,' ',B)
else
if (B <= A) and (B <= C) then
     if A <= C then
     writeln(B,' ',A,' ',C)
     else
     writeln(B,' ',C,' ',A)
else
if (C <= A) and (C <= B) then
     if A <= B then
     writeln(C,' ',A,' ',B)
     else
     writeln(C,' ',B,' ',A);
end.

Artikel Terkait:

Pemrograman

• Menggerakkan Komponen & Membuat Animasi menggunakan komponen tTimer
• Cara Membuat Aplikasi Chatting Menggunakan Delphi 7
• String dalam Bahasa C
• Array dalam Bahasa C
• Fungsi dalam Bahasa C
• Perulangan dalam Bahasa C
• Percabangan dalam Bahasa C
• Fungsi-fungsi Dasar Dalam Bahasa C
• Tipe Data Primitif dalam Bahasa C
• Sejarah Perkembangan Bahasa Pemrograman C
• Perulangan Dengan Repeat Until Menggunakan Turbo Pascal
• Menghitung Bilangan Ganjil dan Genap Menggunakan Turbo Pascal
• MEMBUAT APLIKASI KONVERSI BILANGAN DENGAN PROGRAM VB
• MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0
• MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0
• MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
• MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB
• MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC
• MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC
• MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PASSWORD DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PENGHITUNG HARGA BARANG DENGAN VISUAL BASIC
• MEMBUAT PROGRAM MENGKONVERSI SUHU DENGAN VISUAL BASIC
• CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0