Debugging - Mencari Kesalahan Algoritma

Debugging (Mencari kesalahan Algoritma)

Program KonversiNilai;
Uses crt;
Var
nilai:integer;
Huruf:char;
Begin
Write('Masukkan nilai : ');
Readln(nilai);
If nilai>=80 then huruf:='A'
Else if nilai>=70 then huruf :='B'
Else huruf:='C';
If nilai>=50 then huruf:='D'
Else huruf:='E';
Writeln('Nilai Anda dalam huruf adalah : ',huruf);
Readln;
End.

______________________

Algoritma yang benar adalah sebagai berikut :

Program KonversiNilai;
Uses crt;
Var
nilai:integer;
Huruf:char;
Begin
Write('Masukkan nilai : ');
Readln(nilai);
If nilai>=80 then huruf:='A'
Else if nilai>=70 then huruf :='B'
Else if nilai>=60 then huruf:='C'
else if nilai>=50 then huruf:='D'
Else huruf:='E';
Writeln('Nilai Anda dalam huruf adalah : ',huruf);
Readln;
End.

Share this post