Contoh Program Pascal Grade Nilai akan panduancode jelaskan pada tutorial kali ini, program nilai mahasiswa pascal sering muncul pada mata k...
Daftar Isi [Tampil]


    Contoh Program Pascal Grade Nilai akan panduancode jelaskan pada tutorial kali ini, program nilai mahasiswa pascal sering muncul pada mata kuliah algoritma.

    Program yang akan kita buat pada kali ini adalah program untuk menentukan index mutu (IM) suatu mata kuliah, nilai index mutu dalam perkuliahan yaitu A, B, C, D, E, dan F.

    Contoh Program Pascal Grade Nilai

    Untuk membuat program tersebut kita pahami terlebih dahulu soal atau ketentuan dari program nya berikut ini:

    A.Soal Program Pascal Grade Nilai

    Membuat algoritma dan program pascal yang menentukan nilai (NA) dan nilai indeks mutu (IM) suatu matakuliah dengan 4 variabel nilai yaitu nilai UTS, UAS, TUGAS, dan kehadiran masing-masing skala 0 - 100, dengan ketentuan sebagai berikut :

    1.NA = 30% UTS + 40% UAS + 20% TUGAS + 10% KEHADIRAN.

    2.Jumlah kehadiran maksimum 16, jadi jika kehadiran =10 maka nilai kehadiran dihitung (10/16) x 100

    Ketentuan konversi NA ke IM dirumuskan sebagai berikut :

    • -Jika NA> 100 atau NA < 0 maka ditampilkan “Salah nilai”
    • -Jika NA< = 100 atau NA > 80 maka ditampilkan IM = “nilai A”
    • -Jika NA< = 80 atau NA > 65 maka ditampilkan IM = “nilai B”
    • -Jika NA< = 65 atau NA > 50 maka ditampilkan IM = “nilai C”
    • -Jika NA< = 50 atau NA > 40 maka ditampilkan IM = “nilai D”
    • -Jika NA< 40 maka ditampilkan IM = “nilai E”

    Input Nilai UTS (0 – 100) = ? <ENTER>
    Input Nilai UAS (0 – 100) = ? <ENTER>
    Input Nilai TUGAS (0 – 100) = ? <ENTER>
    Input Jumlah KEHADIRAN = ? <ENTER>

    >> hasil Perhitungan :
    NILAI AKHIR = ….
    NILAI INDEKS MUTU = ….

    Dari soal diatas kita harus buatkan kedalam bentuk algorima Contoh Program Pascal Grade Nilai, contoh algoritma nya sebagai berikut:

    B. Algoritma Contoh Program Pascal Grade Nilai

    SKEMA ALGORITMA
    Program NilaiMahasiswa
    Input : uts,uas,tugas,kehadiran
    Proses : Menghitung Input Nilai
    Output : Menampilkan hasil perhitungan nilai sesuai problem

    KAMUS DATA
    Link Uses crt;
    Constanta //Tidak ada
    Type uts,uas,tgs,kd = real
    Variabel uts:uts,uas:uas,tgs:tugas,kd:kehadiran

    {Algoritma}
    Begin
    Uts ← uts, uas ← uas, tgs ← tugas, kd ← kehadiran
    Input(uts)
    Input(uas)
    Input(tgs)
    Input(kd)
    na ← (30/100*uts)+(40/100*uas)+(20/100*tgs)+(10/16*kd)
    Output(Nilai Akhir)
    begin
    if (na>100) then
    Output(NILAI YANG ANDA MASUKAN SALAH)
    else if(na<=0) then
    Output(NILAI YANG ANDA MASUKAN SALAH)
    ELSE IF (na<=100) and (na>=80) THEN
    Output(NILAI IM ANDA : A)
    else if (na<80) and (na>=65) then
    Output(NILAI IM ANDA : B)
    else if (na<65) and (na>=50) then
    Output(NILAI IM ANDA : C)
    else if (na<50) and (na>=40) then
    Output(NILAI IM ANDA : D)
    else if(na<40) then
    Output(NILAI IM ANDA : E)
    End.

    Setelah algoritma Contoh Program Pascal Grade Nilai nya selesai mari kita lanjut ke source code nya.

    C.Source Code Program Pascal Grade Nilai

    program NilaiMahasiswa;
    uses crt;
      var na,tgs,uts,uas,kd : real;
    begin
    clrscr;
      writeln('=========================================');
      writeln('PROGRAM NILAI MAHASISWA');
      writeln('=========================================');
      write('Masukan Nilai Uts : ');readln(uts);
      write('Masukan Nilai Uas : ');readln(uas);
      write('Masukan Nilai Tugas : ');readln(tgs);
      write('masukan Kehadiran : ' );readln(kd);
      na := (30/100*uts)+(40/100*uas)+(20/100*tgs)+(10/16*kd);
      writeln('=========================================');
      writeln('Nilai Akhir : ',na:2:0);
      begin
      if (na>100) then
      writeln('NILAI YANG ANDA MASUKAN SALAH')
      else if(na<=0) then
      writeln('NILAI YANG ANDA MASUKAN SALAH')
      ELSE IF (na<=100) and (na>=80) THEN
      Writeln('NILAI IM ANDA : A')
      else if (na<80) and (na>=65) then
      writeln('NILAI IM ANDA : B')
      else if (na<65) and (na>=50) then
      writeln('NILAI IM ANDA : C')
      else if (na<50) and (na>=40) then
      writeln('NILAI IM ANDA : D')
      else if(na<40) then
      writeln('NILAI IM ANDA : E');
      end;
      gotoxy(1,11); writeln('=========================================');
      readln;
    end.
    Silahkan copy source code diatas dan buat file program pascal baru di laptop atau hp Anda, kemudian paste kan source code program nilai mahasiswa pascal diatas.

    Setelah itu save dengan nama bebas terserah Anda misalnya nilaimahasiswa.pas 

    Lalu run program nilai mahasiswa pascal tersebut, maka hasilnya akan seperti gambar berikut.

    D.Screenshoot Contoh Program Pascal Grade Nilai

    Program Nilai Mahasiswa Pascal


    Silahkan bertanya pada kolom komentar terkait program ini, dengan senang hati panduancode akan menjawab nya.

    Akhir kata dari panduancode jangan lupa titik koma.

    Coba cari lagi apa yang ada inginkan pada kolom berikut: DMCA.com Protection Status
    Bantu Apresiasi Bantu berikan apresiasi jika artikelnya dirasa bermanfaat agar penulis lebih semangat lagi membuat artikel bermanfaat lainnya. Terima kasih.
    Donasi
    Hallo sobat panduan code, Anda dapat memberikan suport kepada kami agar lebih semangat dengan cara dibawah ini.

    Dana : 085972737000
    PAYPAL : Panduan Code
    Done
    Color Picker
    Silahkan gunakan tools color picker berikut gratis untuk Anda, salam Admin Panduan Code.

    Pilih Warna

    Done