Beberapa Operator Dalam Pascal

Operator-operator matematika

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;

Progrm menghitung 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.

Berikut adalah coding Program menghitung panjang vektor dalam
bahasa pemrograman Turbo Pascal, Anda boleh memodivikasi source
ini agar menjadi program yang lebih sempurna dan menarik.

Program PanjangVektor;
Uses Crt;
Var
A : Array [0..99] of real;
i,n : integer;
pv : real;
Begin
textbackground(0);
ClrScr;
gotoXy(23,6);Write('Program Menghitung Panjang Vektor A');
window(20,8,60,20);
textbackground(4);
ClrScr;
gotoXy(1,2);write('=========================================');
gotoXy(12,1);Write('Berapa Suku : ');Read(n);
for i:= 1 to n do
begin
gotoXY(3,i+2);Write('Masukkan nilai a[',i,'] = ');readln(a[i]);
pv:=Sqrt(sqr(pv)+sqr(a[i]));
end;
GotoXY(3,n+4);write('Panjang Vektor A[',n,'] = ',pv:5:2);
readkey;
End.