Pada sesi latihan delphi ini akan dibahas tentang penggunaan berbagai operator aritmetika dalam delphi yang diimplementasi dalam program kalkulator sederhana.
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
Contoh penggunaan:
Berikut Source Codenya :
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 |
- 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 :
Berikut Source Codenya :
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.
0 Response to "Membuat Kalkulator Sederhana Pada Delphi"
Posting Komentar