Catatan Kuliah ku

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.