Program Algoritma Menentukan Indeks/grade Nilai

Disini saya akan membuat post tentang cara menentukan indeks/grade dari sebuah nilai

algoritma :

program

{menentukan_indeks_nilai}

kamus

nilai : integer

grade : char

algoritma

if (nilai>80) and (nilai <=100)

then

grade<-'A'

else

if (nilai>70) and(nilai<=80)

then

grade<-'B'

else

if(nilai>60) and (nilai<=70)

then

grade<-'C'

else

if(nilai>50) and (nilai<=60)

then

grade<-'D'

else

if(nilai<=50)

then

grade<-'E'

endif

endif

endif

endif

output(grade)

pascal :

var

nilai,x : integer;

grade : char;

begin

write('masukkan nilai anda :'); readln (nilai);

if(nilai>80)and(nilai<=100)

then

grade:='A'

else

if (nilai>70)and(nilai<=80)

then

grade:='B'

else

if (nilai>60)and(nilai<=70) then grade:='C'

else

if (nilai>50)and(nilai<=60) then grade:='D'

else

if (nilai<=50) then grade:='E';

write(grade);

readln;

end.

sekian post dari saya, apabila ada kesalahan mohon dibenarkan dengan cara tulis dikomentar, disini kita sama sama belajar :)

terima kasih atas kunjungan nya, silahkan berkunjung kembali lain waktu :)