Program Hitung ( +,-,x,/) Pascal

Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???

Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

Program Hitung ( +,-,x,/)

program hitungan;
uses wincrt;
var
   a,b,c,d :integer;
   z : char;
Begin
writeln('===========================================');
writeln('..........Program Hitung By Sakinah Lisdawati..............');
writeln;
writeln('Perhatikan Petunjuk !');
writeln('Untuk memulai menjalankan program hitung ini,masukkan kode operator.');
writeln('Jika anda memasukkan angka 1 , maka jenis operatornya adalah penjumlahan (+) ');
writeln('Jika anda memasukkan angka 2 , maka jenis operatornya adalah pengurangan (-) ');
writeln('Jika anda memasukkan angka 3 , maka jenis operatornya adalah perkalian (x) ');
writeln('Jika anda memasukkan angka 4 , maka jenis operatornya adalah pembagian (:) ');
writeln('_____________________________________________________');
writeln;
repeat
      write('          Masukkan kode operator : '); readln (b);
      write('          Masukkan angka pertama : '); readln (a);
      write('          Masukkan angka kedua   : '); readln (c);
      writeln;
      case b of
           1:writeln('          Penyelesaian : ',a,'+',c,'= ',a+c);
           2:writeln('          Penyelesaian : ',a,'-',c,'= ',a-c);
           3:writeln('          Penyelesaian : ',a,'x',c,'= ',a*c);
           4:writeln('          Penyelesaian : ',a,':',c,'= ',a/c:2:2);
           end;
writeln('===============================================');
      write('          Hitung lagi (Y/T) : '); readln (z);
      until (z)<>'y';
end.
Hasilnya akan tampil seperti gambar berikut !

 Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)

Terimakasih telah berkunjung ke Blog Saya....