مثالهائي از توابع
مثال استفاده از گزينه هاي شرطي

if a then b [else c]

Function ifthenelse(Value x) : Value

Begin

var n;

if (x<10) then

   begin

   n := sq(x);

   end

else 

   begin

   n :=sqrt(x);

   end;

Return n;

End;

اين تابع اگر عددي كمتر از 10 باشد توان دوم آنرا برميگرداند و در غير اينصورت جذر آنرا بر مي گرداند

مثال 2

for a to b [step c] do d

شكل تابع

Function forloop(Value a) : Value a

Begin

var i,b;

   i :=1;

   b :=a;

for i :=1 to 100 step 4 do 

   b :=b+1;

Return b;

End;

براي هر ورودي از 1تا 100 با گامهاي 4 تائي شمارش مي شود و يكي به ورودي اضافه مي كند

مثال 3

while a do begin b endحالت

Function whileloop (Value a) : Value

Begin

var i,b;

   i:=1;

   b:=a;

while i<a do

begin

   b:=b+1;

   i:=i+1;

end;

Return b;

End;

اين تابع يك تابع چرخشي است

آغازفصل| فهرست|بازگشت | صفحه اصلي