Selasa, 20 Desember 2011

PROGRAM KONVERSI DESIMAL KE BINER DENGAN STACK

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.

Related Posts by Categories

0 komentar :

Posting Komentar

Thanks for your commentar

Domain Murah

indonetmedia