Praktikum 2B (Algoritma dan struktur data)

Listing program nilai konstan

Program nilai_konstan;

Uses crt;

Const

Nama = 'Firman';

Stb = '1302100093';

Kls = 'TI L1.2';

Thn_msk = 2010;

Tgl_msk = 25;

Bln_msk = 9;

Var

Thn_skrg,bln,b,tgl,t,j : integer ;

Lama : longint;

Begin

Clrscr;

Writeln('Data Mahasiswa');

Writeln('==============');

Writeln('Nama Lengkap = ',nama);

Writeln('Stambuk = ',stb);

Writeln('Kelas = ',kls);

Writeln('===============');

Writeln('Tahun Masuk = ',thn_msk);

Write('Tahun Sekarang= ');readln(thn_skrg);

Lama:=thn_skrg-thn_msk;

Writeln('================');

writeln('Bulan Masuk = ',bln_msk);

write('Bulan Sekarang = ');readln(bln);

b:=bln-bln_msk;

writeln('================');

Writeln('Tanggal Masuk =',tgl_msk);

Write('Tanggal Sekarang = ');readln(tgl);

Write('Jarak Bulan =');readln(j);

t:=((30-tgl_msk)+j)+tgl;

Writeln('================');

Writeln('lama anda kuliah di universitas muslim indonesia');

Writeln(t,' Hari', ' - ',b,' Bulan',' - ', lama,' Tahun');

End.

layout

Share On