Function at Pascal Language

Function merupakan bentuk modul atau blok program yang biasanya digunakan untuk melakukan perhitungan. seperti halnya pada Procedure yang sudah dijelaskan di pertemuan kelas minggu lalu, pada Function pun dapat berlaku paramter input dan reference. Terlebih, peggunaan by Reference, akan mengembalikan nilai balik, seperti halnya fungsi function itu sendiri.

berikut ini, contoh implementasi penggunaan Function untuk menghitung titik tengah (dalam bahasa Pascal).

program HitungTitikTengah;
uses crt;
type
  titik = record
             x :real;
             y :real;
          end;
  var
    p1, p2 : titik;
    pt : titik;     {titik tengah p1 dan p2}
    y : integer;

  function titikTengah(p1, p2: titik; var pt: titik):integer;
  begin
    pt.x := (p1.x + p2.x)/2;
    pt.y := (p1.y + p2.y)/2;

    titiktengah := 1; {isi sembarang u return}
  end;

begin
  clrscr;
  writeln('Titik P1 : ');
  writeln('--------------------');
  write('X = ?'); readln(p1.x);
  write('Y = ?'); readln(p1.y);

  writeln('Titik P2 : ');
  writeln('--------------------');
  write('X = ?'); readln(p2.x);
  write('Y = ?'); readln(p2.y);

  y := titikTengah(p1,p2,pt);
  writeln('Titik tengah = (',pt.x:0:0, ',' , pt.y:0:0,')');
  readln;
End.


Contoh yang lain adalah : Menentukan Tahun Kabisat dari suatu tahun. berikut adalh kode programnya dalam bahasa Pascal.

Program Tentukan_TahunKabisat;
uses crt;
var
  tahun : integer;
begin
  clrscr;
  write('Masukan tahun : '); readln(tahun);
  if ((tahun mod 4 = 0) and (tahun mod 100 <> 0)) or (tahun mod 400 = 0) then
     writeln(tahun,' Tahun Kabisat')
  else
     writeln(tahun,' Bukan tahun Kabisat');
  readln;
End.

Tugas Individual :

1. Jelaskan Penjelasan program untuk menetukan titik tengah
2. Jelaskan penjelasan program untuk Function Kabisat