اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

التصريحات:

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information