PROGRAM MENGHITUNG NILAI AKHIR

PROGRAM MENGHITUNG NILAI AKHIR

Berikut adalah program menghitung nilai akhir mahasiswa stmik budi darma

Program MenghitungNilaiAkhir
uses crt;
var
      NPM, Nama, KodeMK, MK, NHuruf     : String ;
      NH, NT, NUTS, NUAS, NA                    : Real   ;
begin
     clrscr ;
     Writeln ('Program Menghitung Nilai Akhir') ;
     Write('Input NPM          :')readln(NPM)   ;
     Write('Input KodeMK   :')readln(KodeMK) ;
     Write('Input NH             :')readln(NH)   ;
     Write('Input NUTS        :')readln(NUTS) ;
     Write('Input NUAS       :')readln(NUAS) ;
     If NPM  = '19110313' then
         nam a  :='Murni'
    else if NPM = '19110113' then
         nama :='Budi'
    else if NPM = '19110523' then
        nama :='Dodi' ;
    If KodeMK = 'MK01, then
        MK := 'Fisika'
    else if KodeMK ='MK02' then
        MK :='Logika dan Algoritma';

             NA :=0.1*NH+0,2*NT+0.3*NUTS+0,4*NUAS;
             If NA> =90 then
                    NHuruf :='A'
             else if NA> =80 then
                    NHuruf :='B+'
             else if NA> =75 then
                    NHuruf := 'B'
             else if NA> =70 then
                    NHuruf :='C+'
             else if NA> =60 then
                    NHuruf :='C'
             else if NA> =50 then
                    NHuruf :='D'
             else if NA< =50 then
                    NHuruf :='E';


             Writeln('Nama     :',Nama);
             Writeln('MK        :',MK);
             Writeln('NA         :',NA :2:0);
             Writeln('NHuruf   :',NHuruf);
             readln ;
end.

















Komentar

Posting Komentar

Postingan populer dari blog ini

MENGHITUNG VOLUME TABUNG DENGAN PASCAL

Gambar
MENGHITUNG VOLUME TABUNG DENGAN PASCAL Berikut adalah cara menghitung volume tabung menggunakan pascal. 1.Programnya program volume_tabung; uses crt; const phi=3.14; var    r,t,v:real; begin      clrscr;      writeln('Program Hitung Volume Tabung');      write('Masukkan jari jari alas tabung=');readln(r);      write('Masukkan tinggi tabung=');readln(t);      V :=phi*r*r*t;      writeln('Volume tabung    =',V:2:2);      readln; end. 2.Gambarnya 3.Hasilnya
Baca selengkapnya

TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL

  TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL Cari Tabel Distribusi Frekuensi Data Jamak, Nilai Mean, Median, Modus, Quartil dan Desil dari Soal dibawah ini! Soal NPM Ganjil 37    35   39   25   18   16   33   38    52   59   67 79    82   78   82   43   26   29    77   19   18   23 53   67   24   76   45   44   46     77    70   85   82 34   49   79   38   33   39   32      39    29   45   51 21   20    44   48 37   36   59      75    54   43   33 Penyelesaiannya :  Lihat di PDF yak kawan-kawan:'))
Baca selengkapnya

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE Berikut Kalimat Deskriptif dan Pseudo-code mencari Luas Layang- layang Kalimat Deskriptif               Mulai               Masukkan nilai d1               Masukkan nilai Luas =1/2*d1*d2               Tampilan nilai Luas               Selesai Pseudo-code              Start              Variabel                          d1        : Integer                          d2        : Integer                          Luas...
Baca selengkapnya