Membuat Rumus Kondisi

untuk membuat rumus kondisi isikanlah kode ini pada yang akan di kondisikan


------------------------- 
 If (Syarat) Then
    (yang dilakukan saat syarat terpenuhi);

  Keterangan :
  Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.

  Contoh :

  If A:=10 Then
    WriteLn('Selamat. Anda benar.'); 

jadi maksudnya jika huruf variabel A = 10 maka akan di tuliskan "SELAMAT ANDA BENAR"

setelah itu compile untuk mencek benar atau salah code yang di tuliskan setelah itu Run

Read More

Membuat Biodata pada Pascal

kali ini saya akan membagi ilmu yang saya dapatkan, disini saya akan memberi tahu bagaimana cara membuat biodata pada pascal,

langkah yang pertama ,buka program pascalnya
ketikan kodenya di bawah ini
__________________
program biodata;
uses crt;
var
nama,alamat,jeniskelamin, statusperkawinan,tempattgllahir,agama,pekerjaan,goldarah: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(' UMUR              : '); readln(umur) ;
write(' TEMPAT/TGL LAHIR  : '); readln(tempattgllahir);
write(' JENIS KELAMIN     : '); readln(jeniskelamin);
write(' ALAMAT            : '); readln(alamat);
write(' AGAMA             : '); readln(agama);
write(' STATUS PERNIKAHAN : '); readln(statusperkawinan);
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,'.''   |@ umur anda ',umur,' TAHUN.');
writeln('@ tempat/tgl lahir anda ', tempattgllahir,'.');
writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('@ anda tinggal di ' ,alamat,'.');
writeln('@ agama anda' ,agama,'.''     |@ status anda ',statusperkawinan,'.');
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.

_____________________
setelah itu langsung coba compile ,, jika succes langsung run 

Read More