Menghitung Nilai Uas Dan Hasil Gradenya Menggunakan Pascal 1.5

Posting By : Muhammad Imam Makhrus      

               Hallo lagi buat semua pengunjung setia  Wolley Blogs, bulan agustus ini anda semua akan kebanjiran source code pemprograman pascal yang sangat bermanfaat, kenapa saya katakan demikian ? tentunya ada hubungannya dengan judul kita saat ini, dimana kita akan membuat grade nilai menggunakan pemprograman pascal


Pada contoh berikut kita akan membuat script grade pada nilai siswa data dari pascal, di mana kita menggunakan case untuk mengetahui nilai grade nya.


Oke sekarang mari kita ke TKP dan lakukan sesuai langkah yang saya berikan, Go ..!!!

1.jika anda belum download tpw 1.5 atau pascal ...
   anda bisa download di sini TPW 1.5 Rar

2.jika sudah terinstal :
   maka copykan source code nya yang ada dibawah ini :

   program pemprograman_pascal;
uses wincrt;

var
    Lagi : char;
    Nilai : integer;
    Grade, NIS, Nama, Jurusan, Matapelajaran : string;

begin
clrscr;
    repeat
        writeln(' -------------------------------------');
        writeln('|         Tugas Pemprogram Pascal     |');
        writeln('|             Nilai UAS               |');
        writeln('|  Menggunakan Grade Nilai A  B  C D  |');
        writeln(' -------------------------------------');
        write  ('   NAMA                  : '); readln(Nama);
        write  ('   NIS                   : '); readln(NIS);
        write  ('   JURUSAN               : '); readln(Jurusan);
        write  ('   MATA PELAJARAN        : '); readln(Matapelajaran);
        writeln('   NILAI MATA PELAJARAN    ');
        write  ('   MASUKAN NILAI 1 - 10  : '); readln(Nilai);
       
        case Nilai of
            1..3    : Grade := 'A';
            4..5    : Grade := 'B';
            6..7    : Grade := 'C';
            8..10   : Grade := 'D';
        end;
        writeln;
        writeln('   Grade                 : ', Grade);
        writeln('   Apakah Anda Ingin Melakukan ');
        write  ('   Perhitungan Lagie [ Y / T ] : '); readln(Lagi);
        Lagi := upcase(Lagi);
        writeln;
        writeln(' -------------------------------------');
        writeln('|           Developers By :           |');
        writeln('|    Muhammad Imam Makhrus ( 7528 )   |');
        writeln('|      Copyright 2013 Nilai UAS       |');
        writeln(' -------------------------------------');
        writeln;
        until upcase(Lagi) <> 'Y';
end.

3.setelah itu akan run , maka akan terlihat seperti terlihat tampilan dibawah ini :
  

  program diatas mempunya sistem logika nya adalah
  jika nilai 1 - 3 maka grade nya adalah A , jika nilai 4 - 5 maka gradenya adalah B , jika
  nilai 6 - 7 maka grade nya Adalah C , jika nilai 8 - 10 maka gradenya Adalah C.

4. save program yang buat dengan nama terserah anda.

   Sekian Source Code Pascal -nya, semoga bermanfaat dan selamat mencoba bagi sahabat Wolley Blogs

  

Anda baru saja membaca artikel yang berkategori dengan judul Menghitung Nilai Uas Dan Hasil Gradenya Menggunakan Pascal 1.5 . Anda bisa bookmark halaman ini dengan URL http://wolleyku.blogspot.com/2013/08/menghitung-nilai-uas-dan-hasil-gradenya.html. Terima kasih!

Ditulis oleh: Unknown - Kamis, 22 Agustus 2013