Monday 7 October 2013

Assalamu'alaikum wr.wb.
Algoritma dan pemrograman salah satunya adalah menggunakan program pascal. Di dalam pascal if bertingkat menggunakan statement if.. then..else if... ini sebenarnya adalah atatement kondisi dalam kondisi atau if dalam if. Sebagai contoh program pascal Program Nilai Mata kuliah :

Contoh soal :
Buat program menghitung Nilai matakuliah , dengan input: Nama Mahasiswa,NPM, Kehadiran, Tugas, Quis, UTS dan UAS. Dengan bobot sebagai berikut:
Kehadiran : 10%
Tugas: 20%
Kuis:20%
UTS: 25%
UAS:25%

Keluaran berupa nilai angka dan nilai huruf dengan ketentuan sebagai berikut:
Nilai <20 =E
Nilai<30=D
Nilai<35=C-
Nilai<40=C
Nilai<50=C+
Nilai<60=B-
Nilai<70=B
Nilai<80=B+
Nilai<90=A-
Nilai >90=A

Baris Program:
Uses wincrt;
Var npm,Kehadiran, Tugas, Kuis, UTS, UAS, Angka:real;
    Nama:String[30];
    Huruf:String;
begin
   Clrscr;
   Writeln('******Program Nilai******');
   Write('Nama Mahasiswa:');readln(Nama);
   Write('NPM           :');readln(npm);
   Write('Kehadiran     :');readln (Kehadiran);
   Write('Tugas         :');readln (Tugas);
   Write('Kuis          :');readln (Kuis);
   Write('UTS           :');readln (UTS);
   Write('UAS           :');readln (UAS);
   Angka:=Kehadiran*0.1+Tugas*0.2+Kuis*0.2+UTS*0.25+UAS*0.25;
    If Angka <20 then
      Huruf:='E'
    else If Angka <30 then
      Huruf:='D'
    else If Angka <35 then
      Huruf:='C-'
    else If Angka <40 then
      Huruf:='C'
    else If Angka <50 then
      Huruf:='C+'
    else If Angka <60 then
      Huruf:='B-'
    else If Angka <70 then
      Huruf:='B'
    else If Angka <80 then
      Huruf:='B+'
    else If Angka <90 then
      Huruf:='A-'
    else
      Huruf:='A';
    Writeln('Nilai Angka   :',Angka);
    Writeln('Nilai Huruf   :',Huruf);
    Readln;
End.

Output:


Sekian yang dapat saya sampaikan tentang pascal if bertingkat, semoga bermanfaat.
Wassalamu'alikum wr.wb.




0 comments:

Post a Comment