Program Dasar Turbo Pascal

Berikut beberapa program dasar yang sering digunakan pada Turbo Pascal:

1.     PROSEDUR

Prosedur (procedure) merupakan suatu blok kode program yang disusun untuk menyelesaikan masalah umum. Misalkan dalam bahasa pemrograman pascal dikenal prosedur-prosedur seperti writeln, clrscr, textbackground, textcolor, readln, dsb. Pemanggilan prosedur-prosedur tersebut bervariasi antara satu prosedur dengan prosedur yang lainnya.

Contoh:

uses wincrt;

procedure luas(r:integer);

var

 luas:real;

begin

 Luas:=3.14*r*r;

 write('luas lingkaran adalah=',luas:3:3);

end;

var

 r:integer;

begin

 writeln('masukkan jari-jari:');readln(r);

 luas(r);

end.

2.  FUNCTION

Prosedur menerima data atau variabel ketika mereka dieksekusi. Fungsi juga menerima data, tetapi memiliki kemampuan untuk mengembalikan nilai ke prosedur atau program yang memintanya. Fungsi yang digunakan untuk melakukan tugas-tugas matematika seperti perhitungan faktorial.

Contoh:

uses wincrt;

Function Spasi(X:word):string;

var

s:string[255];

begin

fillchar(s,sizeOf(s),' ');

s[0]:=char(X);

spasi:=s;

end;

begin

writeln('Halo',spasi(5),'Saya',spasi(15),'Pascal');

end.

3.  LARIK (ARRAY)

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen tersebut disebut sebagai komponen type dan larik serta mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript.

Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen-komponenya mempunyai nilai dengan tipe data tersebut.

     Contoh:

uses wincrt;

var

 i,y,t:integer;

 total,jumlah:real;

begin

 write('Masukkan berapa lap ?');readln(t);

 i:=0;

 total:=0;

 repeat

 i:=i+1;

 write('Waktu pembalap lap ke-',i,'=');readln(y);

 total:=total+y;

 until i=(t);

 jumlah:=total/t;

 writeln;

 writeln('Kecepatan rata-rata motor adalah=',jumlah:4:2);

end.

4.  RECORD

Record dapat dikatakan sebagai suatu kumpulan data item yang masing-masing mempunyai jenis data berbeda.

Data item yang merupakan elemen record biasanya disebut dengan FIELD.

CARA MENDEKLARASIKAN RECORD

Bentuk umum deklarasi suatu variabel berjenis record adalah sbb :

Contoh:

            uses wincrt;

Type

 Hasil = Record

            Jarijari : real;

             keliling : real;

             luas     : real;

            Lingkaran:real;

            end;

 Var

             Lingkaran : Hasil;

             begin

             Write('jari-jari lingkaran ? '); Readln(Lingkaran.Jarijari);

             Lingkaran.keliling := 2*PI*Lingkaran.jarijari;

             Lingkaran.Luas     := PI*sqr(Lingkaran.jarijari);

              writeln;

             writeln('keliling lingkaran = ',Lingkaran.keliling:7:2);

            writeln('Luas lingkaran      = ',Lingkaran.Luas:7:2);

             End.