program Urut bilangan Menggunakan Bahasa Pascal

program Urut bilangan Menggunakan Bahasa Pascal

Output Program

sebelumnya, Central IT Aceh telah membagikan source code program menghitung selisih waktu, nah sekarang kita aceh akan berbagi source code program urut bilangan . chek this out
:) 

Program Urut_Bilangan;
Uses Wincrt;
Var A,B,C:integer;
Begin
Writeln('Program Mengurut Bilangan');
Writeln('=========================');
Writeln;
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.

Output Program

ika ada pertanyaan, anda bisa bertanya pada box komentar di bawah, thanks

 Wassalam, Salam Setia BRS | Sharing information