Berikut adalah contoh tugas algoritma dengan struktur kondisi If
1.
Diketahui tiga buah bilangan (A, B, C)
nilainya diinputkan dari keyboard. Buatlah algoritma dan program untuk
menentukan nilai maksimum dari ketiga bilangan tersebut !
A B C Max
5 1 3 A
3 5
1 B
1 3 5
C
Jawaban
:
1. a.) Algoritma
Algoritma_name
NilaiMaksimum
Var
A,B,C,Max : Numerik
Begin
Read(A,B,C)
If A > B
then
If A > C then
Max ß A
Else
Max ßC
Endif
Else
If
B > C
then
Max ß B
Else
Max ß C
Endif
Endif
Writeln(Max)
End
b.) algoritma tersebut diatas dapat dituangkan menjadi program dengan bahasa pemrograman Pascal sebagai berikut :
Program
nilai_Maksimum;
uses wincrt;
var
A,B,C,Max : integer;
Begin
clrscr;
write('Masukkan A:');readln(A);
write('Masukkan B:');readln(B);
Write('Masukkan C:');readln(C);
if A > B then
if A > C then
Max :=A
ELSE
Max :=C
Else
if B > C then
Max :=B
else
Max :=C;
writeln('Bilangan yang terbesar adalah
',Max);
End.
2.
Buatlah algoritma untuk menentukan nilai
mutu yang diperoleh mahasiswa berdasarkan nilai yang diperolah dengan ketentuan
:
Nilai Mutu
0-49 E
50-59
D
60-69
C
70-84
B
85-100 A
Jawaban
:
a) Algoritma
Algoritma_name
NilaiMutu
Var
Nama, Mt_Kuliah : string
Nilai :
Integer
Mutu :
Char
Begin
Read(Nama,Mt_Kuliah,Nilai)
If Nilai >= 85 then
Mutu 
‘A’
‘A’
Else
If Nilai >= 70 then
Mutu ‘B’
‘B’
Else
If Nilai >= 60 then
Mutu 
‘C’
‘C’
Else
If Nilai > =
50 then
Mutu ‘D’
‘D’
Else
Mutu ‘E’
‘E’
Endif
Endif
Endif
Endif
Writeln(Mutu)
End
b) Program
Program NilaiMutu;
Uses wincrt;
Var
Nama,
Mt_Kuliah : string;
Mutu : Char;
Begin
Clrscr;
Write('Nama
Mahasiswa :');Readln(Nama);
Write('Nama
Mata Kuliah :');Readln(Mt_Kuliah);
Write('Nilai :');Readln(Nilai);
If
Nilai >= 85 then
Mutu
:= 'A'
Else
If
Nilai >= 70 then
Mutu
:= 'B'
Else
If
Nilai >= 60 then
Mutu
:='C'
Else
If
Nilai >= 50 then
Mutu
:= 'D'
Else
Mutu
:= 'E';
Writeln
('Nilai Mutu :',Mutu);
End.
Tidak ada komentar:
Posting Komentar