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

SISTEM PERSAMAAN LINEAR DEKOMPOSISI MATRIKS METODE CROUT

Gambar
 SISTEM PERSAMAAN LINEAR DEKOMPOSISI MATRIKS METODE CROUT      B aik sini mai mau menyampaikan manfaat dari hasil dekomposisi  matriks  metode crout pada matriks bujur sangkar yaitu  dapat menambah pengetahuan yang mengenai beberapa  cara  atau metode yang dapat digunakan dalam menentukan determinan dengan mudah. berikut cara atau langkah 1 (dekomposisi A dengan menggunakan metode crout:
Baca selengkapnya