Tugas Dasar Komputer Dan Pemrograman.docx

Tugas Dasar Komputer dan Pemrograman program fikri; uses crt; var pendapatan,kenapajak:real; a:integer; begin writeln('----------------'); writeln('Pembayaran Pajak'); writeln('----------------'); writeln('Untuk mengetahui Pajak Yang Harus Anda Bayar'); write('Masukan Pendapatan Anda :');readln(pendapatan); if pendapatan<=20000 then begin kenapajak:=0.2*pendapatan; writeln('Pajak Yang Harus Dibayar:',kenapajak:0:0); readln; end else if pendapatan<=50000then begin kenapajak:=400+0.25*(pendapatan-20000); writeln('pajak yang harus dibayar:',kenapajak:0:0); readln; end else begin if pendapatan>=50000 then kenapajak:=1150+0.35*(pendapatan-50000); begin

for a:=1 to 30 do begin writeln('Permintaan Anda Sedang Diproses:',a); end; clrscr; writeln('-----------------------------------'); writeln('pajak yang harus dibayar:',kenapajak:0:0); writeln('-----------------------------------'); readln; end; end; end.