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
0 komentar:
Tell us what you're thinking... !