IMPLEMENTASI ALGORITMA

Algoritma adalah urutan langkah - langkah logis penyelesaian masalah yang disusun secara sistematis.
Ciri Algoritma : (menurut Donald E. Knuth)
1.Algoritma mempunyai awal dan akhir.
2.Setiap langkah harus didefinisikan dengan tepat sehingga tidak memiliki arti ganda (not ambigious).
3.Memiliki masukan (input)/kondisi awal
4.Memiliki keluaran (output)/kondisi akhir
5.Algoritma harus efektif, bila diikuti benar - benar akan menyelesaikan persoalan.
Contoh studi kasus :
Sebuah mobil telah digunakan beberapa tahun, didapatkan jumlah kerusakan pertahun sebagai berikut :
Tahun pertama, jumlah kerusakan = 0 dan probabilitas = 0.25
Tahun kedua, jumlah kerusakan = 1 dan probabilitas = 0.15
Tahun ketiga, jumlah kerusakan = 2 dan probabilitas = 0.10
Tahun keempat, jumlah kerusakan = 3 dan probabilitas = 0.35
Tahun kelima, jumlah kerusakan = 4 dan probabilitas = 0.15
Pertanyaan : Tentukan berapa jumlah kerusakan yang paling sering tiap tahunnya jika diketahui angka random 57,12,70,38,91,28,95,73,13, dan 90.
Penyelesaian :
Untuk mengatasi persoalan di atas, adalah sebagai berikut : (Aq menggunakan bahasa Turbo Pascal)
Algoritma 1
Algoritma untuk mencari frekuensi kumulatif (CDF) per tahun :

Program hitungCDF;
Uses crt;
Var
jlh:array[1..5] of integer;
S1,r1,total,distr:array[1..5] of real;
A,I,k:integer;
Begin
Textcolor(4);textcolor(15);
Clrscr;
For i:=1 to 5 do
Begin
Clrscr;
Write(‘Jumlah kerusakan : ‘);readln(jlh[i]);
Write(‘Distribusi densitas : ‘);readln(distr[i]);
End;
Total[1]:=distr[1];
For i:=2 to 5 do
Total[i]:=total[i-1]+distr[i];
A:=100;
For i:=1 to 5 do
Begin
R1[i]:=a*total[i];
End;
S1[1]:=0;
For i:=2 to 5 do
Begin
S1[i]:=(r1[i-1])+1;
End;
Clrscr;
Gotoxy(7,2);textcolor(4+128);writeln(‘Tabel fungsi kumulatif distribusi kerusakan mobil’); Gotoxy(7,3);textcolor(1);writeln(‘----------------------------------------------------------‘); Gotoxy(7,4);writeln(‘No Jml kerusakan Distr. Prob F. Kumulatif ‘);
Gotoxy(7,5);writeln(‘----------------------------------------------------------‘);
For k:=1 to 5 do
Begin
Gotoxy(7,5+k);
Writeln(‘’,k,’’,jlh[k],’’,distr[k]:5:2,’’,total[k]:5:2);
End; Gotoxy(7,11);writeln(‘----------------------------------------------------------‘);
Readln;
Gotoxy(7,13);textcolor(4+128);writeln(‘Tabel angka penunjuk batasan’); Gotoxy(7,14);textcolor(1);writeln(‘----------------------------------------------------------‘);
Gotoxy(7,15);writeln(‘No Jml kerusakan Distr. Prob Tag number ‘); Gotoxy(7,16);writeln(‘----------------------------------------------------------‘);
For k:=1 to 4 do
Begin Gotoxy(7,16+k);writeln(‘’,k,’’,jlh[k],’’,distr[k]:5:2,’’,s1[k]:2:0,’-‘,r1[k]:2:0);
End;
Writeln(‘5’,jlh[5],’’,distr[5]:5:2,’’,s1[5]:2:0,’-‘,(r1[5])-1:2:0);
Writeln(‘----------------------------------------------------------‘);
Readln;
End.

Algoritma 2
Algoritma untuk mencari jumlah total kerusakan mobil sesuai dengan tag numbernya :

Program hitungFrekuensi;
Uses crt;
Var
kerusakan:array[0..4] of integer;
Angka: byte;
I,n: integer;
Begin
Textcolor(3);textbackground(0);clrscr;
Kerusakan[0]:=0;kerusakan[1]:=0;kerusakan[2]:=0;kerusakan[3]:=0;kerusakan[4]:=0;
Write(‘Banyaknya jumlah bilangan random : ‘); readln(n);
For i:=1 to n do
Begin
Write(‘Masukkan angka random ke – ‘,I,’:’);readln(angka);
Case angka of
0..25:kerusakan[0]:=kerusakan[0]+1;
26..40:kerusakan[1]:=kerusakan[1]+1;
41..50:kerusakan[2]:=kerusakan[2]+1;
51..85:kerusakan[3]:=kerusakan[3]+1;
86..99:kerusakan[4]:=kerusakan[4]+1;
End;
End;
Writeln;writeln;writeln;
For i:=0 to 4 do
Begin
Textcolor(3+128);
Writeln(‘Banyaknya jumlah kerusakan’,I,’=’,kerusakan[i]);
End;
Readln;
End.