Pascal - (perbaikan) Biner ke Desimal dan sebaliknya

Kode program diatas merupakan code desimal ke biner, jika kurang jelas  kopas kode dibawah;

program uiu;

uses wincrt;

var

des,i:integer;

bin:string;

op:char;

begin

writeln('Masukan Angka Desimal: ');

readln(des);

repeat

if (des mod 2) = 0 then op := '0'

   else op := '1';

   bin := bin + op;

   des := des div 2;

   until des = 0;

   for i := Length(bin) downto 1 do

   write(bin[i]);

   

end.

kemudin tekan F9 maka akan muncul

Jika tidak ada yg error tekan Ctrl+F9

Untuk kebalikanya lihat dibawah ini

Untuk Lebih JElasnya Kopi kode berikut;

program b2d;

uses wincrt;

var

bin:string;

dec:real;

i,k,l,x:integer;

begin

writeln('Masukan Angka Biner: ');readln(bin);

dec := 0;

k := 0;

for i := Length(bin) downto 0 do

    begin

    if k> 0 then k := k * 2

    else k := 1;

    Val(bin[i], l, x);

    dec := dec + (l * k);

    end;

writeln(dec:0:2);

end.

jika dicompile maka

Maka Tekan Run

Sebagai Pembanding saya screenshoot kan calculator programer