By Lukman Wahyudi Program Urut Ascending Dan Descending
PROGRAM URUT ASCENDING DAN DESCENDING
Ini adalah sebuah sebuah program urut dengan dengan masukan 4 nama buah, buah, yang kemudian kemudian akan di keluarkan secara berurutan berdasarkan abjad. Pengurutan dalam program ini dapat kita lakukan secara Ascending ataupun Descending. Berikut adalah Source Code dari program urut beserta gambarnya. Source Code Program Urut;
end;
uses wincrt;
end;
label 1,2;
procedure Descending;
var x : array[0..3] of string;
var
y : array[0..3] of string;
i, j, tempatnya_min : integer;
pilih : char;
min, temp : string;
i : integer;
begin for j := 0 to 3 do
procedure Ascending;
begin
var
min := x[j];
i, j, tempatnya_max : integer;
for i := j to 3 do
max, temp : string;
begin
begin
if (x[i] >= min) then
for j := 0 to 3 do
begin
begin
min := x[i];
max := x[j];
tempatnya_min := i;
for i := j to 3 do
end;
begin
end;
if (x[i] <= max) then
temp := x[j];
begin
x[j] := x[tempatnya_min];
max := x[i];
x[tempatnya_min] := temp;
tempatnya_max := i; end; end; temp := x[j]; x[j] := x[tempatnya_max];
end; clrscr; gotoXY(5,17); writeln('Hasil data yang telah di urut secara Descending'); for i := 0 to 3 do begin
x[tempatnya_max] := temp;
gotoxy(25,19+i); write(x[i]);
end;
end;
clrscr; gotoXY(5,17); writeln('Hasil data yang telah di urut secara Ascending'); for i := 0 to 3 do begin gotoxy(25,19+i); write(x[i]);
end; begin { Program Utama } 1 : gotoxy(5,1); writeln('Masukkan writeln('Masukkan 4 nama buah'); write('Masukkan nama buah 1 : '); readln(x[0]);
By Lukman Wahyudi
1
The world’s largest digital library
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
The world’s largest digital library
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
By Lukman Wahyudi Program Urut Ascending Dan Descending write('Masukkan nama buah 2 : '); readln(x[1]);
gotoXY( 5,12); write('| Pilih :
write('Masukkan nama buah 3 : '); readln(x[2]);
gotoXY( 5,13); write('|_______________|');
write('Masukkan nama buah 4 : '); readln(x[3]);
gotoXY(17,12); pilih := readkey;
clrscr;
if pilih = '1' then
for i := 0 to 3 do
|');
Ascending
begin y[i] := x[i];
else if pilih = '2' then
end;
Descending
repeat 2 : gotoxy(15,15); clrEoL;
else if pilih = '3' then
gotoXY(34,6); writeln('Urutan Awal Data');
begin
for i := 0 to 3 do
clrscr;
begin
goto 1;
gotoXY(41,i+7); write(y[i]);
end
end;
else
goto gotoX XY( 5,2) 5,2);; wri write te(' ('||¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ |'); gotoXY( 5,3); write('|
Menu :
begin
|');
gotoXY( 5,4); write('|_______________|'); goto gotoX XY( 5,5) 5,5);; wri write te(' ('||¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ |'); );
clrscr; gotoxy(15,15); write('Maaf anda hanya dapat memilih dari no 0-3');
gotoXY( 5,6); write('| write('| 1. Ascending Ascending |');
readkey; goto 2;
gotoXY( 5,7); write('| 2. Descending |');
clrscr;
gotoXY( 5,8); write('| 3. New gotoXY( 5,9); write('| 0. Quit
end;
|'); |');
gotoXY( 5,10); write('|_______________|'); goto gotoX XY( 5,11 5,11); ); write rite(' ('|¯¯ |¯¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ |'); );
until pilih = '0'; end.
2
The world’s largest digital library
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
By Lukman Wahyudi Program Urut Ascending Dan Descending
Gambar Runing Program
Gambar Masukan Data
Gambar Data Urut Ascending
3