Fungsi pada delphi atau pascal - deret

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja, syntaxnya bisa teman-teman sedot dibawah:

Fungsi merupakan subprogram yang mengolah suatu masalah tertentu untuk menghasilkan suatu keluaran tertentu. Keluaran fungsi harus mempunyai tipe.

FUNCTION nama_fungsi (parameter1, parameter2, ���: tipeparameter): TYPE_fungsi ;


Perbedaan utama antara fungsi dan prosedur adalah, prosedur tidak harus mempunyai keluaran, tetapi fungsi harus mempunyai keluaran.

program deret;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var batas : integer;
function jumlahderet (batas:integer) : integer;
  var
  i, jumlah : integer;
  begin
  jumlah := 0;
  for i:=1 to batas do
    jumlah := jumlah +i;

    jumlahderet := jumlah;
    end;

begin
write ('masukkan batas angaka yang dijumlahkan : ');
  read (batas);
  jumlahderet (batas);
         write ('jadi jumlahnya adalah ',jumlahderet(batas));
readln;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
 

Demikian, Semoga bermanfaat
Have Fun...

Related Posts:

Tweet