תחביר (Syntax) בשפת פסקל

עקרונות יסוד כלליים

• בפסקל הסימן ; מורה על סיום פרוצדורה/פונקציה, שורת פקודה/השמה
  
• "בלוקים" של קוד יוצבו בין במילים "Begin" ... "End" במקום סוגריים מסולסלים "{ ... }"
• ירידת שורה לא פוגעת ברצף הקוד ולא נדרש סימן מיוחד לכך.
• בפרוצדורות ופונקציות חובה להצהיר על כל המשתנים לפני השימוש (בראש הקוד)
• השמת ערך אל משתנה יבוצע באמצעות הסימנים =: כמודגם בהמשך.
• חובה להציב את פרוצדורות המערכת (כגון: init, After_Showing, After Edit וכיו"ב) מתחת לכל שאר הפרוצדורות/פונקציות הפרטיות.

סימנים בפסקל ומשמעותם

פעולות בפסקל ומשמעותם

שימוש במשתנים

• ב- Pascal מכריזים על משתנים באמצעות המילה VAR ומספיק לכתוב אותה פעם אחת כמודגם בהמשך.
  
• במערכת התסריטים מיקום ההגדרה של שמות המשתנים חייב להתבצע אך ורק מתחת לשם הפרוצדורה (כמודגם בהמשך)
• הכרזה על משתנה חייב לכלול את שמו + סוג המשתנה גם אם מדובר במשתנה "כללי" (Variant).
• השמת ערך למשתנה לא יכולה להתבצע באותה הפקודה של ההכרזה (שתי פעולות שונות).

סוגי משתנים (Data Types)

דוגמאות להכרזות משתנים (יצירת משתנים)

Procedure DoSomething;
Var Age: integer;
  Distance: double;
  Comment, Date, Time: string;
  Letter: char;
  YesNo: boolean;
Begin
  Age:= 30;
  Distance:= 17.956;
  Comment:= 'Helo World';
  Date:= '27/07/2023'; Time:= '10:23:33';
  Letter:= 'D';
  YesNo:= False;
End;

שרשור טקסטים

Procedure After_Showing;
Var MyName: string;
Begin
  MyName:= 'Yaniv';
  PopupMessage('My name is: ' + MyName);
End;

פונקציות ופרוצדורות

{סוג}	    {שם}
Procedure After_Showing;
Begin
  {type your Procedure code here...}
End;

{סוג}	  {שם}	     {משתנים}	                      {סוג ערך מוחזר}
Function Do_Somthing(Param1, Param2: integer): integer;
Begin
  Result:= Param1 + Param2;
End;

Procedure After_Edit(FeildName);
Var DayNumber: integer;
Begin
  DayNumber:= -1;
  DayNumber:= Day_Of_Week(Now, False);     //'Day_Of_Week' is a Function that returns the current day number...
  PopupMessage('The day number is: ' + Shint(DayNumber));
End;

תנאי - IF

Procedure After_Showing;
Var MyName: string;
Begin
  MyName:= 'Yaniv';

{דוגמה לתנאי פשוט - פעולה בודדת}
  If (MyName = 'Eli') Then
    Do_somthing;

{דוגמה לתנאי פשוט - ריבוי פעולות}
  If (MyName <> 'Eli') Then
    Begin
     Do_Something1;
     Do_Something2;
     Do_Something3;
    End;

{דוגמה לתנאי מורכב - ריבוי פעולות}
  If ((MyName <> 'Eli') AND (MyName <> '')) Then
    Do_Something
  Else
    Begin
      Do_Something_Else1;
      Do_Something_Else2;
      Do_Something_Else3;
    End;

{דוגמה לתנאי מורכב הכולל if else if - ריבוי פעולות}
  //Reminder: the last command\action befor the "else" statment will not end with ';' sign.
  If ((MyName <> 'Eli') AND (MyName <> '')) Then
    Begin
      Do_Something;
      Call_aFunction;
    End
  Else If (MyName = 'Ziv') Then
    Do_Something_Else1
  Else If (MyName = 'Ran') Then
    Do_Something_Else2
  Else
    Do_Something_Else3;
End;

IF בכתיבה מקוצרת

Function CheckIfInBrackets(S: String): Boolean;
Begin

  //נסתר IF ולכן המינוח - IF כך הייתה נראת תצורת הכתיבה ה"רגילה" המשתמשת בתנאי
  IF (Copy(S,1,1) = '{') AND (Copy_End_Of_String(S,1) = '}') Then
    Result:= True;

  //וכך נכתוב את אותו תנאי נסתר בתצורת כתיבה מקוצרת.
  //יחזירו שתיהן תשובה חיובית Copy ניתן לראות שהתוצאה תהיה חיובית רק כאשר שתי הפונקציות
  Result:= (Copy(S,1,1) = '{') AND (Copy_End_Of_String(S,1) = '}');

  
End;

תנאי - CASE

Procedure Case_Check;
VAR a, b: Integer;
Begin
  a:= ClientTb.IField['ID Doc Type',-1];
  b:= ClientTb.IField['Gender',-1];

  Case a OF
    1..4,8: a:=1;
    5..7:   a:=2;
  Else
    a:=0;
  End;
End;

לולאות

לולאת FOR

{לולאה הסופרת כלפי מעלה ומבצעת שורת קוד יחידה}
For i:= 0 To 4 Do
  PopupMessage(_Int_To_Str(i, false));


{לולאה הסופרת כלפי מטה ומבצעת שורת קוד יחידה}
For i:= 4 DownTo 0 Do
  PopupMessage(_Int_To_Str(i, false));


{לולאה הסופרת כלפי מעלה ומבצעת מקבץ שורת קוד}
Procedure After_Showing;
Var _ctr: integer;
    _time: double;
Begin
  For _ctr:= 0 To 1 Do
  Begin
    _time:= Now;
    PopupMessage('The Time is: ' + Format_FixDT_To_Str('HH:MM:SS', _time));
  End;
End;

לולאת While

{לולאה בגרסה קצרה של שורה אחת}
While (Condition) Do
  [Single Action Code;]

{לולאה עם ריבוי פקודות}
While number < 5 Do
Begin
  sum := sum + number;
  number := number - 2;
End;

לולאת Repeat

{לולאה מסוג זה מיועדת לריבוי שורות}
Repeat
  [Action Code1];
  [Action Code2];
  [Action Code3];
Until (Condition);

הפקודה Try Execept

{אפשרות ראשונה}
Try
  ...
Except
  ...
End;

{אפשרות שניה}
Try
  ...
Except
  ...
Finally
  ...
End;

{אפשרות שלישית}
Try
  Try
    ...
  Except
    ...
  End;
Finally
  ...
End;

מערכים

Procedure Init;
Var Vector:  Array[1..5] of integer; //הגדרת מערך בעל 5 תאים מסוג מספר. שים לב: המערך יתחיל בספרה 1
    Vector2: Array of integer;       //הגדרת מערך דינאמי מסוג מספר
    Test: String;                    //הגדרת משתנה מסוג String בדוגמה הנל ניגש אל ערכיו בתצורת מערך.
    i: integer;
Begin
  For i:= 1 To 5 Do
    Vector[i]:= i*100;

  PopupMessage(_Int_To_Str(Vector[3], False));

  Test:= 'Yaniv';
  PopupMessage(Test[2]);             //a התוצאה תהיה הקפצת חלון המציג את האות

  SetLength(Vector2, 3);
  Vector2[0]:= 0;
  Vector2[1]:= 10;
  Vector2[2]:= 200;
  ShInt(Vector2[1]);
End;