TUGAS MATA KULIAH ALGORITMA NO 6 hal.20

Tugas no 6 hal.20

uses crt;

var

                Nmahasiswa,Npm,kode,Pembayaran ke:string;

                Jurusan,Pawal,Jcicilan,Bcicilan:longint;

                Ukuliah,UKterbayar,SUkuliah:real;

                Lagi:char;

Begin

                Lagi:='Y'

                while upcase(lagi)='Y'do

                begin

                write(Nmahasiswa:');readln(nama);

                write('Npm:');readln(Npm);

                write('pembayaran ke:');readln(Pembayaran ke);

                write('kode:');readln(kode);

                if kode='SI'then

                Begin

                                jurusan:='sistem informasi';Pawal:=2100000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='TI'then

                begin

                                Jurusan:='Teknik informatika';Pawal:=2500000;

                                Jcicilan:=7;Bcicilan:=300000;

                end

                else if kode='KA'then

                Begin

                                Jurusan:='Komputer akuntansi';Pawal:=1750000;

                                Jcicilan:=6;Bcicilan:=200000;

                end

                else if kode='MI'then

                Begin

                                Jurusan:='Manajemen informatika';Pawal:=1500000;

                                Jcicilan:=6;Bcicilan:=250000;

                end;

                writeln('Jurusan:=,Jurusan);

                writeln('Pawal:',Pawal);

                Writeln('Jcicilan:',Jcicilan);

                writeln(',Bcicilan:',Bcicilan);

                Ukuliah:=Pawal+(Jcicilan*Bcicilan);

                UKterbayar:=Pawal+(Pembayaran ke*Bcicilan);

                SUkuliah:=Ukuliah-UKterbayar;

                writeln('Ukuliah:',Ukuliah:8:0);

                writeln('UKterbayar:',UKterbayar:8:0);

                writeln(SUkuliah:',SUkuliah:8:0);

    

    write('ada produk lagi[Y/T]');readln(lagi);

                end;

end.
santi melinda sitohang NPM:1302062