Algoritma brute force memecahkan masalah dengan sangat sederhana, langsung dan dengan cara yang jelas (obvious way).
contoh:
menghitung hasil dari an (a > 0, n adalah bilangan bulat tak-negatif)
function pangkat(input a, n : integer)<-integer
{ Menghitung an, a > 0 dan n bilangan bulat tak-negatif
Masukan: a, n
Keluaran: nilai perpangkatan.
}
Deklarasi
k, hasil : integer
Algoritma:
hasil<-1
for k<-1 to n do
hasil<-hasil * a
endfor
return hasil
dari algoritma diatas dapat diubah menjadi bahasa lain
bahasa PASCAL:
Program Pangkat;
{ Menghitung an, a > 0 dan n bilangan bulat tak-negatif
Masukan: a, n
Keluaran: nilai perpangkatan.
}
uses crt;
function hasil(a : integer; n : integer):integer;
var k : integer;
begin
hasil:=1;
for k:=1 to n do hasil:=hasil * a;
end;
var a:integer;
var n:integer;
begin
write('masukan basis : ');
readln(a);
write('masukan eksponen : ');
readln(n);
write('hasil : ',Pangkat(a,n));
end.
function pangkat(input a, n : integer)<-integer
{ Menghitung an, a > 0 dan n bilangan bulat tak-negatif
Masukan: a, n
Keluaran: nilai perpangkatan.
}
Deklarasi
k, hasil : integer
Algoritma:
hasil<-1
for k<-1 to n do
hasil<-hasil * a
endfor
return hasil
dari algoritma diatas dapat diubah menjadi bahasa lain
bahasa PASCAL:
Program Pangkat;
{ Menghitung an, a > 0 dan n bilangan bulat tak-negatif
Masukan: a, n
Keluaran: nilai perpangkatan.
}
uses crt;
function hasil(a : integer; n : integer):integer;
var k : integer;
begin
hasil:=1;
for k:=1 to n do hasil:=hasil * a;
end;
var a:integer;
var n:integer;
begin
write('masukan basis : ');
readln(a);
write('masukan eksponen : ');
readln(n);
write('hasil : ',Pangkat(a,n));
end.
No comments:
Post a Comment