Operator
Adalah hal yang menyatakan hubungan/relasi/operasi pada satu atau beberapa operand. Macam-macam operator: 1. Operator aritmatika a. + (penjumlahan)b. (Pengurangan) c. / (Pembagian) d. * (Perkalian) Selain diatas ada pula operator Div (menghasilkan hasil bagi berupa bilangan bulat )
Lanjut
Contoh: 6 Div 4 = 1 (6 kalau dibagi 4 hasilnya 1) Ada pula operator Mod ( menunjukkan sisa hasil bagi ) Contoh: 6 Mod 4 = 2 ( 6 kalau dibagi 4 sisanya 2) Operator yang melibatkan 2 operand di sebut binary operator, sedangkan yang melibatkan 1 operand disebut unary operand
Operator Penugasan
Digunakan untuk memberi nilai suatu identifier. Operator ini berupa gabungan tanda (=) dan (:) jadi berupa (:=). Contoh: Y:=3; X:=5; Z:=Y + X; . Tebaklah berapa nilai variable Z!
Operator Logika
Meliputi operator AND, OR, dan NOT. Contoh: a:= 1; b: =4; c:= 9; Perhatikan pernyataan dengan operator logika berikut: (a < b) AND (a < c) bernilai benar (true) (a > b) AND (a <c) bernilai salah (false) (a > b) OR (a < c) bernilai benar (true) (a < b) OR (a > c) bernilai benar (true) (a > b) OR (a > c) bernilai salah (false)
Tabel kebenaran OR
Pernyataan 1 Pernyataan 2 Hasil
benar benar salah salah
benar salah benar salah
benar benar benar salah
Tabel Kebenaran AND
Pernyataan 1 Pernyataan 2 Hasil
benar
benar
benar
salah
Benar
Salah
salah
salah
benar
salah
Salah
salah
Tabel Kebenaran NOT
A benar salah NOT (A) Salah benar
Operator NOT merupakan operator yang memberikan nilai logika berlawanan
Operator Relasi
< > = <= >= <> Operator pointer digunakan untuk melakukan operasi pada pointer
Contoh
Program Operator; Uses CRT; Var a,b,c:integer; Begin a:=30; b:=40; c:=a*b; Write(nilai c adalah,c); End.
Statement yang Berhubungan Dengan Aritmatika
a. Exp, menghitung nilai pangkat dari bilangan (bilangan alam), yaitu sebesar x b. Cos, memberikan nilai dari fungsi Cos c. Ln, Menghitung nilai logaritma dari nilai suatu bil. d. Sin, Memberikan nilai dari fungsi sinus e. Sqr, menghitung nilai kuadrat dari suatu bil f. Sqrt, menghitung nilai akar dari suatu bil
Program logika; Uses Crt; Var a:real; Begin ClrScr; write(Masukkan bilangan:); Readln(a); If a< 0 then a:=ABS (a); Writeln(========================); Writeln(Nilai Akar adalah:,Sqrt(a):5:3); Writeln(Nilai kuadrat adalh:,Sqr(a):5:3); Writeln(Nilai logaritma adalah:,Ln(a):5:3); Writeln(Nilai pangkat adalah:,Exp(a):5:3);
Contoh
Statement Dengan Kondisi Bersyarat
a. If..then, bila kondisi yang diseleksi terpenuhi, maka statement yang mengikuti then yang diproses.
Contoh
Program logika1; Uses Crt; Var Nama:string; Begin ClrScr; Write(Masukkan nama anda); Readln(Nama); If Nama= Nama Writeln(Isi dulu dong, main enter aja); Readln(); End.
Contoh
Program Banding; Uses Crt; Var bil:integer; Begin ClrScr; write(Masukkan Bilangan:); Readln(bil); If bil mod 2 =0 then Writeln(bilangan genap); Readln(); End.
contoh
Program biasa; Uses crt; Var nilai:integer; ket :string; Begin Clrscr; Writeln(Masukkan nilai siswa); Readln(nilai); If nilai >=75 then ket:=lulus; If nilai < 75 then ket:=remidi; Writeln(Hasil ulangan:,ket); Readln();
If ..[Link]
Digunakan untuk melakukan perbandingan
Contoh
Program logika2; Uses Crt; var Bil:integer; Begin ClrScr; Write(masukkan bilangan:); Readln(Bil); If Bil mod 2=0 then Writeln(bilangan genap) Else Writeln(bilangan ganjil); Readln(); End.
Case..Of
Mempunyai suatu ungkapan logika yang disebut dengan selector dan sejumlah statement yang diawali dengan suatu label permasalahan
Contoh
Program Gol_umur; Uses Crt; Var Gol:char; Begin ClrScr; Write(Masukkan gol umur (1-4):); Readln(Gol); Case Gol of 1: Writeln(Anak-anak); 2:Writeln(Remaja); 3:Writeln(Dewasa); 4:Writeln(Manula); End; Readln(); End.
Case.. [Link]
Digunaka untuk melakukan perbandingan
Contoh
Program Gol_umur; Uses Crt; Var Gol:char; Begin ClrScr; Write(Masukkan gol umur (1-4):); Readln(Gol); Case Gol of 1: Writeln(Anak-anak); 2:Writeln(Remaja); 3;Writeln(Dewasa); 4Writeln(Manula); Else Writeln(Sorry bukan masuk dalam pilihan); End; Readln(); End.
Latihan
Buatlah listing program pascal dengan menggunakan [Link] untuk memilih jadwal pelajaran les, dengan selektor (a-e); a:Senin matematika b:Selasa Fisika c:Rabu kimia d:Kamis Biologi e:Jumat bahasa Selain selektor diatas statementnya: (hari ini libur les jadi bobok dirumah)
SOAL 2
Selesaikan soal di bawah ini dengan program pascal. Tampilan akhir: Total pembayaran : 450000 Diskon : 90000 Jumlah bayar : 360000 Diskon pembelian dengan ketentuan: <100000 diskon 10% 100000 300000 diskon 15 % >300000 diskon 20%
Soal 3
Buatlah program untuk membaca banyak harta yang dipunyai dan hitung zakat yang harus dibayar, zakat 2,5% dari harta dengan ketentuan hartanya minimal 1.500.000, jika kurang dari jumlah tersebut tidak kena zakat. Tampilan akhir (output): Banyak harta:1500000 Zakat yang dibayar : 375000 Dan Banyak harta :500000
Statement Perulangan
1. Perulangan Statement For a. Perulangan positif b. Perulangan negatif
Contoh perulangan positif
Program Positif; Uses Crt; Var i:integer; Begin ClrScr; For i:=1 To 10 Do Write(i:3); End.
Contoh Perulangan Negatif
Program negatif; Uses Crt; Var i:integer; Begin ClrScr; For i:= 10 Downto 1 Do Write(i:3); End.
lanjutan
2. Statement [Link] Perulangan whiledo tidak dilakukan jika kondisi yang diseleksi tidak terpenuhi
Contoh
Program ulang; Uses Crt; Var i:integer; Begin i:=0; While i < 5 do begin i:=i+1; Writeln(kelas olim ia5); inc(i); End; End.
Lanjutan
Statement [Link] Digunakan untuk mengulang statementstatement sampai kondisi yang diseleksi di until tidak terpenuhi
Contoh
Program penuh; Uses Crt; Var i:integer; Begin i:=0; Repeat i:=i+1; Writeln(i); Until i=5; End.
Program baru; Uses crt; Var sma,belajar:integer; Begin While (sma < 3) do Begin Writeln(sma blitar); belajar:=0; while (belajar < 2) do Begin Writeln(sedang belajar pascal); belajar:=belajar+1; End; Sma:=sma+1; Writeln(haaaa); End; End.
Program isti; Uses crt; Var A:integer; Begin While A < 5 do A:= A +1; Writeln(kelas olim); End; End.
Program kelas: Uses crt; Var i:integer; Begin i:=0; Repeat writeln(i); inc(I,2); until i=20; Readln(); End.
Program lab: Uses crt; Var i:integer; Begin Clrscr; for i:= 1 to 20 do Writeln(Nomor:,i); Write(Tekan enter untuk melanjutkan); Readln; Clrscr; for i:= 20 downto 1 do Writeln(Nomor:,i); Write(Tekan enter untuk melanjutkan); Readln; Clrscr; for i:=2000 to 2010 do Writeln(Nomor:,i);