سؤال حول الجملة if

[merouane]

StrToInt هي String to Integer: تقوم بتحويل نوع المتغير من String إلى Integer
أردت من خلالها أن أريك كيفية التحويل (بما أنك ذكرت أنك تتعلم: "ماتم ادخاله هو حروف وليست أرقام" )

Try.. Except
تفيد للتحكم بمجريات البرنامج عند حدوث خطأ محدد أو غير محدد: هنا سنراقب إذا حدث خطأ خلال عملية التحويل


exit تفيد الخروج من البرنامج (أو procedure, function) لأان عند إدخال العمر غير رقمي صحيح لا فائدة نت مواصلة مقارنة العمر المطلوب.

---

يمكن القيام بتعديل بسيط لنفس النتيجة ([size=small]حيث [/size][size=small]EInOutError[/size] تفيد مراقبة في حالة كان هناك خطأ في الإدخال - أي قمنا بتحديد X العمر كرقم intreger
وعند إدخال نص يحتوي على حروف أو رقم ذو فاصلة ..إلخ، سيتحول البرنامج إلى كتابة أن العمر المعطى ليس رقم integer، ثم يخرج من البرنامج.

PHP كود :

program test;
{$mode objfpc}
Uses sysutils;

var
 s : string; // الاسم
 x : integer; // العمر

begin
 writeln('what is your name' ); // إدخال الاسم
 readln(s);                     // قراءة الاسم
 writeln('how old are you' );   // إدخال العمر
 Try
   readln(x);                    // قراءة العمر
 except
   On E : EInOutError do //في حالة وجود خطأ خلال عملية التحويل
     begin
       Writeln ('Not a number !'); // كتابة أن العمر المعطى ليس رقم
       exit;                // الخروج  -- في هذه الحالة من البرنامج
   end;
 end;
 // إذا كان كل سطر صحيح
 if (x>0) and (x<10) then
   writeln(s,' you are child')
 else if (x>=10) and (x<20) then
   writeln(s,' you are teenager');
end.