If-Then-Else-I

Bang Dosen: M. Yasin, S.Si

Berikut ini adalah salah satu program menggunakan pemilihan if-then untuk if tersarang.

program nilai_(if_tersarang);
{menentukan nilai harkat mata kuliah
nilai huruf nilai angka (na)
A 100>= na >79
B 79>= na >69
C 69>= na >59
D 59>= na >49
E 49>= na >=0}

uses wincrt;
var
na:integer;{nilai angka}

begin
{memasukkan nilai angka}
write('Masukkan nilai angka [0..100] = ');
readln(na);

{menentukan nilai huruf}
if na >79 then
writeln('Nilai Huruf = A')
else {na <=79} if na > 69 then
writeln('Nilai Huruf = B')
else {na <= 69} if na > 59 then
writeln('Nilai Huruf = C')
else
if na > 49 then
writeln('Nilai Huruf = D')
else
writeln('Nilai Huruf = E');
end.

No comments:

Powered by Blogger.