Pascal - Konvert Desimal ke Oktal

Pemanfaatan case dalam menanggani konverter desimal ke oktal, ini sebagai referensi, semoga bisa membantu dalam mengelola kode2. yang diperlukan hanya kreatifitas dalam mengelolah. seperti halnya seniman yang melukis, kita adalah seniman yang meng coding ..

berikut code

program konoktal;
uses wincrt;
var
des,desi:integer;

procedure okt(des, desi : integer);

var
oktal : string;
o : integer;

begin
oktal:='';
repeat
   o:=des mod 8;
   case o of
   0:oktal:='0'+oktal;
   1:oktal:='1'+oktal;
   2:oktal:='2'+oktal;
   3:oktal:='3'+oktal;
   4:oktal:='4'+oktal;
   5:oktal:='5'+oktal;
   6:oktal:='6'+oktal;
   7:oktal:='7'+oktal;
   end;
   des:= des div 8;
until des=0;
writeln('(',desi,') desimal = ',
oktal,' (Oktal)');
end;

begin

des:=352;
desi:=des;
okt(des,desi);

des:=876;
desi:=des;
okt(des,desi);
end.