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..

PROGRAM PENGURUTAN ARRAY BAHASA C

Buat yg belajar bahasa C.. nih buat yang belajar materi pengurutan dan array.. hitung rata-rata juga
ini tampilan menu Utamanya:
menu 1 anda menginput data dan langsung mendapatkan hasil rata2 deretan angka yg anda input.
menu 2 anda akan mendapatkan urutan deretan angka yg anda input secara Ascending.

#include <stdio.h>
#include <stdlib.h>
#define max 100

void input(int A[], int n )
{
     int i;
     float rata;
    
     rata=0;
     for(i=0; i<n; i++)
     {
              printf("Angka %d : ",i+1); scanf("%d",&A[i]);
              rata=rata+A[i];
     }
     rata=rata/n;
                 
     printf("Rata-Rata : %.2f\n",rata);
     system("PAUSE");

}


int sorting(int A[], int n)
{
    int i,j,temp,min;
   
    system("CLS");
    printf("================\n");
    printf("Mengurutkan Angka\n");
    printf("================\n");

    for(i=0; i<n-1; i++)
    {
         min=i;
         for(j=i+1; j<n; j++)
         {
                    if(A[j]< A[min])
                    {
                                   min = j;
                    }
         }
         temp = A[min];
         A[min]= A[i];
         A[i]= temp;
    }
     for(i=0; i<n; i++)
     {
             printf("%3d",A[i]);
     }
     printf("\n");
   
system("PAUSE");
}

int main(int argc, char *argv[])
{
 int A[max],nomor,i,n,x;

 do
 {
   system("CLS");
   printf("Program Deretan Angka\n");
   printf("=====================\n");
   printf("\n");
   printf("1. Input dan Hitung Rata-rata\n");
   printf("2. Urutkan Data\n");
   printf("3. Keluar\n");
   printf("\n");
   printf("=====================\n");
   printf("\n");
   printf("Menu pilihan: "); scanf("%d",&nomor);
  
   while((nomor<1)||(nomor>3))
   {
      printf("Nomor Menu Salah! Ulangi! \n");
      printf("\n");
      printf("Menu pilihan : ");scanf("%d",&nomor);
   }
  
switch(nomor)
{
case 1:
     {
       system("CLS");
       printf("Program Deretan Angka\n");
       printf("\n");
       printf("=====================\n");
       printf("Masukkan jumlah deretan angka : "); scanf("%d",&n);
       input(A,n);
       x=1;
     }
     break;
    
case 2:
     {
       if(x==1)
       {
               sorting(A,n);
       }
       else
       {
       system("CLS");
       printf("ARRAY MASIH KOSONG");
       printf("\n");
       system("PAUSE");
       }
     }
     break;
     }
 }
while(nomor!=3);
return 0;
}

Tampilan nya:

PROGRAM HITUNG PANGKAT (PASCAL) FUNGSI

Penampakan :

-----------------------------------------------------------------------------------------------------

program hitung_pangkat;
uses crt;
var
a, n : integer;

            function pangkat(x : integer) : real;
            var
               hasil : real;
            begin
                 hasil := exp(x*ln(a));
                 pangkat:=hasil;
            end;

{-Main Program-}

begin
clrscr;

       write('Masukkan angka : ');readln(a);
       write('Dipangkatkan berapa ? ');readln(n);
       writeln('========================');
       writeln('Jadi ',a,'^',n,' adalah ',pangkat(n):2:0);
       writeln('========================');
       writeln('LUTFIBROWN"s SIMPLE CODE');

readln;
end.