DASAR DASAR BAHASA PASCAL

in #blog7 years ago

KOMENTAR PROGRAM
Komentar program merupakan bagian program yang tidak ikut dieksekusi sehingga kehadirannya tidak mempengaruhi jalannya program.
Pada umumnya bahasa Pascal hanya mendukung dua macam cara untuk membuat komentar program, yaitu:

  1. Menggunakan tanda (...)
    Komentar ini dapat digunakan untuk menuliskan komentar yang banyaknya lebih dari satu baris.
    Contoh
    (* Ini adalah komentar program yang banyaknya satu baris)
    (
    Ini juga merupakan komentar program dengan banyak baris lebih dari satu*)
  2. Menggunakan tanda {...}
    Komentar ini lebih sering digunakan oleh para programmer Pascal karena lebih singkat dan sedrhana.
    Contoh:
    { Ini adalah komentar program yang banyaknya satu baris}
    { Ini juga merupakan komentar program dengan banyak baris
    lebih dari satu}

program komentar;
uses wincrt;
begin
clrscr;
{ini adalah komentar dan tidak akan dieksekusi oleh program}
writeln('mencoba menuliskan komentar program');
{ini (juga) komentar sehingga tidak akan ditampilkan di dalam hasil keluaran}
readln;
end.

contoh:

Bila program dijalankan maka didapatkan output:
mencoba menuliskan komentar program

        Dari output yang dihasilkan ini membuktikan bahwa kehadiran komentar tidak berpengaruh terhadap program.

VARIABEL
Variabel adalah suatu pengenal yang didefinisikan oleh programmer untuk menyimpan nilai atau data tertentu yang dibutuhkan dalam program pada saat program sedang berjalan (run-time). Dengan demikian nilai tersebut juga dapat kita ubah sesuai dengan kebutuhan program.
Bentuk umum pendeklarasian variabel:
Var
NamaVariabel : tipe_data;
Contoh:
Var
x : integer; {Variabel x dengan tipe integer} (real) =pecahan
Nama : string[25]; {variabel Nama dengan tipe string}
x,y,z : integer; {variabel x,y, dan z degan tipe integer}

Adapun aturan-aturan penamaan variabel dalam Pascal adalah sebagai berikut:

  1. Tidak boleh mengandung spasi, simbol atau tanda.
    Contoh:
    Nama Lengkap : string; {SALAH karena mengandung spasi}
    @mail?! : string; {SALAH karena mengandung simbol}
  2. Tidak boleh diawali dengan angka
    Contoh:
    2Dimensi : Tpoint; {Anggap Tpoint record buatan}
  3. Tidak boleh menggunakan kata kunci yang sudah terdapat di dalam bahasa Pascal.
    Contoh:
    For : integer; {Menggunakan kata kunci for}
    While : boolean; {menggunakan kata kunci while}
    Contoh program penggunaan variabel didalam program:

Program LatVar2
uses wincrt;
var;
bilangan: integr
hasil lonint;
bein
clrscr;
write('Masukkan sebuah bilangan: ');
readn(bilangan)
hasil=bilanganbilangn*bilangan;
write(bilangan,^3= ',hasil);
readln
end.

Bila program dijalankan maka didapatkan output:
Masukkan sebuah bilangan : 4
4^3 = 64

Berdasarkan ruang lingkupnya, variabel dibedakan menjadi dua yaitu:

  1. Variabel Global
    Artinya variabel tersebut dideklarasikan diluar blok atau rutin-rutin (prosedur atau fungsi) tertentu. Sehingga variabel global dapat dikenali oleh semua prosedur yang terdapat dalam program atau unit bersangkutan.
    Contoh:
    Program LatVarGlobal;
    Uses wincrt;
    Var
    VarGlobal : integer;

{mendefinisikan prosedur}
Procedure Proc1;
Begin
....
End;
{mendefinisikan fungsi}
Function Func1: integer;
Begin
.......
End;

{pogram utama}
Begin
.....
End.

Pada kode program di atas, VarGlobal merupakan variabel yang bersifat global sehingga akan dikenali oleh setiap bagian program, baik prosedur Proc1, fungsi Func1 maupun oleh program utama.

  1. Variabel Lokal
    Artinya variabel yang dideklarasikan di dalam suatu rutin tertentu sehingga hanya dikenali oleh rutin yang bersangkutan saja.
    Contoh:
    Function Func1: integer;
    Var
    VarLokal : integer;
    Begin
    .........
    End;

Pada kode di atas, variabel VarLokal merupakan variabel bertipe integer yang sifatnya lokal dan hanya dikenal fungsi Func1 saja.

Konstanta
Didalam pembuatan program sering kali kita perlu untuk mendefinisikan konstanta atau tetapan, dimana nilainya tidak dapat diubah selama program sedang berjalan. Hal ini tentu berbeda dengan variabel yang nilainya dapat diubah kapan saja sesuai kebutuhan program. Dalam bahasa Pascal pembuatan konstanta menggunakan kata kunci const.
Bentuk umum pendeklarasian konstanta:
const
NamaKonstanta1 = nilai_konstanta1;
NamaKonstanta2 = nilai_konstanta2;
......

Contoh:
const
MYPI = 3.1416;
MAX_RECORD = 100;
PENERBIT = ‘CV INFORMATIKA BANDUNG’;

Contoh program yang tidak menggunakan konstanta
program tanpakons
uses wicrt
var
A : array [1..5] of integer;
i : integer;
begin
clrscr;
for i:=1 to 5 do
A[i] := i * 5;
for i:=1 to 5 do
writeln('A[', i,'] = , A[i])
readn;
end

Bila program dijalankan maka didapatkan output:
A[1] = 10
A[2] = 20
A[3] = 30
A[4] = 40
A[5] = 50

Contoh program yang menggunakan konstanta
program menggunakankons;
uses wincrt;
const
MAX=10
var
A : array [1..MAX] of integer;
i : integer
begin
clrscr
for i:=1 to MAX do
A[i] := i * 10
for i:=1 to MAX do
writeln('A[', i,'] = ', A[i]);
readln;
end

Sort:  

Congratulations @maulana2407! You have completed some achievement on Steemit and have been rewarded with new badge(s) :

You published 4 posts in one day

Click on any badge to view your own Board of Honor on SteemitBoard.
For more information about SteemitBoard, click here

If you no longer want to receive notifications, reply to this comment with the word STOP

By upvoting this notification, you can help all Steemit users. Learn how here!

Resteemed by @resteembot! Good Luck!
The resteem was payed by @greetbot
Curious?
The @resteembot's introduction post
Get more from @resteembot with the #resteembotsentme initiative
Check out the great posts I already resteemed.

is there any community I can join

Congratulations @maulana2407! You received a personal award!

1 Year on Steemit

Click here to view your Board of Honor

Support SteemitBoard's project! Vote for its witness and get one more award!

Congratulations @maulana2407! You received a personal award!

Happy Birthday! - You are on the Steem blockchain for 2 years!

You can view your badges on your Steem Board and compare to others on the Steem Ranking

Vote for @Steemitboard as a witness to get one more award and increased upvotes!

Coin Marketplace

STEEM 0.20
TRX 0.13
JST 0.030
BTC 66945.54
ETH 3515.79
USDT 1.00
SBD 2.71