Pages

Senin, 16 Desember 2013

Program Pascal Pendaftaran Mahasiswa Baru



Program Pendaftaran Mahasiswa Baru

program pendaftaranmaba;
uses wincrt;
var
nama,asal,tempat,ulang:string;
nomor,pendaftaran,gedung,total:longint;
d,m,y:integer;
tahun:byte;
begin
ulang:='y';
while ulang='y' do
begin
clrscr;
writeln('PENDAFTARAN MAHASISWA BARU');
write('Nomor                   :');readln(nomor);
write('Nama                    :');readln(nama);
write('Tempat                  :');readln(tempat);
write('Tanggal Lahir (DD MM YYYY) : '); readln(d,m,y);
if d>31 then
begin
writeln('Tanggal salah');
end;
if m>12 then
begin
writeln('bulan salah');
end;
if y<1995 then
begin
writeln('Tahun salah');
end;
write('Asal Sekolah            :');readln(asal);
write('Biaya Pendaftaran       :');readln(pendaftaran);
write('Uang Gedung             :');readln(gedung);
total:=(pendaftaran+gedung);
writeln('Totalnya               Rp. ',total);
write('Apa Anda Ingiin Mengulang Lagi (y/t)');read(ulang);
end;
end.



Tampilan hasil :
 



0 komentar:

Posting Komentar