Half dan Full Subtractor Dengan Opsi Dalam Pascal

Aplikasi Pascal ini dibuat untuk mendemonstrasikan Half Subtractor dan Full Subtractor. Cara kerja aplikasi ini yaitu dengan memilih apakah ingin mendemonstrasikan Half Subtractor terebih dahulu ataupun Full Subtractor terlebih dahulu dengan pilihan angka 1 ataupun 2 pada home screen. Jika sudah memilih satu diantara 2 pilihan demonstrasi tersebut kemudian tekan enter dan masukkan angka input sesuai dengan yang anda inginkan untuk didemonstrasi, lalu tekan enter untuk melihat hasil.

program half_full_subtractor;

uses crt;

var

  x, y, z, b, d: integer;

  pilihan: integer;

procedure half;

begin

clrscr;

writeln(' PROGRAM HALF SUBSTRACTOR ');

writeln;

write('masukkan nilai x : (1/0)');

readln(x);

write('masukkan nilai y : (1/0)');

readln(y);

if (x = 0) and (y = 0) then

  begin

  b := 0;

  d := 0;

  end

else if (x = 0) and (y = 1) then

  begin

  b := 1;

  d := 1;

  end

else if (x = 1) and (y = 0) then

  begin

  b := 0 ;

  d := 1;

  end

else

  begin

  b := 0;

  d := 0;

  end;

  writeln;

  writeln('nilai borrow (pinjam) = ', b);

  writeln('nilai diff (selisih) = ', d);

  readln;

end;

  

procedure full;

begin

clrscr;

writeln(' PROGRAM FULL SUBSTRACTOR ');

writeln;

write('masukkan nilai x : (1/0)');

readln(x);

write('masukkan nilai y : (1/0)');

readln(y);

write('masukkan nilai z : (1/0)');

readln(z);

if (x = 0) and (y = 0) and (z = 0) then

  begin

  b := 0;

  d := 0;

  end;

if (x = 0) and (y = 0) and (z = 1) then

  begin

  b := 1;

  d := 1;

  end;

if (x = 0) and (y = 1) and (z = 0) then

  begin

  b := 1;

  d := 1;

  end;

if (x = 0) and (y = 1) and (z = 1) then

  begin

  b := 1;

  d := 0;

  end;

if (x = 1) and (y = 0) and (z = 0) then

  begin

  b := 0;

  d := 1;

  end;

if (x = 1) and (y = 0) and (z = 1) then

  begin

  b := 0;

  d := 0;

  end;

if (x = 1) and (y = 1) and (z = 0) then

  begin

  b := 0;

  d := 0;

  end;

  begin

  b := 1;

  d := 1;

  end;

  writeln;

  writeln('nilai borrow (pinjam) = ', b);

  writeln('nilai diff (selisih) = ', d);

  readln;

end;

begin

clrscr;

writeln('Program Konversi Biner dan Oktal ke Desimal');

writeln('');

writeln('1. Half 2.Full 0.Exit');

writeln('');

write('Pilih Konversi Bilangan yang ingin digunakan ( 1 atau 2 ) : ');readln(pilihan);

if pilihan=1 then

begin

clrscr;

half;

end;

if pilihan=2 then

begin

clrscr;

full;

end;

readln;

if pilihan=0 then

begin

end; 

  

  

end.