Program Selection Sort Descending (PASCAL)

 Penampakan ^^
Silahkan Copas Bos semoga bermanfaat bagi kita semua...


Program Selection_sort_Descending;
uses crt;

const   
maks = 50;

type
Larik = array[1..maks] of integer;

var
n,i,j : integer;
L: larik;
min    : integer;
temp     : integer;

{=======================INPUT LARIK======================}
begin
writeln('Masukkan Jumlah data : '); readln(n);
for i:= 1 to n do
begin
    writeln('Masukkan data ke-',i,' : ');read(L[i]);
end;
    writeln('==================');
    writeln('Data input nya adalah : ');
for i:=1 to n  do
    write(L[i],' ');

{============PROSES SORTING SELECTION SORT DESCENDING========================}
For i:=1 to n-1 do
begin
Min:=i;
For j:= i to n do
begin
            If L[j] > L[min] then
            Min:=j;
End;
Temp:=L[i];
    L[i]:=L[min];
    L[min]:=temp;
End;
{===============TAMPIL DATA=========================}

writeln;
writeln('Data setelah Diurutkan dengan Selection Sort Descending : ');
for i := 1 to n do
write(L[i],' ');
readln;

readln;
end.

Program Bubblesort Ascending (PASCAL)

Tampilan :

Program ini di Run pake Dev_Pas...

Tampilan awal:

Setelah Di enter Bilangan yg diiput telah tersusun secara bubble sort Ascending.. Sorry gan SS nya lum Sempat ganti tulisan Selection nya... kwkwkw

 Langsung ajah bos ini code nya:

-----------------------------------------------------------------------------
Program Bubblesort_ascending;
uses crt;

const
maks = 50;

type
Larik = array[1..maks] of integer;

var
n,i,j : integer;
L: larik;
min    : integer;
temp     : integer;

{=======================INPUT LARIK===============================}
begin
writeln('Masukkan Jumlah data : '); readln(n);
for i:= 1 to n do
begin
    writeln('Masukkan data ke-',i,' : ');read(L[i]);
end;
    writeln('==================');
    writeln('Data input nya adalah : ');
for i:=1 to n  do
    write(L[i],' ');

{============PROSES SORTING Bubble SORT ASCENDING===================}
for i:=1 to n-1 do
begin
     for j:= n downto i+1 do
     begin
          if L[j] > L[j-1] then
          begin
            Temp:=L[j];
            L[j]:=L[j-1];
            L[j-1]:=temp;
          end;
     end;
end;

{===============TAMPIL DATA====================================}
writeln;
writeln('Data setelah Diurutkan dengan Bubble Sort Ascending : ');
for i := 1 to n do
write(L[i],' ');
readln;

readln;
end.











Thanks Bos.. Semoga Bermanfaat.. Alhamdulillah Jazakumuloh Khaira..