Program Penjumlahan dan Pengurangan Pascal

Buatlah Program Dengan Tampilan Sebagai berikut :

1.    Penjumlahan

2.    Pengurangan

Pilih (1/2)

Jika dipilih angka 1

Maka program akan menjalankan proses penjumlahan

Jika dipilih angka 2

Maka program akan menjalankan proses pengurangan

Jawab :

Program Utama;

uses crt;

var

a,b,c : integer;

tmb,krg : real;

begin;

   clrscr;

   writeln('1.Penjumlahan');

   writeln('2.Pengurangan');

   writeln('=====================');

   write('Pilih 1/2 : ');

   readln(a);

   writeln('=====================');

   write('masukkan angka 1 = ');

   readln(b);

   write('masukkan angka 2 = ');

   readln(c);

   writeln('---------------------');

   tmb:=b+c;

   krg:=b-c;

   if a=1 then writeln(b,' + ',c,' = ',tmb:4:1);

   if a=2 then writeln(b,' - ',c,' = ',krg:4:1);

   readln;

end.

Anda sedang membaca artikel tentang Program Penjumlahan dan Pengurangan Pascal dan Anda bisa menemukan artikel Program Penjumlahan dan Pengurangan Pascal ini dengan url http://gratisan69.blogspot.com/2012/05/program-penjumlahan-dan-pengurangan.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Penjumlahan dan Pengurangan Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait