uses crt;
type
bilangan=record
a,b,hasil : integer;
end;
var n,i,basis,b,a,total : integer;
pilihan : integer;
bil : array[1..50] of bilangan;
procedure biner;
begin
basis:=2;
writeln('Program Konversi Biner ke Desimal');
writeln('Basis Bilangan = ',basis);
write('Masukkan Jumlah Bilangan = ');readln(n);
for i:=1 to n do
begin
write('Masukkan bilangan ke',i,' = ');readln(bil[i].a);
bil[i].b:=bil[i].a;
bil[i].hasil:=bil[i].hasil+bil[i].b;
if i=2 then
begin
bil[i].hasil:=bil[i].a+bil[i-1].b*basis;
end;
if i>2 then
begin
bil[i].hasil:=bil[i].b+bil[i-1].hasil*basis;
end;
n:=n+1;
end;
writeln('Hasil Konversi adalah = ',bil[i].hasil);
end;
procedure oktal;
begin
basis:=8;
writeln('Program Konversi Oktal ke Desimal');
writeln('Basis Bilangan = ',basis);
write('Masukkan Jumlah Bilangan = ');readln(n);
for i:=1 to n do
begin
write('Masukkan bilangan ke',i,' = ');readln(bil[i].a);
bil[i].b:=bil[i].a;
bil[i].hasil:=bil[i].hasil+bil[i].b;
if i=2 then
begin
bil[i].hasil:=bil[i].a+bil[i-1].b*basis;
end;
if i>2 then
begin
bil[i].hasil:=bil[i].b+bil[i-1].hasil*basis;
end;
writeln('',bil[i].hasil);
n:=n+1;
end;
writeln('Hasil Konversi adalah = ',bil[i].hasil);
end;
begin
clrscr;
writeln('Program Konversi Biner dan Oktal ke Desimal');
writeln('');
writeln('1. Biner 2.Oktal 0.Exit');
writeln('');
write('Pilih Konversi Bilangan yang ingin digunakan ( 1 atau 2 ) : ');readln(pilihan);
if pilihan=1 then
begin
clrscr;
biner;
end;
if pilihan=2 then
begin
clrscr;
oktal;
end;
end.
