Cara Membuat Progam Biodata Menggunakan Pascal

Postingan kali ini saya akan membahas bagaimana cara membuat program Biodata dengan menggunakan Pascal, pengalaman ini saya dapatkan dulu pada waktu masih kuliah masuk semester kedua mata kuliah Logika dan Algoritma jadinya saya sedikit tau dan mau sharing kepada teman-teman semua.

Sebelumnya saya akan menjelaskan Apa itu Pascal?
Pascal (bahasa pemrograman)
Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Ok..langsung saja kita mulai Cara Membuat Progam Biodata Menggunakan Pascal
Pertama kita buka program Pascal

Jika programnya sudah terbua klik File => New kemudian  ketikkan kode dibawah ini :

program biodata;
uses crt;
var
nama, tempattgllahir, jeniskelamin, alamat, agama, nohp, email, pekerjaan:string;
umur:integer;
begin
textcolor(10);
clrscr;
writeln (' ');
writeln(' ISILAH BIODATA DI BAWAH INI DENGAN BENAR');
textcolor(12);
writeln('===============================================================================');
textcolor(10);
writeln( ' BIODATA');
textcolor(12);
writeln('===============================================================================');
write(' NAMA : '); readln(nama);
write(' TEMPAT, TGL LAHIR : '); readln(tempattgllahir);
write(' JENIS KELAMIN : '); readln(jeniskelamin);
write(' ALAMAT : '); readln(alamat);
write(' AGAMA : '); readln(agama);
write(' NO HP : '); readln(nohp);
write(' E-MAIL : '); readln(email) ;
write(' PEKERJAAN : '); readln(pekerjaan);
writeln('===============================================================================');
textcolor(10);
writeln(' PENGISIAN BIODATA SELESAI');
textcolor(12);
writeln('===============================================================================');
textcolor(10);
writeln(' INILAH DATA ANDA ');
textcolor(12);
writeln('===============================================================================');
textcolor(10);
writeln('@ anda bernama ',nama,'.');
writeln('@ tempat, tgl lahir anda ', tempattgllahir,'.');
writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('@ anda tinggal di ' ,alamat,'.');
writeln('@ agama anda ' ,agama,'.');
writeln('@ no hp anda ',nohp,'.');
writeln('@ e-mail anda ',email,'.');
writeln('@ pekerjaan anda ',pekerjaan,'.');
textcolor(12);
writeln('===============================================================================');
textcolor(10);
writeln(' PASTIKAN DATA ANDA BENAR, BILA ANDA SUDAH YAKIN DATA ANDA BENAR TEKAN ENTER! ');
readkey;
readln;
end.

Jika sudah diketikkan, Copy Paste Juga bisa cara copy semua kode di atas kemudian masuk ke program Pascal pilih Edit klik Paste From Windows yang berada di paling bawah jika sudah tercopy semua selanjutnya klik Run kemudian ketik nama File => OK dan lihat hasilnya di bawah

Keterangan:
Writeln: untuk memasukkan inputan dalam program pascal tetapi kursor akan berpindah baris Clrscr bisa di sebut juga clearscreen atau pada program q basic disebut dengan cls : fungsinya untuk menghapus layar program sebelumnya.
Write : untuk memasukkan inputan dalam program pascal
Readln : untuk membaca data dari inputan pada wrire atau writeln yg di buat programmer
End. : untuk mengakhiri codingan pemrograman.

Selanjutnya tinggal diedit kode diatas sesuaikan selera
Sekian dulu postingan dari saya dan salam Blogger.

Semoga bermanfaat.

Share this post