Membuat Program Half-Subtractor

Berikut ini adalah penghitungan half substractor menggunakan program turbo pascal dan script di tulis menggunakan bahasa pascal.

Berikut adalah struktur algoritma program dan script program :

 

  

Script :

 program half_subtractor;
uses crt;
var
  x, y, b, d: integer;

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.