Contoh Program Algoritma, Mencari Mean & Median

Program
statistik;

uses
wincrt;

type
statis = array[1..10] of integer;

var
data,frek : statis;
max : integer;
mean : real;
median : real;
modus,modus1 : integer;
i,j,jumlah,temp,imin : integer;

procedure input ;
begin

writeln('Inputkan Data : ');
writeln;
writeln('------------------------');
writeln;

max := 0;

for i := 1 to 10 do

begin
write('Masukan Data ke - ', i, '=');
readln(data[i]);
   if data[i] > max then
 begin
  max := data[i];
       end;
  end;
writeln;
writeln('------------------------');

end;

procedure rata2;
begin

jumlah := 0;
mean:=0;        
  for i := 1 to 10 do
    begin
jumlah := jumlah + data[i];                                          
    end;
   mean := jumlah / 10 ;
end;

procedure deret;
begin

for  i := 1 to 10 do
    begin
      imin := i;
begin
           for  j := i+1 to 10 do
           if  data[ j ] < data[imin] then
                imin   := j ;
             begin
                    temp := data[ i ] ;
                    data[ i ] := data[imin] ;
                    data[imin] := temp ;

             end;
         end;
    end;
end;


procedure muncul;
begin
{menghitung frekuensi nilai data}
  for i:=1 to 10 do
     begin
      for j:=i+1 to 10 do
      if data[i]=data[j] then
            frek[i]:=frek[i]+1;
     end;
{mencari data dengan frekuensi tertinggi}
  modus:=1;
     for i:=1 to 10 do
      begin
       if frek[modus]<frek[i] then
          modus:=i;
        begin
          for j:=1 to 10 do
           if frek[modus]=frek[j] then
             modus1:=j;
      end;
  end;
{mencetak modus}
  writeln;
     if frek[modus]=frek[i] then
          write ('modus tidak ada')
       else
       if frek[modus]=frek[modus1] then
        begin
          if data[modus]=data[modus1] then
             write('modus data adalah ',data[modus],' frekuensinya ',frek[modus]+1)
           else
               write('modus data adalah ',data[modus],' dan ',data[modus1],' frekuensinya ',frek[modus]+1);
              end
                  else
                   write('modus data adalah ',data[modus],' frekuensinya ',frek[modus]+1);


  end;

procedure tengah;
begin

 median := ( data[5] + data[6] ) / 2;
end;

begin
 input;
 deret;
 rata2;


 write('data setelah di urutkan : ');
 for i:= 1 to 10 do
 write(data[i], '  ');

   writeln;

 writeln('rata - rata : ',mean:0:2);
 writeln('nilai max : ', max);
 muncul;
  writeln;
 tengah;
 writeln('median : ', median:0:2);

 end.

Contoh Program Java Menentukan Grade Nilai

class Niai{
public static void main(String args[]){

int grade = 90;

if( grade >= 101 )        {
                System.out.println( "ERROR!!!" );
                System.out.println( "ERROR!!!" );
                System.out.println( "ERROR!!!" );
               
        }
                else if( (grade >= 86 ) && (grade <= 100) )
       
        {
                System.out.println( "Grade : A" );
                System.out.println( "Anda Lulus!!!" + "Exelent!!!" );
        }
                 else if( (grade >= 71 ) && (grade <= 85) )
                {
                    System.out.println("Grade : B" );
                    System.out.println( "Anda Lulus!!!" + "Good!!!" );
                }
                    else if( (grade >= 46) && (grade <= 70) )
                    {
                        System.out.println("Grade : C" );
                        System.out.println( "Anda Lulus!!!" );
                    }
                        else if( (grade >= 1)&& (grade <= 45))
                        {
                            System.out.println("Grade : D" );
                            System.out.println( "Harap Mengulang!!!" );
                        }
                            else
                            {              
                                System.out.println("Grade : E");
                                System.out.println( "Anda Gagal!!!" );
                            }
   
     }
   
}