Algoritma dan pembelajaran pembahasan modul halaman 20 no.6

programnya

Uses cRT
Var
    Namamahasiswa:string[30]
    kode           :string[2]
    Npm          :srting[7]
    jurusan      :string[20]
    pembayaranawal,jumlahcicilan,besarcicilan,pembayaranke,Uangkuliah:longint;
    Uangkuliahterbayar,sisauangkuliah:real;
    lagi:char;
Begin
clrscr;
lagi:='Y';
while upcase(lagi)='Y'do
    Begin
    write('Namamahasiswa:');readln(namamahasiswa);
    write('kode         :');readln(kode);
    write('nmp          :');readln(npm);
    if kode='SI'Then
    Begin
    jurusan:='Sistem informasi';pembayaranawal:=2100000;jumlahcicilan:=7;besarcicilan:=300000;
    end
    Else if kode='TI' Then
Begin
    jurusan:='Tekhnik Informasi';pembayaranawa:=2500000;jumlahcicilan:=7;besarcicilan:=300000;
    end
    Else if kode='KA' Then
Begin
    jurusan:='Komputer Akuntansi';pembayaranawal:=1750000;jumlahcicilan:=6;besarcicilan:=200000;
    end
    if kode:='MI' Then
Begin
    jurusan:='Manajemen informasi';pembayaranawal:=1500000;jumlahcicilan:=6;besarcicilan:=250000;
    end;
writeln('jurusan:',jurusan);
writeln('pembayaranawal Rp:',pembayaranwal);
writeln('jumlahcicilan:',jumlahcicilan);
Writeln('besarcicilan Rp:',besarcicilan);
write('pembayaranke:');readln(pembayaranke);
uangkuliah:=pembayaranawal+(jumlahcicilan*besarcicilan);
uangkuliahterbayar:=pembayaranawal+(pembayaranke*besarcicilan);
sisauangkuliah:=uangkuliah-uangkuliahterbayar;
    Writeln('uangkuliah:Rp',uangkuliah:8);
    writeln('uangkuliahterbayar:Rp',uangkuliahterbayar:8:0);
    write('ada produk lagi[Y/T:'];readln(lagi);
    end;
end.