Program Uas_Praktikum_B;
Uses Crt;

Procedure P_Pangkat (a:real; b:integer; hasil:real);
var x:integer;
Begin
For x:=1 to b do
Begin
hasil:=hasil*a;
end;
end;

Function Faktorial (a:integer):integer;
var fakt,y:integer;
begin
fakt:=1;
for y:=a downto 1 do
begin
fakt:=fakt*y;
end;
faktorial:=fakt;
end;

Function F_pangkat (a:real; b:integer): real;
Var hasil:real;
i:integer;
begin
i:=1;
hasil:=1;
while i<=b do begin hasil:=hasil*a; i:=i+1; end; f_pangkat:=hasil; end; Procedure Kualifikasi (HM: char;var kuat: string); begin case HM of 'A' : Kuat:='Memuaskan'; 'B' : Kuat:='Baik'; 'C' : Kuat:='Cukup'; 'D' : Kuat:='Kurang'; 'E' : Kuat:='Sangat Kurang'; end; end; Function HurufMutu (Angkamutu: integer): Char; Begin if Angkamutu >= 80 then
Hurufmutu:='A'
else
if angkamutu >= 60 then
Hurufmutu:='B'
else
if angkamutu >= 50 then
Hurufmutu:='C'
else
if angkamutu >= 40 then
Hurufmutu:='D'
else
Hurufmutu:='E';
End;

Function Sinus (Derajat:Integer):real;
Var rad,hasil:real;
z: integer;

Begin
rad:=derajat*pi/180;
hasil:=0;
For z:=1 to 7 do
begin
Hasil:= hasil+F_pangkat (-1,z+1)* F_pangkat (rad,(2*z)-1)/faktorial ((2*z)-1);
end;
Sinus:=Hasil;
End;


VAR
Nilai: Integer;
nDerajat: Integer;
nKualifikasi: String;
Begin
Clrscr;
nDerajat:=30;
Nilai:=50;
Writeln ('Nilai Sinus Dari ',nDerajat,' adalah ', sinus (nDerajat):2:2);
Writeln;
Writeln ('Jika Mahasiswa Mendapat Nilai ', Nilai);
Writeln ('Maka Dia Mendapat Huruf Mutu ', HurufMutu(Nilai));
Kualifikasi (Hurufmutu(Nilai),nKualifikasi);
Writeln ('Kualifikasi Mahasiswa tersebut: ', nKualifikasi);
readln;
End.

Silahkan Untuk Download Klik dibawah.

Download ARIP_B.PAS