uses wincrt;
var
gj,tjg:real;
gp:integer;
begin
writeln ('masukan gapok=');readln(gp);
tjg:=0.2*gp;
writeln ('tunjangan anda adalah',tjg);
gj:=gp+tjg;
writeln ('gaji anda adalah',gj);
end.
--------------------------------------
uses wincrt;
var
nama,umur,jnisk,status:string;
begin
writeln('nama:');readln(nama);
writeln('umur:');readln(umur);
writeln('jenisk:');readln(jnisk);
writeln('status:');readln(status);
end.
---------------------------------------
program pembayaran_kuliah_GBS;
uses wincrt;
var
NM,Jur:string;
NIM,kl,pmb:integer;
begin
clrscr;
writeln('Masukkan NIM Anda:');readln(NIM);
writeln('Masukkan Nama Anda:');readln(NM);
writeln('Masukkan Jurusan Anda:');readln(Jur);
writeln('Masukkan Kelas Anda:');readln(kl);
writeln('Masukkan Pembayaran/Bulan ke:');readln(pmb);
writeln('Terima kasih');
end.
-------
program pembayaran_kuliah_GBS;
uses wincrt;
var
NM,Jur:string;
NIM,kl,pmb:integer;
begin
clrscr;
gotoXY(15,5);writeln('GICI BUSINESS SCHOOL:');
gotoXY(15,6);writeln('====================');
writeln('Masukkan NIM Anda:');readln(NIM);
writeln('Masukkan Nama Anda:');readln(NM);
writeln('Masukkan Jurusan Anda:');readln(Jur);
writeln('Masukkan Kelas Anda:');readln(kl);
writeln('Masukkan Pembayaran/Bulan ke:');readln(pmb);
writeln('Terima kasih');
end.
Tidak ada komentar:
Posting Komentar