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....

2 comments:

  1. Assalamu'alaikum, blogwalking, baca2, cari inspirasi dan salam ukhuwah.. ^_^
    sekalian juga mau ngasih tau kalo di Toko Busana Muslimah Online banyak banget Jilbab Modern, Cantik Murah, Kerudung, Hijab, Bergo, Abaya, Turban, Shawl, Gamis, Mukena, Sejadah, Selendang, Aksesoris, DLL

    ReplyDelete

newer posts older posts back to home