Assalamualaikum.
Halo kawan semua. Kali ini DK akan berbagi tentang sebuah program sederhana yaitu membuat program penerimaan mahasiswa baru menggunakan Pascal. Yosh mari langsung saja ke topik utama kita kali ini.
Sebelumnya DK akan menjeaskan beberapa ketentuan yang terdapat pada program ini. Program ini terdapat inputan tanggal lahir dimana inputan yang benar harus seperti contoh berikut (ex: 21 07 1994). Setiap angka dipisahkan oleh spasi lalu tekan enter jika sudah selesai. Sedangkan jika inputan salah maka akan ada peringatan dari program.
Berikut source code-nya :
uses wincrt;Untuk tampilan programnya adlah sebagai berikut :
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(' Dani Kustiawan ');
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.
Wassalamualaikum
File bisa didownload disini
Posts
0 comments