اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

التصريحات:

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

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;

 

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

  • 2 months later...

الجملة 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 تظهر رسالة راسب

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information