Pertemuan 2 : Operator-Operator Matematika

- Operator
Exp :
+ : tambah
- : kurang
/ : bagi
* : kali
> : lebih dari
< : kurang dari
= : sama dengan
>= : lebih dari sama dengan
<= : kurang dari sama dengan
<> : tidak sama dengan

- Penjumlahan
Exp :
Panjang:=10+A;
Sisi:=B+A+G+56;

- Pengurangan
Exp :
Panjang:=10-A;
Hasil:=Laba-Pajak;

- Perkalian
Exp :
Panjang:=10*A*K;
Luas:=P*l;
L:=s*s;

- Pembagian
Exp :
Panjang:=A/3;
Hasil:=100/3;

- Campuran
Exp :
Hasil:=(((A+B)/2)-100)*3;
Luas:=(P*l)/2;

- Pangkat Dua
Exp :
Hasil:=SQR(5); -----> lima kuadrat.
Hasil:=SQR(r); -----> r kuadrat.

- Akar Dua
Exp :
Hasil:=SQRT(5); -----> Akar 2 dari 5
Hasil:=SQRT(n); -----> Akar 2 dari n

- Campuran
Exp :
LuasLing:=3.14*SQR(r);
K:=2*3.14*r;

Program Mencari Luas Segitiga

Wawasan Dasar : __________________________

- Uses CRT : Membuat referensi ke objek CRT
- Var : Variabel
- Begin : Mulai
- ClrScr : perintah Clear Screen.
- Write('text') : Mencetak string(text) ke layar.
- WriteLn('text') : Mencetak string(text) ke layar dan menambah baris baru.
- Read(X) : Meminta input dari pengguna ke dalam variabel X.
- ReadLn(X) : Meminta input dari pengguna ke dalam variabel X dan menambah baris baru.
- ReadKey : Perintah untuk meminta penekanan KeyBoard.
- End. : Mengakhiri/Akhir program.


Program Statis : __________________________

Program Luas_Segitiga;
Uses CRT;
Var
Alas,Tinggi:Integer;
Luas:Real;
SL:Char;

BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga');
WriteLn;
Alas:=10;
Tinggi:=15;
Luas:=(Alas*Tinggi)/2;
WriteLn;
WriteLn('Luasnya Adalah ',Luas:15:2);
SL:=ReadKey;
END.


Program Dinamis : __________________________

Program Luas_Segitiga;
Uses CRT;
Var
Alas,Tinggi:Integer;
Luas:Real;
SL:Char;
BEGIN
ClrScr;
WriteLn('Program Mencari Luas Segitiga');
WriteLn;
Write('Masukkan Alas ? ');ReadLn(Alas);
Write('Masukkan Tinggi ? ');ReadLn(Tinggi);
Luas:=(Alas*Tinggi)/2;
WriteLn;
WriteLn('Luasnya Adalah ',Luas:15:2);
SL:=ReadKey;
END.