الموضوع: الخوارزميات -العدد 10

[ALIGN=CENTER][TABLETEXT="width:70%;background-colorrange;border:4px double red;"][CELL="filter:;"][ALIGN=right]


****نتم السلسلة بالدرس الاخيروهو الدرس العاشر
الموضوع : الدوال و الاجراءات ( les fonctions et les procedure )

**لماذا وضعت الدوال و الاجراءات ****
**وضعت الدوال والاجراءات لتقليل عدد التعليمات الى اقل قدر ممكن ( حسب راي )

اولا الدوال او الاقترانات كما تجدونها في بعض الكتب
اشكل العام لها :

كود:

Function funcname (parameters): returntype;Begin:
:
End;

funcname ترمز لاسم الاقتران
parameters ترمز لاعدادات الداخلية في الاقتران
returntype ترمز لنوع الاقتران

استدعاء الدالة
يتم بطريقتين
الاولى

كود:

X: = functionname;

الثانية

كود:

Write (functionname);

مثال

كود:

Program ex ;
Uses crt;
Function w (a, b: integer): integer;
Begin
Read (a, b) ;
W: = a+b;
End;
Var
no1, no2: integer;
Begin
Write (w (no1, no2));
End.

***تنبيه الاقتران لديه نوع نعطي له نوع اما الاجراء فلا *****

ثانيا : الاجراءات
الشكل العام لها

كود:

Procedure procename(parametres) ;
Begin
:
:
End;

procename ترمز الى اسم الاجراء

****طريقة الاستدعاء نفسها ***
مثال

كود:

Program ex ;
Uses crt;
Procedure w (a, b: integer);
Var
X: integer;
Begin
Read (a, b);
X: =a+b;
Write(x);
End;
Var
no1, no2: integer;
Begin
W (no1, no2);
End.

***********

**يتم كتابة الاقترانات والاجراءات مابين type و var و لا يهم الترتيب اوعدد الاجراءات والاقترانات المكتوبة

كود:

type
tt:ttqq;
procedure nom(parmetres);
debut
....................
........................
fin;
fonction nomfonction(par):ttqq;
debut
...........
..........
fin;

******************انتظرووووووووووو نا في اخر هدية +++تقييم الدورة *************[/ALIGN][/CELL][/TABLETEXT][/ALIGN]

جزيت كل خير :)

شكرا أخي حمزة و جزاك الله خيرا .

شكرا لك وشكرا على التعديل .....كنت نعسان .....ودايخ....هههه

شكراااااااااااااااااااااا اا لــــــــــــــــــــــــ ـــــــك...

شكرا لك حمزة على كل المجهودات المبدولة ...وجزيت كل خير

شكرا جزيلا لك على هذه الدروس المهمة أخي حمزة جعله الله في ميزان حسناتك

بارك الله فيك أخي حمزة