Rabu, 18 Desember 2013
Berikut ini program pendaftaran mahasiswa baru menggunakan pascal .
Berikut source code-nya :
Program PMB;
uses wincrt;
var
no,nama,asal,tempat:string;
tgl,bln,th:integer;
b_daftar,u_bangun,tot:longint;
begin
clrscr;
writeln('====================================');
writeln;
writeln(' Pendaftaran Mahasiswa Baru ');
writeln;
writeln(' oleh ');
writeln(' Elda Triadara ');
writeln;
writeln('====================================');
writeln;
write ('No. : '); readln(no);
write ('Nama : '); readln(nama);
write ('Tempat Lahir : '); readln(tempat);
write ('Tanggal Lahir : '); readln(tgl,bln,th);
case bln of
1,3,5,7,8,10,12 : begin
if (tgl>31) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
4,6,9,11 : begin
if (tgl>30) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
2 : begin
if (th mod 4=0) then
begin
if (tgl>29) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end
else
begin
if (tgl>28) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
end;
end;
if (bln>12) or (th>1995) then
begin
writeln('Format Tanggal Salah');
readkey;
donewincrt;
end;
write ('Asal Sekolah : '); readln(asal);
write ('Biaya Pendaftaran : '); readln(b_daftar);
write ('Uang Bangunan : '); readln(u_bangun);
tot:=b_daftar+u_bangun;
write ('Total : ',tot);
end.
var
no,nama,asal,tempat:string;
tgl,bln,th:integer;
b_daftar,u_bangun,tot:longint;
begin
clrscr;
writeln('====================================');
writeln;
writeln(' Pendaftaran Mahasiswa Baru ');
writeln;
writeln(' oleh ');
writeln(' Elda Triadara ');
writeln;
writeln('====================================');
writeln;
write ('No. : '); readln(no);
write ('Nama : '); readln(nama);
write ('Tempat Lahir : '); readln(tempat);
write ('Tanggal Lahir : '); readln(tgl,bln,th);
case bln of
1,3,5,7,8,10,12 : begin
if (tgl>31) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
4,6,9,11 : begin
if (tgl>30) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
2 : begin
if (th mod 4=0) then
begin
if (tgl>29) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end
else
begin
if (tgl>28) then
begin
writeln('Format Tanggal salah');
readkey;
donewincrt;
end
end;
end;
end;
if (bln>12) or (th>1995) then
begin
writeln('Format Tanggal Salah');
readkey;
donewincrt;
end;
write ('Asal Sekolah : '); readln(asal);
write ('Biaya Pendaftaran : '); readln(b_daftar);
write ('Uang Bangunan : '); readln(u_bangun);
tot:=b_daftar+u_bangun;
write ('Total : ',tot);
end.
Untuk tampilan programnya adlah sebagai berikut :
Untuk tampilan kesalahan input tanggal adalah seperti
berikut :
0 Comments:
Subscribe to:
Posting Komentar (Atom)
