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

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