BAB
III
IMPLEMENTASI
3.1 Deskripsi Program
Program ini dibuat dengan menggunakan aplikasi pascal yang
sering digunakan. Program ini dibuat untuk membantu perhitungan dalam mengubah
biner ke desimal. Dengan menggunakan program ini pengguna akan dibantu, dalam
menghitung angka yang akan kita ubah tersebut. Dalam program ini juga terdapat
function yang membantu. Pada program digunakan rekursif untuk membantu proses
perulangan yang terjadi didalam source code. Sehingga program yang dibuat jadi
lebih mudah dan lebih sederhana.
3.2 Alur
Program
3.2.1 Program
Utama
3.2.2 Procedure px
3.2.2 Function Desbin
3.3 Source Code
Program Rekursif;
uses crt;
procedure
px(x:integer);
begin
if x>0 then begin
px(x-1);
write(x:5);
px(x-1);
end;
end;
function
desbin(n:integer):string;
Begin
if n=0 then
begin
desbin:='0';
end
else
if n=1 then desbin:='1'
else desbin:=desbin(n div 2) + desbin(n mod
2);
End;
var n:integer;
begin
clrscr;
while true do begin
write('desimal='); readln(n);
writeln('biner=',desbin(n));
end;
end.
|
Tidak ada komentar:
Posting Komentar
Berkomentarlah secara relevan sesuai topic yang di bahas..
Pengunjung yang super selalu meninggalkan jejak di komentar.