TI

Pertanyaan

Buatlah program untuk menentukan nilai KRITERIA & PREDIKAT simpan dengan nama
(NILAI.PAS), dengan tampilan masukkan data sebagai berikut :
Program input data nilai siswa
---------------------------------------
Nama : Andi Lau
Nis : 720067
Kelas : I-3
Mata pelajaran : Pascal
Nilai angka : 75
Hasil masukkan sebagai berikut :
Nilai Huruf = C
Kriteria = Baik
Predikat = Lulus
Ketentuan soal :
* Variabel : Nama,Pelajaran,Kriteria,Predikat String[20]
Nis,Nilai_angka Integer
Kelas String[7]
Nilai_huruf String[1]
* Jika Nilai_angka > 85 Maka :
Nilai_huruf = A
Kriteria = Sangat Baik
Predikat = Lulus
* Jika Nilai_angka >= 70 dan Nilai_angka <= 85 Maka :
Nilai_huruf = B
Kriteria = Baik
Predikat = Lulus
* Jika Nilai_angka >= 60 dan Nilai_angka < 70 Maka :
Nilai_huruf = C
Kriteria = Cukup
Predikat = Lulus
* Jika Nilai_angka > =45 dan Nilai_angka < 60 Maka :
Nilai_huruf = D
Kriteria = Kurang
Predikat = Tidak Lulus
* Jika Nilai_angka < 45 Maka :
Nilai_huruf = E
Kriteria = Sangat Kurang
Predikat = Tidak lulus

0 Comment.

1 Jawaban


  • var Nama,Pelajaran,Kriteria,Predikat:string[20];
    Nis,Nilai_angka:integer;
    begin
    writeln('Program input data nilai siswa');
    writeln('---------------------------------------');
    write ('Nama : ');readln (Nama); 
    write ('Nis   : ');readln (Nis); 
    write ('Mata Pelajaran : ');readln (Pelajaran); 
    write ('Nilai Angka : ');readln (Nilai_angka);   

    if Nilai_Angka > 85  then 
     begin
    writeln('Nilai Huruf : A');
     writeln('Kriteria : Sangat Baik');
     writeln('Predikat : Lulus');  
    end;  
    if (Nilai_Angka >= 70) AND  (Nilai_Angka<= 85) then   
    begin
    writeln('Nilai Huruf : B'); 
    writeln('Kriteria : Baik'); 
    writeln('Predikat : Lulus');  end;  
    if (Nilai_Angka >= 60) AND (Nilai_Angka <70) then 
     begin
    writeln('Nilai Huruf : C'); 
    writeln('Kriteria : Cukup');
     writeln('Predikat : Lulus'); 
     end;  
    if ( Nilai_Angka >= 45) AND (Nilai_Angka <= 60 ) then 
     begin
    writeln('Nilai Huruf : D'); 
    writeln('Kriteria : Kurang'); 
    writeln('Predikat : Tidak Lulus');  
    end  
    else  
     begin
    writeln('Nilai Huruf : E'); 
    writeln('Kriteria : Sangat Kurang'); 
    writeln('Predikat : Tidak Lulus'); 
    end;
    end.

Pertanyaan Lainnya

52 dm3=.........cc adalah

terbuat dari apakah kaca?

Jelaskan peran presiden dalam proses penyusunan undang-undang

tolong jawab ya pakek bsk nih

mengapa seseorang memerlukan wawasan yang luas?