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.

PROGRAM HITUNG DERET 1+2+4+8+16+... (PASCAL)

Tampilan:

                                                                                                                                    



Program Hitung_deret;
uses crt;

var
i : integer;
a,c,b, jumlah: real;

begin
writeln('MENGHITUNG DERET 1 + 2 + 4 + 8 + 16 + 32 + 64 + 128 + sampai 50 angka');
     a:= 0.5;
     b:= 2;
     jumlah:= 0;
     for i := 1 to 50 do
     begin
     c:= a * b;
     a:= c;
     jumlah:= jumlah + c;
     end;
     writeln('jumlah deret = ', jumlah:0:0);
readln;

end.

PROGRAM CETAK BINTANG ASCENDING (PASCAL)

LATIHAN PRA-UTS 1c.

                                                                                                                             

 

                                                                                                                            

program star_ascending;

                uses crt;

                var

n, i, j : integer;

begin

write ('masukkan angka untuk mencetak bintang : '); readln(n);

for i := 1 to n do

begin

     for j := 1 to i do

     begin

     write ('*');

     end;

     writeln ( );

end;

readln;

end.