Untuk dapat mengerti contoh-contoh berikut, maka diharapkan anda telah mempelajari teori dasar, konsep dan logika pengambilan keputusan.
Contoh-1
Buatlah program untuk mencetak keterangan Nilai Huruf sebagai berikut :
A = Sangat Baik
B = Baik
C = Cukup
D = Kurang
E = Gagal
Jawab :
Algoritma :
• Mulai
• Deklarasikan variabel
• Input Nilai Huruf
• Cek Nilai
• Pilih salah satu Nilai
• Kerjakan pernyataan
• Cetak hasil
• Selesai
Flowchart
Afiliasi Indo web maker Unik
Kode Program
Program Case_Of;
uses crt;
Var
Nilai : Char;
Ket : String [12];
Begin
Write ('Masukkan Nilai Huruf Anda (A/B/C/D/E) = ');
Readln(Nilai) ;
Case Nilai Of
'A' : Ket := ' Sangat Baik ' ;
'B' : Ket := ' Baik ' ;
'C' : Ket := ' Cukup ' ;
'D' : Ket := ' Kurang ' ;
'E' : Ket := ' Gagal ' ;
End;
Write (' Nilai Anda = ', Ket) ;
Readln ;
End.
Hasil Program
Contoh-2
Buatlah program untuk menentukan nilai Huruf dengan aturan sebagai berikut :
0 <= Nilai <=40 adalah E
40 < Nilai <= 55 adalah D
55 < Nilai <= 69 adalah C
69 < Nilai <= 85 adalah B
85 < Nilai <= 100 adalah A
Algoritma
• Mulai
• Deklarasikan Variabel
• Input Nilai
• Cek nilai
• Pilih salah satu Pilihan yang sesuai dengan Nilai input.
• Kerjakan pernyataan
• Cetak Hasil
• Selesai
Flowchart
Kode Program
Program case_of2;
uses crt;
var n1 : integer;
n2 : char;
Begin
write('Input Nilai angka = ');
readln(n1);
case n1 of
0..40 : n2 := 'E';
40..55 : n2 := 'D';
55..69 : n2 := 'C';
69..85 : n2 := 'B';
85..100:n2 := 'A';
end;
writeln;
writeln('Anda mendapat nilai : ',n2);
readln;
end.
Hasil Program
Mohon anda memberikan komentar, saran, atau pertanyaan untuk memperbaiki
materi yang ada dalam blog ini. Dengan demikian blog ini dapat semakin
bermanfaat bagi para pelajar dan mahasiswa yang ingin mempelajari contoh program komputer yang dimuat di blog ini.
Semoga bermanfaat.
God bless you all.
makasi infonya
BalasHapusBlog