- Function Alt Programlar

Konu: - Function Alt Programlar Salı Ağus. 05, 2008 10:27 pm

Örnek 4:Elemanları sıra ile 1-100 arasında olan dizi değer aldıkça altprograma değer transfer etmekte ve alt programda bu dizinin değerleri random komutu ile rastgele sayılardan oluşan yeni bir diziye aktarılmakta ve ana programa geri dönmektedir.

uses crt;

type dizitipi=array[1..100] of integer;

var

dizgi:dizitipi;k:word;

yenidizi1,yenidizi:dizitipi;

procedure ornekleme(pardizi:dizitipi;var yenidizi:dizitipi);

begin

yenidizi[k]:=random(pardizi[k]);end;

begin

for k:=1 to 100 do begin

dizgi[k]:=k;ornekleme(dizgi,yenidizi1);

writeln(dizgi[k],' ',yenidizi1[k]);end;

while not keypressed do;end. Programın Çıktısı

Function Alt Programları

Pascal’da altprogramlar başlığı altındaki yapısal modüllerden bir diğeri de fonksiyonlardır (function). Function ve Procedure arasındaki farkı anlayabilmek için procedure ve function olarak ayrı ayrı yazılmış bir uygulama üzerinde duralım.

PROCEDURE Toplam(X,Y:integer; var Z:integer);

begin

Z:=X+Y;

end; örneğin açıklaması ileriki sayfada verilmiştir.

» - Unit Programlar
» - Procedure Alt Programlar