Ekspresi logika (if then) (case of)

Ekspresi logika adalah sebuah perintah yang akan mengeksekusi suatu perintah apabila kondisi tertentu terpenuhi..
(wwee bingung)
contoh ekspresi logika misalnya jika umur > 20 maka dewasa kalau tidak berarti masi muda

nah ekpresi tersebut dapat kita gunakan pada pascal dengan sintaks

if umur>20 then write('dewasa')
else write('muda');

if kondisi then perintah_kondisi_terpenuhi
else perintah_kalau_kondisi_tdkterpenuhi


contoh

menentukan bilangan genap atau ganjil



program pascal_aritha;
uses wincrt;

var
a : integer;

begin
writeln('=====Program genap ganjil=====');
writeln(' =====by ArH==== ');

writeln;

write('masukkan sebuah bilangan/angka ');
readln(a);

if (a mod 2 = 0) then write (a, ' merupakan bilangan genap')
else write (a, ' merupakan bilangan ganjil');
end.


contoh lain

Menentutkan bilangan positif negatif atau 0


program pascal_aritha;
uses wincrt;

var
a : integer;

begin
writeln('=====Program Positif Negatif=====');
writeln(' =====by ArH==== ');

writeln;

write('masukkan sebuah bilangan/angka ');
readln(a);

if (a › 0) then
begin
write (a);
write (' merupakan bilangan positif');
end
else if (a‹0) then
begin
write (a);
write (' merupakan bilangan negatif');
end
else
write (a, ' merupakan angka nol');

end.

ingat
apabila perintah yang ingin kita jalankan ketika kondisi terpenuhi tsb lebih dari 1.
misalnya
write(a); write('merupakan bilangan positif'); *ini 2 perintah
atau
read(a); write(a); *ini juga 2 perintah
read(a); a:=a+1; write(a); *ini ada 3 perintah

jadi setiap perintah dipisahkan dengan tanda ";"

selanjutnya koding diatas menjelaskan bahwa apabila bilangan besar 0 maka akan ditulis "bilangan ini positif" namun jika bilangan tsb tidak besar dari 0 maka dilihat kondisi selanjutnya (else if a‹0) jika a kecil dari 0 maka akan di tulis output "bilangan negatif" apabila kedua kondisi tersebut tidak terpenuhi, maka di jalankan perintah yang ada pada kondisi terakhir (else)


contoh lain

Bilangan terbesar dari 3 bilangan



program pascal_aritha;
uses wincrt;

var
a,b,c : integer;
terbesar : integer;

begin
writeln('=====Program Bilangan terbesar=====');
writeln(' =====by ArH==== ');

writeln;

writeln('masukkan 3 buah bilangan/angka ');

write('bil pertama : ');
readln(a);

write('bil kedua : ');
readln(b);

write('bil ketiga : ');
readln(c);

terbesar:=0;

if (a › b) then
terbesar:= a
else terbesar:=b;

if (terbesar › c) then
terbesar := terbesar
else
terbesar:= c;

write ('bilangan terbesar adalah ', terbesar);
end.

Pe Er buat kalian, :P
coba buat program Menentukan nilai huruf mahasiswa

jika nilai ›70 dan ‹= 100 maka nilai huruf ='A'
jika nilai ›60 dan ‹= 70 maka nilai huruf ='B'
jika nilai ›50 dan ‹= 60 maka nilai huruf ='C'
jika nilai ›40 dan ‹= 50 maka nilai huruf ='D'
jika nilai ‹= 40 maka nilai huruf ='E'

Case of


guna case hampir sama dengan if, terkadang ada suatu kasus yang lebih mudah menggunakan if then. ada juga suatu kondisi yang lebih mudah menggunakan case of.

sintaks case of apabila variabel nya integer

var
pilihan : integer;
begin

case pilihan of
1 : write('pilihan1');
2 : write('pilihan2');
3 : write('pilihan3');
end;
end.


sintaks case of apabila variabel nya char

var
pilihan : char;
begin

case pilihan of
'a' : write('pilihan1');
'b' : write('pilihan2');
'b' : write('pilihan3');
end;
end.

selain itu anda juga dapat mengunakan case dengan cara seperti ini.

case pilih of
'a'..'g' :write('anda memasukkan huruf diatara a-g');
'h'..'n' :write('anda memasukkan huruf diatara h-n');
else write('anda memasukkan huruf yang lain');
end;

contoh program

Program Menu pilihan



program pascal_aritha;
uses wincrt;

var
menu : integer;

begin
writeln('=====Program Menu Pilihan=====');
writeln(' =====by ArH==== ');

writeln;

writeln('Fakultas-Fakultas di UIN SUSKA');
writeln('1. Sains dan teknologi ');
writeln('2. Tarbiyah ');
writeln('3. Ekonomi ');
writeln;

writeln('Silah kan pilih menu (1-3) ');
read(menu);
case menu of
1: begin
writeln('jurusan pada Sains dan teknologi adalah');
writeln('1. teknik informatika');
writeln('2. teknik industri');
writeln('3. teknik elektro');
writeln('4. Matematika');
writeln('5. Sistem Informasi');
end;

2 : begin
writeln('jurusan pada Fakultas Ekonomi adalah');
writeln('1.eee');
writeln('1.ccc');
end;

end.

3 : begin
writeln('jurusan pada Tarbiyah adalah');
writeln('1.aaa');
writeln('1.bbb');
end;
else writeln('menu tidak ada');
end;
end.




Artikel yang berhubungan




0 comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...