Latest Archive :

Sintak Biodata sederhana untuk Turbo Pascal

Written By Ferryxz on Selasa, 23 April 2013 | 05.08

Ini berawal dari tugas yang saya dapat dari Dosen tanggal 23 April 2013, ya walaupun sedikit pusing dicoba-coba aja dan hasilnya ya seperti ini.

Bangi yang suka dengan sintak ini bisa copypas gratis, dan terima kasih sudah berkunjung di blog ini.

Bagaimana cara pakainya supaya tidak mengetik lagi di program Turbo Pascal nya?? Pasti bingungkan, bagi yang sudah tau sih gampang. Ini saya kasi tau caranya:



Bagi yang memakai Turbo Pascal 7.0
1. Masuk ke folder BIN di program Turbo Pascal
2. Buat/buka Notepad atau klik kanan New > Text Document, beri nama bebas (contoh : Biodata)
3. Kemudian copy dan paste di Notepad, setelah itu di save
4. Ganti format .txt dengan .PAS 
5. Tinggal dibuka program Turbo Pascal nya dan open nama filenya (Biodata.PAS).
Gampang bukan??

Sintak : Sintak Biodata sederhana untuk Turbo Pascal




{Sintak Biodata}
Program Biodata;
uses crt;
var
jenis : integer;
nama, nim, Ttl, jur, hp : string;
ulang : char; {ulang tambah}
begin
repeat {tambahkan jika isi ulang}
clrscr;
gotoxy (25,2); textcolor (12);
writeln ('Copyright @Ferryxz Yamato'); writeln; textcolor (3);
writeln ('Keterangan Biodata Jenis Kelamin:');
writeln ('1=Laki-laki, 2=Perempuan'); writeln; textcolor (7);
write ('Masukkan no jenis kelamin Anda : '); readln(jenis);
write ('Masukkan nama lengkap Anda     : '); readln(nama);
write ('Jadi ',nama, ' adalah ');
if (jenis mod 2 )=0  then writeln ('Perempuan') else writeln ('Laki-laki'); writeln;
write ('Masukkan NIM Anda              : '); readln(nim);
write ('Masukkan tanggal lahir Anda    : '); readln(Ttl);
write ('Masukkan Jurusan Anda          : '); readln(jur);
write ('Masukan No. HP Anda            : '); readln(hp); writeln;
textmode (co80); gotoxy (13,2); textcolor (9);
writeln ('TABEL BIODATA ANDA : ');
     writeln ('-------------------------------------------');
     writeln ('| Variabel Biodata | Keterangan           |');
     writeln ('-------------------------------------------');
     write ('  Jenis Kelamin    |');
if (jenis mod 2 )=0  then writeln (' Perempuan') else writeln (' Laki-laki');
     writeln ('-------------------------------------------');
     writeln ('  Nama             | ',nama,'              ');
     writeln ('-------------------------------------------');
     writeln ('  NIM              | ',nim,'               ');
     writeln ('-------------------------------------------');
     writeln ('  Tanggal Lahir    | ',Ttl,'               ');
     writeln ('-------------------------------------------');
     writeln ('  Jurusan          | ',jur,'               ');
     writeln ('-------------------------------------------');
     writeln ('  No. Hp           | ',hp,'                ');
     writeln ('-------------------------------------------');
 Writeln;
 {ulang mulai dari sini}
 textcolor (6);
 write('Mau Ulang Lagi? [Y/T]: '); readln(ulang);
     Until Upcase(ulang)<>'Y'; {ulang akhir}
readln; end.


Ferryxz Hasil Gambar

Jam

 
Copyright © 2013. Ferryxz Yamato II - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger