Contoh script dasar pembuatan pada program delphi 7 (part 6)

sebelumnya saya sudah menjelaskan apa pengertian tentang procedure by reference dan procedure by value . sekarang saya akan memberikan contohnya...

1. procedure by reference
 program prosedur;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,y,z:integer;
Procedure tambah (var A,B,C:integer);
begin
  C:=A+B;
end;
begin
  write('Masukkan Nilai X = ');readln(x);
  write('Masukkan Nilai Y = ');readln(y);
  tambah(x,y,z);
  writeln('X + Y = ',z);
  readln;

end.

2. procedure by value
program prosedur;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,y:integer;
Procedure tambah (A,B:integer);
var
  c:integer;
begin
  c:=a+b;
  writeln('Hasil Penjumlahan ',c);
end;
begin
  write('Masukkan Nilai X = ');readln(x);
  write('Masukkan Nilai Y = ');readln(y);
  tambah(x,y);
  readln;
end.

contoh berikutnya:

program prosedur;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Procedure tambah;

var

  a,b,c:integer;

begin

  write('Masukkan Nilai A = ');readln(a);

  write('Masukkan Nilai B = ');readln(b);

  c:=a+b;

  writeln('A + B = ',c);

end;

begin

  tambah;

  readln;

end.

 selamat mencoba dan good luck!!!!!!! :D