FUNCTION DALAM PASCAL »

Fungsi         : Menjumlahkan 2 buah pecahan.

Perintahnya :  Tinggal masukan saja penyebut dan pembilang.

   uses crt ;

var pemi,pemII,penyi,penyII:integer;
      j,k:integer;
function pemb(a,c:integer):integer;
    begin
       j:=penyii;
       k:=penyi;
       pemb:=a*j+k*c;
    end;
function peny(b,d:integer):integer;
   begin
     peny:=b*d;
   end;
begin
clrscr;
writeln('Program penjumlahan pecahan');
writeln('Oleh Husni Mubarak  ');
writeln('======================================');
repeat
    writeln('Pecahan 1 ');
    write('Pembilang i :');readln(pemi);
    write('Penyebut i :');readln(penyI);
    writeln;
    write('Pecahan 2 ');
    write('Pembilang ii :');readln(pemII);
    write('Penyebut II: ');readln(penyII);
    writeln;
    writeln('maka hasil dari pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah ',pemb(pemi,pemii),'/',peny(penyi,penyii));
    writeln('');
    writeln('jika ingin keluar tekan sembarang huruf dan enter');
    until keypressed;

readln;
End.

LOGIKA PEMROGRAMAN
Uses crt; adalah index atau kamus yang akan digunakan, ini wajib ada dalam turbo pascal.
    Var adalah variabel yang akan digunakan dalam program, di bagian ini saya memasukkan jenis variabel dan type data yang akan digunakan. Misal: saya ingin membuat sebuah variabel yang menampilkan nama maka kita tinggal mengetik Nama:string;. Maksudnya adalah nama variabelnya ‘Nama’ dan type datanya ‘string’. String adalah type data kumpulan huruf atau kalimat. Variabel yang saya gunakan diatas type datanya ada 2. String artinya kalimat atau kata dan real artinya bilangan pecahan.
    Di bagian ‘Begin’ adalah kumpulan barisan perintah yang harus dikerjakan oleh komputer, diakhir program harus selalu diakhiri dengan ‘End’.
    ‘write/writeln’ digunakan untuk menampilkan isi dari suatu nilai variabel di layar.
    ‘read/readln’ perintah ini digunakan untuk memasukkan (input) data dalam keyboard ke dalam suatu variabel.
    ( := ) tanda di dalam kurung adalah statement penugasan, statement ini berfungsi menyatakan sebuah nilai dari suatu variabel. ‘j:=penyii’ artinya nilai dari variabel j adalah sama dengan nilai penyii sama seperti kode di bawahnya yaitu  k:=penyi;artinya nilai k adalah sama dengan nilai penyi dan pemb:=a*j+k*c;artinya nilai pemb adalah sama dengan nilai a*j+k*c.
      until keypressed; perintah untak mengulang langsung program
Repeat : kode pengulangan program di mulai.

    Setelah itu ada bagian cetak, bagian ini menampilkan hasil dari perintah yang akan ditampilkan ke dalam layar.

 Gambar hasil nya