Tugas Pak Don untuk tgl 24 des 10

03.28 Melek.it

                                                            Ini contoh hasil print nya...

uses crt;
var
npm,nama,jur,st,thn:string;
a,b,tahun:integer
begin
clrscr;
write('Tulis NPM : ');readln(npm);
write('Tulis Nama: ');readln(nama);
jur:=copy(npm,1,1);
if (jur='1') then jur:='S1-Si';
if (jur='2') then jur:='S1-Sk';
if (jur='3') then jur:='D3-Mi';
if (jur='4') then jur:='D3-Tk';
writeln('Jurusan : ',jur);
st:=copy(npm,2,2);
if (st='04') then st:='Dari Awal';
if (st='07') then st:='Transfer Dari Luar';
if (st='04') then st:='Aktif Kembali';
if (st='04') then st:='Transfer Dari Dalam';
writeln('Status  : ',st);
thn:=copy(npm,4,2);
val(thn,a,b);
writeln;
begin
if (a>=78) then
tahun:=(a+1900);
end;
if (a<78) then
begin
tahun:=(a+2000);
end;
writeln('tahun: ',tahun);
readln;
end.