Program Bubble (Menyortir Data) dengan Bahasa C / C++

#include <stdio.h>
main() {

int i,j,x,a[1000],n;

printf("Banyak data yang ingin di sort = ");scanf("%d",&n);

for(i=0;i<n;i++)
{
printf("Masukkan data bubble a[%d]=",i+1);scanf("%d",&a[i]);
}
    for(i=0;i<=(n-2);i++){
 
for(j=(n-1);j>=(i+1);j--){

if(a[j-1]>a[j]){
x=a[j-1];
a[j-1]=a[j];
a[j]=x;
}
}
}
printf("Setelah di Sort \n");
for(i=0;i<n;i++){
printf("a[%d]=%d",i+1,a[i]);
printf("\n");
 }
}

Read more »

Posted in: BAHASA C,STRUKTUR DATA

Program Mencari Nilai Maksimum dan Minimum dengan Bahasa Pascal

program max_min;
uses crt;
var
 a       : array [1..100] of integer;
 b,c     : integer;
 jumlah  : longint;
 min,max : real;
begin
 writeln('Program Mencari Nilai Maximum dan Minimum');
 writeln('Banyak Data yang akan diinput : ');readln(b);
 jumlah := 0;
 for c:= 1 to b do
 begin
  write('Masukkan data ke-',c,'=');readln(a[c]);
  jumlah:=jumlah+a[c];
 end;
 begin
 clrscr;
   max := a[1];
   min := a[1];
   for c := 2 to b  do
     if a[c] > max then max := a[c]
       else if a[c] < min then
       min := a[c];{mencari nilai maximum dan minimum}
       writeln('');
       writeln('Nilai Minimum = ',min:0:2);
       writeln('Nilai Maximum = ',max:0:2);
     readln;
     end;
   end.

Read more »

Posted in: BAHASA PASCAL

Program Select (Menyortir Data Secara Seleksi) dengan Bahasa C / C++

#include <stdio.h>
main(){

int i,j,x,a[1000],n;

printf("Banyak data yang ingin di sort = ");scanf("%d",&n);

for(i=0;i<n;i++)
{
printf("Masukkan data a[%d]=",i+1);scanf("%d",&a[i]);
}
    for(i=0;i<n;i++){
 
for(j=(i+1);j<n;j++){

if(a[i]>a[j]){
x=a[i];
a[i]=a[j];
a[j]=x;
}
}
}
printf("Setelah di Sort \n");
for(i=0;i<n;i++){
printf("a[%d]=%d",i+1,a[i]);
printf("\n");
 }
}

Read more »

Posted in: BAHASA C,STRUKTUR DATA

Program Function dengan Bahasa Pascal

function faktorial ( nilai:integer):integer;

begin
if nilai <=0 then faktorial:=1
else
faktorial:=nilai*faktorial (nilai-1);
end;
var
N:integer;
begin
write('berapa faktorial?');readln(N);
writeln(N,'faktorial=',faktorial(N));
end.

Read more »

Posted in: BAHASA PASCAL