Program Konversi_pascal_ke_biner;
uses wincrt;
const maxelement = 100;
type tumpukan = record isi : array [1..maxelement] of integer;
atas: integer;
end;
var
stack: tumpukan;
nilai: integer;
i : integer;
sisa : integer;
procedure push (var stack : tumpukan; var nilai : integer);
begin
if stack.atas = maxelement then
write('Penuh')
else
stack.atas:= stack.atas+1;
stack.isi[stack.atas]:= nilai;
end;
function pop (var stack: tumpukan): integer;
begin
if stack.atas = 0 then
write('kosong')
else
pop:= stack.isi[stack.atas];
stack.atas:=stack.atas-1;
end;
procedure desimalkebiner(var nilai : integer);
var
i, sisa : integer;
begin
while (nilai>=2) do
begin
sisa := nilai mod 2;
push(stack, sisa);
nilai := nilai div 2;
end;
push(stack,nilai);
writeln;
writeln(' Maka Binernya adalah = ');
writeln;
writeln(' ===========');
write(' | ');
for i:= stack.atas downto 1 do begin
write(pop(stack),' '); end;
writeln('|');
writeln(' ===========');
end;
begin
writeln;
writeln(' PROGRAM KONVERSI DESIMAL KE BINER ');
writeln(' =================================================');
writeln;
writeln(' Nama : Syarif Hidayatullah');
writeln(' Kelas : TIF 3B');
writeln(' NIM : 11051101864');
writeln;
write(' Masukkan Nilai Desimal yg ingin dikonversikan = '); readln(nilai);
desimalkebiner(nilai);
end.
0 komentar :
Posting Komentar
Thanks for your commentar