FLOWCHART CASE…OF…
Struktur CASE-OF…ELSE merupakan pengembangan dari struktur CASE-OF dan juga merupakan pengembangan dari standar Pascal. Pada struktur CASE-OF bila tidak ada kondisi yang terpenuhi berarti tidak ada statemen di dalam lingkungan CASE-OF yang diproses. Dengan struktur CASE-OF…ELSE, bila tidak ada kondisi yang terpenuhi, maka statemen yang akan diproses dalam lingkungan CASE-OF adalah statemen yang ada di ELSE.
Contoh program:
Contoh 1:
uses wincrt;
var
Pilihan:byte;
R,L,T,Luas:real;
Begin
R:=0;
L:=0;
T:=0;
ClrScr;
GotoXY(10,2);Writeln(‘–> PILIHAN < --');
GotoXY(10,4);Writeln('1.Menghitung Luas Lingkaran');
GotoXY(10,6);Writeln('2.Menghitung Luas Segitiga');
GotoXY(10,8);Writeln('3.Menghitung Luas Bujur Sangkar');
GotoXY(10,20);Write('Pilih Nomer(1-3)?');Read(pilihan);
ClrScr;
case Pilihan of
1:Begin
Write ('Jari-jari lingkaran?');Readln(R);
Luas:=Pi*R*R;
Writeln('Luas Lingkaran=',Luas:9:2);
End;
2:Begin
Write('Panjang sisi alas?');Readln(L);
Write('Tinggi Segitiga?');Readln(T);
Luas:=0.5*L*T;
Writeln;
Writeln('Luas segitiga=',Luas:9:2);
End;
3:Begin
write('Panjang bujur sangkar?');Readln(T);
Write('Lebar bujur sangkar?');Readln(L);
Luas:=T*L;
Writeln;
Writeln('Luas bujur sangkar=',Luas:9:2);
End;
Else
Begin
Writeln('Pilihannya hanya 1,2,atau3');
Writeln('Anda tadi pilih nomer berapa?......Sembarangan aja milih!!!!!!!');
End;
End;
End.
Hasil eksekusi program adalah:
-->PILIHAN<–
Menghitung Luas Lingkaran
Menghitung Luas Segitiga
Menghitung Luas Bujur-Sangkar
Contoh 2:
program des_hexa;
uses wincrt;
var x,des,hexa: integer;
A,B,C,D,E,F: string;
begin
clrscr;
write('brp des_nya?????');readln(des);
x:=28;
repeat
GOTOXY (X,12);
hexa:= des mod 16;
des := des mod 16;
x:=x-1;
case hexa of
0..9:write(hexa) ;
10:write('A') ;
11:write('B') ;
12:write('C') ;
13:write('D') ;
14:write('E') ;
15:write('F') ;
until des=0;
end.
Contoh 3:
Program Hari;
uses wincrt;
Var
KodeBulan : integer;
Begin
Write ('bingung Menghitung Jumlah Hari ?? Tulislah kode bulannya [1..12] :');
readln(kodebulan);
Case KodeBulan Of
1, 3, 5, 7, 8, 10, 12: Writeln (' Jumlah hari adalah 31');
4,6,9, 11 : Writeln ('Jumlah Hari adalah 30');
2 : Writeln ('Jumlah adalah 28 atau 29, kalo tahun kabisat berarti ya 29 hari.');
end;
end.
Contoh 4:
program Channel_TV;
uses wincrt;
Var
no_ke : Integer;
Saluran_ke : string;
begin
Write ('Masukkan Saluran yang anda pilih ');
readln (no_ke);
Case no_ke of
1: saluran_ke := 'TVRI';
2: saluran_ke := 'TPI';
3: saluran_ke := 'RCTI';
4: saluran_ke := 'SCTV';
5: saluran_ke := 'ANTV';
6: saluran_ke := 'Indosiar';
else
saluran_ke := 'Saluran anda salah, Error Not Responding!! Try Again.. he..he..he';
end;
writeln ('Saluran ke ',no_ke, ' adalah ', saluran_ke);
end.
Contoh 5:
program case1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
case upcase(gol) of
‘A’ : begin
writeln(‘Golongan ini bebas pajak’);
pajak := 0;
end;
‘B’ : pajak := 0.1 * pendapatan;
‘C’ : pajak := 0.2 * pendapatan;
else write(‘Salah melakukan Penginputan data ‘);
end;
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.
Tampilan saat case Di running
Sedangkan untuk program IF
program if1;
uses wincrt;
var nip,nama : string;
pendapatan,pajak : real;
gol : char;
begin
clrscr;
writeln(‘——— DAFTAR PAJAK ———-’);
writeln(‘_________________________________’);
write (‘NIP : ‘);readln(nip);
write (‘Nama Karyawan : ‘);readln(nama);
write (‘Golongan [A,B,C] : ‘);readln(gol);
write (‘Pendapatan : ‘);readln(pendapatan);
if (gol = ‘A’ )or (gol = ‘a’) then
pajak := 0
else if (gol = ‘B’) or (gol = ‘b’) then
pajak := 0.1 * pendapatan
else if (gol = ‘C’) or (gol = ‘c’) then
pajak := 0.2 * pendapatan
else write(‘Salah melakukan Penginputan data ‘);
writeln(‘Pajak : Rp. ‘,pajak:9:2);
end.
Tidak ada komentar:
Posting Komentar