Get Gifs at CodemySpace.com


------------------------------------------------------


Get Gifs at CodemySpace.com



---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox 

Rabu, 21 September 2011

program pembayaran_kuliah_GBS;


Rounded Rectangle: AGUSTIAWAN
IT-5           20-9-11
Oval: (1)program pembayaran_kuliah_GBS;


uses wincrt;
var
NM,Jur:string;
NIM,kl,pmb:real;
 begin
gotoXY(25,5);writeln('GICI BUSINESS SCHOOL:');
gotoXY(25,6);writeln('====================');
gotoXY(17,9);write('Masukkan NIM Anda:');readln(NIM);
gotoXY(16,10);write('Masukkan Nama Anda:');readln(NM);
gotoXY(13,11);write('Masukkan Jurusan Anda:');readln(Jur);
gotoXY(15,12);write('Masukkan Kelas Anda:');readln(kl);
gotoXY(6,13);write('Masukkan Pembayaran/Bulan ke:');readln(pmb);
gotoXY(6,15);write('-----------------------------------------------------------------');
gotoXY(10,18);writeln('DINYATAKAN BAHWA AGUSTIAWAN SUDAH MELUNASI UANG KULIAH NYA');
gotoXY(6,19);write('-----------------------------------------------------------------');
gotoXY(6,22);write('------------------- Jangan di tagih lagi yah --------------------');
end.

Tidak ada komentar:

Posting Komentar