Posted by : Bayu Wijaya Permana Putra 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 ! http://www.ziddu.com/download/23568972/MenentukanTarifParkirPerjam.exe.html


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

{ 1 comments... read them below or add one }

Welcome to BIG !!!

Butuh Solusi IT ?

Service Komputer/ Laptop ? atau Installasi Jaringan Komputer ? atau Solusi Algoritma dan Pemrogramman ? atau Pembuatan Aplikasi Android/ Web/ Dekstop ?

Contact Me
Call or Message
+6285 8715 000 98

Find BIG on Facebook

You Can Support BIG !

BIG adalah media informasi berbasis web dalam blog yang memberikan berbagai macam informasi, tutorial, dan ilmu pengetahuan, terutama dalam bidang IT dan Pemrogramman

Anda bisa memberikan donasi melalui transfer langsung ke rekening dibawah ini! Berapapun jumlah donasi yang Anda kirim saya ucapkan terima kasih banyak dan akan sangat bermanfaat agar blog ini semakin berkembang.

Bank :
No. Rekening : 0307429851
A/N : Bayu Wijaya Permana Putra

Popular Post

Copyright © 2013 Bayyz Informatics Gallery. Diberdayakan oleh Blogger.

Followers

- Copyright © Big Informatics Gallery by Bayu Wijaya Permana Putra - Powered by Blogger - Supported by Google -