الإجراءات في الدلفي(الأكواد البرمجية)

[صالح حمادي]

السلام عليكم.

من المعروف أن الدلفي يستخدم لغة الباسكال الإجرائية.

لذلك سوف أقوم بشرح أهم النقاط التي يحتاجها المبرمج لبداية كتابة الأكواد البرمجية في الدلفي:

التصريحات:

في هذا الجزء يعلن عن الثوابت و المتغيرات الضرورية لحل مشكل ما:

1- تعريف المتغير: هو خانة في الذاكرة تستعمل لحفظ قيمة و يمكن تغييرها حسب الحاجة.

صيغة التصريح بالمتغير:

Var variable1,variable2,.....variableN:Type;

Type: نوع المتغير

variable1,variable2,.....variableN:أسماء المتغيرات

مثال:

Var A,B,C:integer;

أنواع المتغيرات:

المتغيرات الرقمية:

shortint: عدد صحيح قصير من -127 إلى 127

Byte: من 0 إلى 255

integer: عدد صحيح من -32768 إلى 32767

word: من 0 إلى 65535

longint: عدد صحيح طويل من -2147483648 إلى 2147483647

real: عدد حقيقي من 2.9x10^-39 إلى 1.7x10^38

double: من 5x10^-324 إلى 1.7x10^308

extended: من 1.9x10^-4951 إلى 1.1x10^-4932

المتغيرات النصية:

char: حرف واحد

string: سلسلة أحرف نصية

المتغيرات المنطقية:

boolean: قيمة منطقية true أو false

1- تعريف الثوابت: هو خانة في الذاكرة تستعمل لحفظ قيمة حيث تعطى قيمة ثابتة في البداية و لا يمكن تغييرها.

صيغة التصريح بالثابت:

Const identificateur=Value;

مثال:

Const Pi=3.14;
      R=10.75;

 

[mehda]

بارك الله فيك استاذنا

[صالح حمادي]

25 دقائق مضت, mehda said:

بارك الله فيك استاذنا

و فيك بارك الله

[صالح حمادي]

الجملة if:

الشكل العام:

If condition then
Begin
:
End;

مثال:

 

وبإضافة  Else يصبح الشكل العام كالتالي:

If condition then
Begin
:
End 
Else
Begin
:
End;

ملاحظة: يجب عدم وضع الفاصلة المنقوطة في السطر قبل Else

مثال:

var x:real;
begin
x:=StrToFloat(InputBox('أدخل المعدل','',''))  ;
if x>=10 then
  begin
    ShowMessage('ناجح') ;
  end
else
  begin
    ShowMessage('راسب');
  end

عند تنفيذ البرنامج تضهر نافذة تطلب منك إدخال المعدل

إذا كان المعدل أكبر من 10 تظهر رسالة ناجح

و إذا كان المعدل أصغر من 10 تظهر رسالة راسب

[asad3939]

جزاك الله خيرا