Friday, July 5, 2013

Program Pascal Menukarkan dua angka dgn variabel bantuan

program Menukarkan_dua_angka_dgn_variabel_bantuan;
var
   a, b, temp : integer;  {a:penampung angka pertama, b:penampung angka kedua}
                          {temp:variabel bantuan}

begin
   writeln('INPUT');
   writeln('-----');
   write('Angka 1 = ');readln(a);
   write('Angka 1 = ');readln(b);
   temp := a;
   a := b;
   b := temp;
   writeln; writeln;
   writeln('OUTPUT');
   writeln('------');
   writeln('Angka 1 = ',a);
   writeln('Angka 2 = ',b);
   readln;
end.

0 comments: