Latihan Delphi – Kalkulator Sederhana


Pada sesi latihan delphi ini akan dibahas tentang penggunaan berbagai operator aritmetika dalam delphi yang diimplementasi dalam program kalkulator sederhana.

Teori Singkat

Operator berperilaku seperti fungsi terdefinisi (predefined function) yang menjadi bagian dari Delphi. Operator mengatur operasi pada tipe data dengan menggunakan simbol-simbol yang sudah ditentukan dalam syntax delphi. Contoh Expresi (X + Y) dibangun dari variabel X dan Y yang disebut operand, dengan operator ‘+’.
Operator menurut jenis operand-nya dibagi dua yaitu unary operator dan binary operator.
Unary operator adalah operator yang operand-nya hanya satu seperti contoh +6, -B. Tanda bilangan negatif (-) dan positif (+) pada angka 6 dan variabel B menunjukkan operator unary. Operator Binary merupakan operator yang mempunyai dua operand. Hampir semua operator di Delphi bersifat binary. Contoh operator ini pada operasi penjumlahan A + B, tanda positif (+) menunjukkan operator penjumlahan

operator Fungsi Operator
+ Penjumlahan
Pengurangan
/ Pembagian
* Perkalian
mod Sisa Pembagian
div Pembagian Bulat

Contoh penggunaan:

  • 2 + 3 * 4   menghasilkan nilai 14, perkalian memiliki derajat lebih tinggi dari pada penjumlahan senhingga 3 *4 dikerjakan terlebih dahulu baru kemudian ditambahkan dengan 2
  • (2 + 3) * 4 menghasilkan nilai 20, operasi yang berada dalam kurung akan dikerjakan terlebih dahulu

Latihan

Buatlah program sederhana dengan tampilan form sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
var A, B, C : real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  C:= A + B;
  Edit3.Text := FloatToStr(C);
end;

procedure TForm1.Button2Click(Sender: TObject);
var A, B, C : real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  C:= A - B;
  Edit3.Text := FloatToStr(C);
end;

procedure TForm1.Button3Click(Sender: TObject);
var A, B, C : real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  C:= A * B;
  Edit3.Text := FloatToStr(C);
end;
procedure TForm1.Button4Click(Sender: TObject);
var A, B, C : real;
begin
  A:=StrToFloat(Edit1.Text);
  B:=StrToFloat(Edit2.Text);
  C:= A / B;
  Edit3.Text := FloatToStr(C);
end;

procedure TForm1.Button5Click(Sender: TObject);
Var A,B,C : integer;
begin
  A:=StrToInt(Edit1.Text);
  B:=StrToInt(Edit2.Text);
  C:= A mod B;
  Edit3.Text := IntToStr(C);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit1.SetFocus;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  Close
end;

end.

mouse copy

Iklan

6 thoughts on “Latihan Delphi – Kalkulator Sederhana

  1. Ping balik: Tugas Delphi – Program Luas dan Keliling Persegi Panjang « Fairuz el Said

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s