Program spp gici oleh Agustiawan

Posted: Oktober 16, 2011 in Uncategorized

Program Billing;
Uses winCrt;

Var
hasil:real;
jul,ag,se,ok,no,de,ja,fe,ma,ap,me,jun :real;

ket,na,ni,ju,ta: string[20] ;

begin
writeln(‘——————————-AGUSTIAWAN—————————-‘);
writeln ;
writeln(‘========================== SPP MAHASISWA GBS ========================’);
write(‘NAMA :’);readln(na);
write(‘NIM :’);readln(ni);
write(‘Jurusan :’);readln(ju);
write(‘Tahun Ajaran :’);readln(ta);
writeln(‘~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~’);
Writeln(‘====’,na,’======== Untuk melanjutkan Silakan Tekan =>> ENTER <=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,8);writeln(‘| ‘,ket);

write(‘2 | Agustus |Rp ‘);readln(ag);
if ag>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,9);writeln(‘| ‘,ket);

write(‘3 | September |Rp ‘);readln(se);
if se>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,10);writeln(‘| ‘,ket);

write(‘4 | Oktober |Rp ‘);readln(ok);
if ok>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,11);writeln(‘| ‘,ket);

write(‘5 | Nopember |Rp ‘);readln(no);
if no>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,12);writeln(‘| ‘,ket);

write(‘6 | Desember |Rp ‘);readln(de);
if de>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,13);writeln(‘| ‘,ket);

write(‘7 | Januari |Rp ‘);readln(ja);
if ja>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,14);writeln(‘| ‘,ket);

write(‘8 | Februari |Rp ‘);readln(fe);
if fe>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,15);writeln(‘| ‘,ket);

write(‘9 | Maret |Rp ‘);readln(ma);
if ma>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,16);writeln(‘| ‘,ket);

write(’10 | April |Rp ‘);readln(ap);
if ap>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,17);writeln(‘| ‘,ket);

write(’11 | Mei |Rp ‘);readln(me);
if me>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,18);writeln(‘| ‘,ket);

write(’12 | Juni |Rp ‘);readln(jun);
if jun>=400000 then
ket := ‘lunas’
else
ket :=’tunggak’;
gotoxy(52,19);writeln(‘| ‘,ket);

writeln(‘=====================================================================’);
writeln;

end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s