Deplhi 7 Tutorial: Membuat Program Kalkulator Sederhana (2)

Copy-Paste - Sebelumnya kita sudah membahas mengenai penentuan variabel dan pembacaan input pada program kalkulator ini. Sekarang akan dibahas lebih lanjut mengenai masing-masing operasi dengan pada tiap button.

Operasi Tambah, Kurang, dan Kali: Pada ketiga operasi ini tidak ada hal-hal yang spesial. Sebagaimana yang sudah dijelaskan pada bagian 1, hasil dari operasi (+) kita beri nama "tambah", operasi (-) dengan nama "kurang" dan operasi (*) dengan nama "kali". Dan seperti inilah bahasa pemrograman untuk operasi tambah, kurang dan kali di Delphi7:

{tambah}
tambah := (x+y);
edit3.text := IntToStr (tambah);

{kurang}
kurang := (x-y);
edit4.text := IntToStr (kurang);

{kali}
kali := (x*y);
edit5.text := IntToStr (kali);


Yang perlu diperhatikan disini adalah bagaimana mencetak output hasil perhitungan. Karena tambah, kurang, kali diawal sudah dideskripsikan sebagai integer maka untuk mencetaknya kita harus mengubahnya menjadi string dengan menuliskan:

                        IntToStr (tambah)

Yang berarti Integer menjadi String, dan dalam () tuliskan variabel yang akan dicetak.

Operasi Bagi:
Pada operasi bagi, ada beberapa hasil pembagian yang mungkin. Jika yang dibagi dan pembaginya keduanya bernilai 0, maka disebut sebagai 'tak tentu'. Oleh karena itu, kita tuliskan dalam kolom hasil, dengan perintah sebagai berikut.

begin
  edit6.text := 'Tak Tentu';
end

Jika y tidak sama dengan 0 maka ini bisa dibagi dengan seperti biasa dan akan terbaca oleh program tanpa error. Untuk mencetak hasil baginya, kita perlu mengubah bilangan real atau disebut float menjadi string, sebagai berikut.

  begin
    If (y>0) or (y<0) then
      begin
      bagi := (x/y);
      edit6.text := FloatToStr (bagi);
      end

Selanjutnya adalah jika y = 0 dan x tidak 0, maka dalam matematika ini disebut 'tak terdefinisi'. Dalam matematika 0/0 dan x/0 berbeda sehingga di sini juga kita bedakan. Mengapa? Karena delphi tidak bisa melakukan operasi ini sehingga program akan error jika tidak dibedakan.

    else
      edit6.text := 'Tidak terdefinisi';
  end

Operasi Pangkat:
Operasi pangkat tidak tersedia di delphi sehingga kita harus menggunakan perkalian berulang untuk operasi ini. Koding yang dituliskan adalah seperti ini.

{x pangkat y}
If (y>(-1)) then
  begin
  p := 1;
    for pangkat := 1 to y do
      begin
      p := (p*x);
      end;
  edit7.text := IntToStr (p);
  end
else



Faktorial: