Menentukan Grade atau Nilai Huruf Sebuah Nilai dengan Algoritma dan Pemrograman Bahasa Pascal

Posted by : BayuBayyz Sabtu, 22 Februari 2014

Tampilan Program Menentukan Grade atau Indeks Hurus pada sebuah Nilai

Bagaimana kita dapat menentukan grade atau nilai huruf (Indeks) sebuah nilai angka di dalam sebuah program ?

Misalnya bagimana kita bisa menentukan nilai 75 itu ke dalam Indeks Nilai (Grade) ? Apakah A,B,C,D atau E ?

Setelah kita memahami struktur pemilihan (if … then … else …) dalam algoritma danpemogramman bahasa pascal, kita dapat menyelesaikan permasalahan tersebut.

Berikut adalah algoritma menentukan grade atau nilai huruf (Indeks) sebuah nilai angka :

Menentukan_Grade_Sebuah_Nilai

Kamus :

   Nilai : real

   Grade : char

Algoritma :

   Input (Nilai)

   if (Nilai > 100)

   then

          Output ('Nilai angka tidak boleh melebihi angka 100 !')

          Input (Nilai)

   else

          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

                        Grade ← 'E'
   Output (Grade)

Dari Algoritma diatas maka kita dapatkan sebuah coding program pascal menentukan grade atau nilai huruf (Indeks) sebuah nilai angka sebagai berikut :

program Menentukan_Grade_Sebuah_Nilai;

uses crt;

var

   Nilai : real;

   Grade : char;

begin

   write('Nilai : ');readln(Nilai);

   if (Nilai > 100)

   then

       begin

          gotoxy(1,2);

          write('Nilai angka tidak boleh melebihi angka 100 !');

          readln;gotoxy(1,2);clreol;

          gotoxy(9,1);clreol;

          gotoxy(9,1);readln(Nilai);

       end

       else

          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

                        Grade := 'E';

   write('Grade : ',Grade);

   readln;
end.

Bila anda tidak mempunyai aplikasi pemrograman pascalnya, bisa anda download dan anda pelajari tipsnya disini Download Dev-Pascal 1.9 dengan Penjelasan serta Tipsnya

Anda juga dapat mendapatkan program Menentukan Grade atau Nilai Huruf Sebuah Nilainya, bisa anda download programnya disini !

Alhamdulillah artikel tentang Menentukan Grade atau Nilai Huruf Sebuah Nilai pada Algoritma dan Pemrograman Bahasa Pascal telah selesai. Semoga bermanfaat bagi kita semua !

[PENGUMUMAN]

Kami membutuhkan bantuan anda untuk mengisi survei singkat ini.
Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin