Tugas Stuktur Data .
Membuat ProgramPendaftaran Mahasiswa Baru Menggunakan Pascal.
Membuat ProgramPendaftaran Mahasiswa Baru Menggunakan Pascal.
program PMB;
uses wincrt;
var
nm,as,t:string;
d,m,y:integer;
no:integer;
tot,bp,ug:longint;
begin
write (' Nomor : '); readln (no);
write (' Nama : '); readln (nm);
write (' Tempat Lahir : '); readln(t);
write (' Tanggal lahir : '); readln (d,m,y);
case m of
1,3,5,7,8,10,12:begin
if (d>31) then
begin
writeln('Tanggal
salah');
readkey;
donewincrt;
end;
end;
4,6,9,11:begin
if (d>30) then
begin
writeln('Tanggal salah');
readkey;
donewincrt;
end;
end;
2:begin
if
(y mod 4=0) then
begin
if (d>29) then
begin
writeln('Tanggal salah');
readkey;
donewincrt;
end
else
begin
if
(d>28) then
writeln('Tanggal salah')
end;
end;
END;
end;
if ( m
> 12) then
begin
writeln(' Bulan salah!');
readkey;
donewincrt;
end
else if
(y >= 1995) then
begin
writeln('Tahun salah!');
readkey;
donewincrt;
end;
write (' Asal sekolah : ');readln (as);
write (' Biaya pendaftaran : ');readln (bp);
write (' Uang gedung : ');readln (ug);
writeln;
tot:=(bp+ug);
writeln ('total : ',tot)
end.
Tidak ada komentar:
Posting Komentar