19-02-2020 08:59:47
Staff
1546
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.
Keyword: menampilkan nilai index pascal, nilai index mahasiswa pascal
Baca Juga:
Postingan Sebelumnya:
Postingan Selanjutnya: