Script Membuat Kalkulator Sederhana Menggunakan Pascal-kursus pemrograman di majalengka

Script Membuat Kalkulator Sederhana Menggunakan Pascal-kursus pemrograman di majalengka

kursus komputer majalengka

Kalkulator adalahalat tolong yang dipakai manusia untuk mempermudah kita dalam menghitung operasi bilangan laksana penjumlahan, pengurangan, perkalian, pembagian ataupun pemangkatan. Dengan adanya kalkulator kita dapat dengan cepat dan gampang mendapatkan hasil dari proses pengolahan angka.

Pernahkah sobat sheliciouss berfikir bagaimana teknik membuat kalkulator? bagaimana proses yang dilaksanakan sebuah kalkulator guna menghitung? bagaimana metodenya kita menginput operasi bilangan dan menghasilkan keluaran yang benar? Nah andai belum pernah berarti sobat sheliciouss tidak salah mendatangi blog ini, sebab pada artikel sekarang Shella akan menyerahkan sebuah teknik bagaimana menciptakan kalkulator sederhana memakai pascal.

Seperti yang sudah diterangkan pada artikel sebelumnya yakni Dasar Pengenalan Pascal Bagi Pemula, Pascal ialah salah satu bahasa pemrograman komputer yang seringkali digunakan sebagai pendahuluan untuk mulai belajar algoritma yang relatif gampang dipelajari sebab perintah-perintahnya yang serupa dengan bahasa inggris keseharian seperti begin, end, write dan read.

Dalam pembuatannya sangat gampang kok, berikut urusan yang mesti sobat sediakan guna memulai menciptakan kalkulator simpel :
Laptop atau PC dengan OS Windows, disini OS yang Shella pakai Windows 7
Compiler Pascal, disini compiler yang Shella pakai Free Pascal
Ok anda mulai teknik pembuatannya, posisinya laptop atau pc sobat telah terinstall Compiler Pascalnya ya :
Buka software Free Pascal di Laptop sobat.
Klik File kemudian pilih New
Setelah tersebut klik File kemudian Save As, beri nama kalkulator_sederhana. (ingat tidak boleh menggunakan spasi ketika memberi nama file)
Jika telah disave, tuliskan script inilah ini :
uses crt;
var
b1, b2,i, operasi:integer;
hasil:real;

begin

clrscr;

write ('bilangan 1=');

readln (b1);

write ('bilangan 2=');

readln (b2);

write ('operasi = 1(+) 2(-) 3(/) 4() 5(^)');

readln (operasi);

hasil:=1;

if (operasi = 1) then

hasil := b1+b2

else if (operasi=2)then

hasil := b1-b2

else if (operasi=3) then

hasil := b1/b2

else if (operasi=4)then

hasil := b1b2

else if (operasi=5) then

for i:=1 to b2 do

begin

hasil :=hasilb1;

end;

writeln('hasilnya=',hasil:7:2);

readln;

end.

Jika telah sobat ketik ulang atau copy script diatas klik Compile => Compile atau klik ALT+F9, bilamana ada script yang salah maka akan hadir warning Failed to compile, andai tidak ada kekeliruan maka akan hadir warning Compile Successful. Setelah anda compile untuk menyaksikan hasilnya maka mesti anda Run dengan teknik klik Run => Run atau klik CTRL+F9. Dari script diatas andai kita run maka bakal menghasilkan output laksana gambar dibawah :

Bagaimana sobat Sheliciouss lumayan mudahkan guna menjalankannya ? selamat mengupayakan :)

Share: