jawaban soal no. 6

·

Jawaban soal no. 6, mencari sisa uang kuliah

 

Tugas Belajar Bahasa Pemrograman

·    

USES CRT;

VAR

            Nm,jur:string[30];

            Kd:string[2];

            Npm,pa,besc,uk,ukt,suk:longint;

            Pk,jc:integer;

Begin

            Clrscr;

            Write(‘nama mahasiswa:’);readln(nm);

            Write(‘npm:’);readln(npm);

            Write(‘kode:’)readln(kd);

            If kd=’SI’then

                        Jur:=’sistem informasi’;pa:=2100000;jc:=7;besc:=300000;

            End.

            Else if kd=’TI’then

                        Jur:=’teknik informasi’;pa:=2500000;jc:=7;besc:=300000;

            end

            Else if kd=’KA’then

                        Jur:=’komputer akuntansi’;pa:=1750000;jc:=6;besc:=200000;

            End

            Else if kd=’MI’then

                        Jur:=’manajemen informatika’;pa:=1500000;jc:=6;besc:=250000;

            End;

Write(‘pembayaran awal:’);readln(pa);

Write(‘jumlah cicilan:’);readln(jc);

Write(‘besar cicilan:’);readln(besc);

Uk:=pa+(jc&bc);

Ukt:=pa+(pk*bc);

Write(‘uang kuliah:’);readln(uk);

Write(‘uang kuliah terbayar:’);readln(ukt);

Suk:=uk-ukt;

Write(‘sisa uang kuliah:’);readln(suk);

End.

FLOWCHART NYA DI BAWAH YAAAAAAA……………………………. JJJ

FLOWCHART NYA DI BAWAH YAAAAAAA……………………………. JJJ

FLOWCHART NYA