Assalamu alaikum. Baik saya akan menurunkan ilmu saya kepada teman-teman sekalin. Sebenarnya ini tugas kuliah saya hehe. Program yang saya gunakan adalah Turbo Pascal For Windows atau TPW.   Soal : Indeks nilai mahasiswa ditentukan berdasarkan nilai ujian yang diraihnya.Ketentuan pemberian nilai in...

Program Menampilkan Nilai Index Mahasiswa

Assalamu alaikum.

Baik saya akan menurunkan ilmu saya kepada teman-teman sekalin. Sebenarnya ini tugas kuliah saya hehe.

Program yang saya gunakan adalah Turbo Pascal For Windows atau TPW.

 

Soal :

Indeks nilai mahasiswa ditentukan berdasarkan nilai ujian yang diraihnya.Ketentuan pemberian nilai indeks adalah sebagai berikut :

Jika nilai ujian >=80, indeks nilai = A

Jika 70<= nilai ujian <80, indeks  nilai = B

Jika 55<= nilai ujian <70, indeks nilai = C

Jika 40<= nilai ujian <55, indeks nilai = D

Jika nilai ujian <40, indeks nilai = E

Buatlah algoritma yang membaca nilai ujian, lalu menentukan indeksnya, kemuadian mencetak nilai dan indeksnya. 

 

Jawaban :

  • Ø PSEUDO CODE

PROGRAM Indeks_Nilai_ujian

{Program utk Menentukan indeks nilai mahasiswa berdasarkan nilai ujian }

DEKLARASI

Var

x(nilai) : integer

y(indeks): char

‘A’,’B’,’C’,’D’,’E’ßy

ALGORITMA

Write (‘Masukkan nilai ujian :’)

Read (x)

If x >=80 then

y             ‘A’

else

   if (x >=70) and (x < 80) then

   y           ‘B’

   else

         if (x >=55) and (x < 70) then

         y             ‘C’

         else

               if (x >=40) and (x < 55) then

               y             ‘D’

               else ( x< 40 )

              y            ‘E’

          end if

        end if

     end if

end if

Write (‘nilai ujian anda adalah’,x)

Write(‘indeks dari nilai ujian anda adalah’,y)

 

  • Ø Bahasa PASCAL

PROGRAM Indeks_Nilai_Ujian;

Uses wincrt ;

Var

x(nilai) : integer;

y(indeks) : char;

Begin

Writeln (‘Masukkan nilai ujian anda:’); readln(x);

If ( x >=80) then

Begin

Indeks : = ‘A’ ;

end

Else if (x >=70) and (x <80) then

Begin

Indeks : = ‘B’ ;

end

Else if ( x>=55) and (x < 70) then

Begin

Indeks : = ‘C’ ;

end

Else if (x >=40) and (x <55) then

Begin

Indeks : = ’D’ ;

End

Else if (x < 40) then

Begin

Indeks : = ‘E’ ;

End

Else

Begin

Writeln (‘nilai ujian =’,x ) ;

Writeln (‘indeks nilai =’y);

End.


About Author

Akbar Abustang

Saya seorang mahasiswa Teknik informatika di STMIK Handayani Makassar. Saya tertarik dengan web programming.. cuz coding is my life :D


Comment & Discussions

    Please LOGIN before if you want to give the comment.