Program biodata mahasiswa, bahasa pascal

Berikut adalah program biodata mahasiswa dengan bahasa pascal

program biodata_mahawiswa;

uses crt;

var nama,nim,ft,ts,kelas,umur,ttl,agama,alamat : string;

procedure biodata(var nama,nim,ft,ts,kelas,umur,ttl,agama,alamat: string);

begin

clrscr;

writeln('=== Pengisian Biodata Mahasiswa UPR ===');

write('Masukan Nama anda            : ');readln(nama);

write('Masukan NIM anda             : ');readln(nim);

write('Masukan fakultas anda        : ');readln(ft);

write('Masukan jurusan anda         : ');readln(ts);

write('Masukan Kelas anda           : ');readln(kelas);

write('Masukan Umur anda            : ');readln(umur);

write('Masukan Tempat/tanggal lahir : ');readln(ttl);

write('Masukan Agama                : ');readln(agama);

write('Masukan Alamat anda          : ');readln(alamat);

end;

function inputdata(var nama,nim,ft,ts,kelas,umur,ttl,agama,alamat : string):string;

begin

clrscr;

writeln('       -----------------------------------------        ');

writeln('       ========= Hasil Inputan Biodata =========        ');

writeln('       -----------------------------------------        ');

writeln('Nama                 : ',nama);

writeln('NIM                  : ',nim);

writeln('Fakultas             : ',ft);

writeln('Jurusan              : ',ts);

writeln('Kelas                : ',kelas);

writeln('Umur                 : ',umur);

writeln('Tempat/tanggal lahir : ',ttl);

writeln('Alamat               : ',alamat);  

writeln('Agama                : ',agama);

end;

begin

biodata(nama,nim,ft,ts,kelas,umur,ttl,agama,alamat);

writeln;writeln;

inputdata(nama,nim,ft,ts,kelas,umur,ttl,agama,alamat);

readln;

end.

 

 

---

HASIL OUTPUT PROGRAM:

---

 

       -----------------------------------------       

       ========= Hasil Inputan Biodata =========       

       -----------------------------------------       

Nama                 : Yosef metrio

NIM                  : 213 066

Fakultas             : Fakultas Teknik

Jurusan              : Teknik Sipil

Kelas                : A

Umur                 : 18 Tahun

Tempat/tanggal lahir : Tewang Pajangan 5 mei 2003

Alamat               : jl batu suli vb

Agama                : kristen