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.
Rabu, 16 Juni 2010
Program Urut Bilangan
Langganan:
Posting Komentar (Atom)
search
Entri Populer
-
Program Urut_Bilangan; Uses Wincrt; Var A,B,C:integer; Begin Writeln('Program Mengurut Bilangan'); Writeln('====================...
Labels
- Algoritma (7)
- Mysql Data Base (1)
- Sistem Operasi (1)
- Tips dan Trik Computer (7)
- Tutorial (3)
About Me
- jodhypati
- Ilmu Komputer adalah ilmu yang sedang saya cari saat ini... jadi minat saya adalah mencari ilmu komputer setinggi mungkin
Tidak ada komentar:
Posting Komentar