Wednesday, December 21, 2011

Program Biodata Pascal

Apa kabar semuanya......? :3
Sebelumnya ane minta maaf kalau sudah lama g posting, balas komentar sobat2 dan g pernah ngrusin nich blog. Maklum pulsa modem rada habis kantong juga lagi bolong.weleh..weleh...nasib dech..hehehe

Untuk kedepannya ane mungkin akan banyak memposting artikel mengenai pembuatan program delphi yang sudah ane pelajari di kampus. Karena kapasitas harddisk ane yang udah pada di ujung tanduk, sayang kan kalau dihapus, sapa tahu ada yang lagi butuh... ^_^.

Berikut Program Input Biodata menggunakan Pascal

program Input_data;
uses wincrt;
var
   nama, TL, Tlr, Jk, Agama, Alamat : String;
begin
   GOTOXY(35,6); WRITELN('B I O D A T A');
   GOTOXY(19,7); WRITELN('-------------------------------------------');
   GOTOXY(20,9); write('Nama           :  ');  READLN(nama);
   GOTOXY(20,10);write('Tempat lahir   :  ');  READLN(TL);
   GOTOXY(20,11);write('Tanggal Lahir  :  ');  READLN(tlr);
   GOTOXY(20,12);write('jenis kelamin  :  ');  READLN(jk);
   GOTOXY(20,13);write('Agama          :  ');  READLN(agama);
   GOTOXY(20,14);write('alamat         :  ');  READLN(alamat);
   GOTOXY(19,15);WRITELN('--------------------------------------------');

   GOTOXY(18,17);writeLN('Input Data');
   GOTOXY(19,18); WRITELN('-------------------------------------------');
   GOTOXY(20,19);writeln('Nama Anda          : ',nama);
   GOTOXY(20,20);writeln('Tempat lahir       : ',tl);
   GOTOXY(20,21);writeln('Tanggal lahir Anda : ',tlr);
   GOTOXY(20,22);writeln('Jenis kelamin      : ',jk);
   GOTOXY(20,23);writeln('Agama              : ',agama);
   GOTOXY(20,24);writeln('Alamat             : ',alamat);
   GOTOXY(19,25);WRITELN('--------------------------------------------');
   end.


Hasilnya : 



Related Post

1 comment:

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...