Loading AI tools
שפת תכנות מוויקיפדיה, האנציקלופדיה החופשית
פסקל (באנגלית: Pascal) היא שפת תכנות עילית, שפותחה בשנת 1970 על ידי ניקלאוס וירת, וקרויה על שמו של המתמטיקאי והפילוסוף בן המאה ה-17 בלז פסקל.[1]
פרדיגמות | אימפרטיבית, מבנית |
---|---|
תאריך השקה |
1970 ![]() |
מתכנן |
ניקלאוס וירת ![]() |
מפתח | ניקלאוס וירת |
גרסה אחרונה | (1992) |
טיפוסיות | סטטית, חזקה, בטוחה |
מימושים | טורבו פסקל, דלפי, Gnu, Dev, FreePascal |
ניבים | UCSD, Borland, Turbo |
הושפעה על ידי | ALGOL |
השפיעה על | Modula, Oberon, Object Pascal, Ada, Java, ויז'ואל בייסיק |
סיומת |
pp, p, pas ![]() |
![]() ![]() |
השפה תוכננה במטרה להקל על לימוד שפות תכנות ומדעי המחשב, ושימשה לפיתוח תוכנה ואף כשפה הסטנדרטית לתיאור אלגוריתמים עד אמצע שנות התשעים. תכנון השפה הושפע בעיקר משפת ALGOL, כמו שפות רבות אחרות. השפה מאפשרת תכנות מבני, תוך שימוש בשגרות, פונקציות ויצירת מבני נתונים מורכבים.
בגרסתה המקורית היו בשפה כשלים תכנוניים רבים, אך לא מעטים מהם שופרו עם הזמן בתקינה, ואחרים שופצו על ידי מפתחי המהדרים. פסקל השפיעה רבות על עולם התוכנה ועל שפות שהופיעו אחריה, כגון עדה, Java, Visual Basic ועוד.
אף שבבסיסה השפה פרוצדורלית עם כל היכולות הידועות וכוללת בקרת זרימה, מבני נתונים, קבוצות ומצביעים, כבר בתחילת שנות ה־90 של המאה ה־20 היא הורחבה והוגמשה בתקן נוסף שהרחיב אותה בהרבה היבטים, כך שישנם שני תקנים לפסקל, תקן בסיסי ותקן מורחב.
שפת פסקל תוכננה במקור כדי שהיא תהווה מקור למידה לתחביר, לתכנות, פיתוח חשיבה וכבסיס ללימוד שפות אחרות - היות שהיא שפה בסיסית וקלה ללימוד. כך למשל שפה זו היוותה מקור השראה למתכננים של שפת ויזואל בייסיק, ותפיסות שהיו קיימות בה הועתקו לשפה זו.
בשל תפיסותיה ובהירות קוד המקור שלה, היא שימשה שפה לימודית באוניברסיטאות פרק זמן לא מבוטל. משרד החינוך הישראלי השתמש בשפת פסקל לבחינות הבגרות וללימוד בכיתות, במקביל לשפת C, עד שנת 2006. ההתאמה שלה ללמידה סייעה לה להפוך לשפה משפיעה, בשל העובדה שבוגרי תיכונים רבים בשנות השבעים, השמונים והתשעים של המאה ה-20 היו בעלי ידע בשפה זו.
בפועל השפה הייתה חזקה יותר מהשפה המתוקננת, הואיל והחברות שפיתחו סביבות פיתוח לשפה זו הרחיבו אותה ויצרו שפה גמישה וחזקה יותר, אך יכולות אלה גרמו לתלות במהדר הספציפי עבורו הן נכתבו. בין החברות שפיתחו מהדרים לשפה זו הייתה מיקרוסופט (עם Microsoft Pascal), אך הפופולרית שבהן הייתה חברת בורלנד שפיתחה בסביבת DOS סביבת פיתוח ומהדר בשם טורבו פסקל. בגרסה 5.5 היא הורחבה לתכנות מונחה עצמים ובגרסתה השביעית הוציאה גם סביבת פיתוח לחלונות 16 ביט בשם BPW. גרסה זו לא זכתה לפופולריות ועם עליית התפוצה של מערכת ההפעלה חלונות, טורבו פסקל ירד ממעמדו, ולמעשה הוחלף בסביבת הפיתוח הוויזואלית דלפי, שמשתמשת בפסקל כשפת הקוד הפנימית שלה. קיימות מספר סביבת פיתוח חופשיות לפסקל, אחת מהידועות בהן היא סביבה רב פלטפורמית של הקוד הפתוח בשם FreePascal.
לשפת פסקל צורה תחבירית מוגדרת היטב. כל תוכנית תכלול את המקטעים הבאים. ייתכנו מקטעים ריקים (אחד או יותר), מלבד גוף התוכנית שחייב להופיע.
Program
ולאחריה שם התוכנית.Uses
ולאחריה רשימת הספריות החיצוניות שהתוכנית עושה בהם שימוש. לדוגמה: גרפיקה, קריאות למערכת ההפעלה וכולי.Label
.Const
.Type
.Var
.Function
ו- Procedure
. (בשפות התכנות של היום אין הבחנה בין פונקציה לפרוצדורה, ההבדל ביניהן בפסקל הוא שפונקציה מחזירה ערך בעוד פרוצדורה לא מחזירה ערך)Begin
ומסתיים במילה השמורה End
ולאחר מכן נקודה (".").השפה אינה מבחינה בין אותיות קטנות וגדולות. לדוגמה, הפקודות: write
, Write
ו- wrITE
הן זהות לחלוטין מבחינת השפה.
Program Hello_World;
Begin
Writeln ('Hello World!');
End.
קוד זה יגרום להצגת "!Hello World" על המסך ולירידת הסמן לשורה הבאה.
כל בלוק בשפה מתחיל במילה השמורה Begin ויסתיים במילה השמורה End ולאחריה נקודה. הפקודות בשפה מופרדות ביניהן בעזרת נקודה פסיק (כמו שפות רבות אחרות שהושפעו משפת Algol). בשל ההגדרה של הפקודות ב"מופרדות בנקודה פסיק" ולא "מסתיימות בנקודה פסיק", הוספה של נקודה פסיק לאחר הפקודה האחרונה תגרום לשגיאת הידור; מאפיין זה גרר ביקורת רבה. בסופה של התוכנית יש להוסיף תו נקודה במקום נקודה ופסיק. מחרוזת תוקף בגרש ('
) יחיד בלבד ולא בגרשיים ("
) כפי שמקובל בשפות תכנות אחרות. הערה תוקף בתווים (*
בתחילתה והתווים *)
בסופה.
כדי להכריז על קטע זיכרון שתוכנו נשאר קבוע במהלך כל התוכנית, יש להשתמש במילה השמורה Const
. לדוגמה:
Const
Example1 : Boolean = False;
Example2 : Array [3 .. 5] of Char = ('F', 'o', 'o');
מערכת הטיפוסים של השפה היא בעלת טיפוסיות סטטית ובטוחה יחסית, כך שלא ניתן להמיר בין טיפוסי נתונים מובחנים. מאפיין זה סייע להקל על לימוד השפה, אך גרר ביקורת בשל הקושי הרב לבצע פעולות שבשפות אחרות (כגון שפת C) הן קלות לביצוע. בפסקל ישנם כמה טיפוסי משתנים:
ShortInt
, Integer
, LongInt
. החל מגרסה 7 של טורבו פסקל נוסף Int64
(עבור כל מספר שלם, שערכו המוחלט אינו גדול מהחסם: 2 בחזקת 63, אם המספר שלילי; בעוד שאם המספר חיובי יש להפחית אחד מהחסם).Byte
, Word
.Comp
,Extended
,Double
,Single
,Real
.Char
.Type StringNine = String [9];
החל מגרסה 7 של טורבו פסקל נוספה מחרוזת NullTerminated שגודלה 65,535 תווים.
Boolean
- משתנה היכול להכיל שני ערכים בלבד - "True" ו־"False" (בשונה מהמקובל בשפות אחרות כגון שפת C לא ניתן להגדיר למשתנה בוליאני ערכים באמצעות 0 ו־1).ההכרזה על משתנה תתבצע באמצעות המילה השמורה Var
לפני גוף התוכנית. ניתן לבצע הכרזה והשמת ערך בפקודה אחת, אך יש מהדרים שאינם תומכים באפשרות זו:
Var i : Integer = 0;
בפסקל ניתן ליצור מערכים מטיפוסי נתונים שונים כגון מספרים, מחרוזות, מצביעים ואף מבנה רשומות. כדי להכריז על מערך יש לציין את שמו, מספר איבריו וסוג הטיפוס של המערך, למשל, באופן הבא:
Var myArray : Array [0..261] of Char;
ניתן להגדיר טווח של איברי מערך לא רק באמצעות מספרים אלא אף באמצעות תווים. בדוגמה הבאה ייווצר מערך שגודלו יהיה בדיוק מספר האותיות שבא'-ב' הלועזי.
Var aLetters: Array ['A'..'Z'] of Char;
באמצעות התו פסיק ניתן ליצור מערכים רבי ממדים בסוגריים המרובעים שבהם אנו מגדירים את מספר האיברים. בדוגמה הבאה ניתן לראות מערך תלת־ממדי המייצג למעשה קובייה.
Var myArray : Array [0..10, 0..10, 0..10] of Char;
לפני השימוש במערך יש לאפס את המערך כדי לנקות אותו ממידע אקראי. כדי לגשת למידע במערך יש להשתמש בסוגריים מרובעים לאחר שם המערך, בהם אינדקס המיוצג על ידי מספר, אות או משתנה.
משתנה מסוג "רשומה" הוא משתנה שמוגדר על ידי המתכנת וכולל צירוף של מספר טיפוסי משתנים ביחד. הוא יכול להכיל בתוכו משתנים רגילים, מערכים ומצביעים. שימושים נפוצים הם במבנה ערכים טבלאי וברשימות מקושרות. הגדרת רשומה נעשית באמצעות המילים השמורות Record ו־End, בתוך קטע הקוד של Var. לדוגמה:
Var
tW32FindData = Record
iFileAttributes : LongInt;
iCreationTime : Array [0..1] of LongInt;
cFileName : Array [0..261] of Char;
End;
ניתן ליצור מבנה של רשומה דינמית, שבה תתבצע הגדרה דינמית של המשתנים בזמן ריצה, כאשר המשתנים שברשומה ישתנו בהתאם לערכי שדה או שדות אחרים. הדבר נעשה באמצעות פקודת Case
, בדומה לפקודת Case רגילה, יוכרזו משתנים שונים בכל תנאי, וכך מבנה השדות ישתנה מרשומה לרשומה, לפי הערכים שבפועל קיימים בהם.
ניתן להשתמש במילה With
על מנת לקצר את הגישה במשתנה רשומה ולוותר על הקידומת של שם משתנה הרשומה, כך לאחר פקודת With אפשר לגשת ישירות למשתני הרשומה.
ניתן ליצור בפסקל אוסף של פריטים מכל סוג שהוא בתוך משתנה יחיד מסוג Set
. מספר הפריטים המרבי הוא 256. ניתן לבצע פעולות שונות על קבוצות, כמו למשל בדיקה האם קבוצה מכילה או מוכלת בקבוצה אחרת, איחוד, חיסור וחיתוך בין הקבוצות. דוגמה להגדרת קבוצה:
Var
TheSet : SET OF BaseType
TheSet := [Element1, Element2, ... ElementN];
שגרה (פרוצדורה) היא קטע ביצועי שאינו מחזיר ערך. שגרה מוגדרת באמצעות כותרת שבה המילה השמורה Procedure
, שם השגרה, שמות וסוג הפרמטרים שהיא מקבלת. לאחר מכן ניתן להגדיר קבועים ומשתנים מקומיים. גוף השגרה תחום באמצעות המילים Begin
ו־End
. לדוגמה:
Procedure PrintManyTimes (t : integer; s : string);
Var
i : Integer;
Begin
For i := 1 To t Do
Writeln (s);
End;
שגרה זו מקבלת מספר (t) ומחרוזת (s). השגרה מדפיסה t פעמים את המחרוזת s.
פונקציה מוגדרת באמצעות כותרת שבה המילה השמורה Function
, שם הפונקציה, שמות וסוג הפרמטרים שהיא מקבלת, וסוג תוכן שהיא מחזירה. בדומה לשגרה, לאחר מכן ניתן להגדיר קבועים ומשתנים מקומיים. גוף השגרה תחום באמצעות המילים Begin
ו־End
. עם זאת במהלך התוכנית יש לבצע השמת ערך לשמה של הפונקציה, פעולה שתגרום לפונקציה להחזיר ערך. לדוגמה:
Function Get_NumberCard (Num : Integer) : Integer;
Var
St1 : String;
Number, Code : Integer;
Begin
St1 := Card_GetIdent(C, Num);
St1 := Str_Get(St1, 2, '-');
Val(St1, Number, Code);
Get_NumberCard := Number;
End;
פונקציה זו מקבלת מספר, קוראת בעצמה לפונקציות אחרות (שלא הוגדרו כאן) מהן היא מקבלת מידע, ולבסוף מחזירה מספר.
בפסקל, קלט ופלט אינטראקטיבי (למשתמש וממנו) מבוצע באמצעות השגרות Read
ו־Write
. קיימות גם השגרות ReadLn
ו־WriteLn
, המבצעות ירידת שורה לאחר ביצוע פעולת הכתיבה או הקריאה.
Read
: קליטה של ערך. זוהי פקודה המורה למשתמש להזין ערך. הערך שיתקבל יושם לתוך המשתנה הנמצא בסוגריים.Write
: הדפסה של ערך ומידע. את המידע המודפס יש להכניס לסוגריים, כאשר המידע מופרד באמצעות פסיק ותחום בגרש יחיד. לדוגמה, אם בקוד הבא המשתנה iNum הוא המספר 8, אזי יודפס: "The Value of iNum is 8".Write('The value of iNum is ', iNum);
השמה נעשית באמצעות נקודתיים וסימן שווה ("=:"). כך לדוגמה, X := A + 5
הוא חיבור המשתנה A והמספר 5 והשמת התוצאה במשתנה X.
מבנה If...Then...Else
מאפשר לבצע פקודות באופן בררני באמצעות התניה ולבצע הסתעפות של התוכנה לכיוונים שונים. אם התנאי לא התקבל ניתן לבצע פקודה חלופית באמצעות Else
. ניתן לכתוב תנאי If מקוננים.
If Variable > Value Then
Statement1
Else
Statement2;
אין למקם את סימן הנקודה פסיק לאחר המילה Then או לפני ה-Else. ניתן להשתמש ב-Begin ו-End לשם ביצוע מספר פקודות מותנות (פקודה מורכבת).
תנאי Case...End
מאפשר ליצור תנאי מרובה על ערכים מטיפוס נתונים סדור מסוג מספרי או Char. היא יכולה לפעול על טווחי ערכים ואף טווחי משנה. בטורבו פסקל נוספה פקודת Else שאינה קיימת בשפה התקנית.
Case Variable of
Value1: Statment1;
Value2: Statment2
Else Statment3;
End;
לולאת...For היא פקודה מחזורית המורה לבצע קטע קוד מספר פעמים קבוע מראש. בתחילת הפעלתה יש לקבוע את מספר הפעמים שהיא תתבצע. לדוגמה: For i := 1 To 7 Do
. במקרה זה i
הוא המשתנה המונה, והמניה תתבצע מ־1 עד ל־7. כברירת מחדל, פסקל תחזור רק על הפקודה שמיד לאחר הוראת הלולאה, בדומה לתנאי If. כדי לכלול מספר פקודות יש להשתמש במילים Begin
ו־End
.
For i := 1 to 10 Do
Statement1;
לולאה זו היא פקודה המבצעת את קטע קוד כל עוד תנאי כלשהו מתקיים. היא נחשבת לגמישה יותר מכיוון שהיא יכולה לבחון תנאים שבזמן כתיבת התוכנית אינם ברורים כגון גודל של קובץ.
While Variable > Value Do
Statement1;
לולאה זו אף היא מתקיימת על פי תנאי. היא דומה ללולאת While...Do וההבדל העיקרי הוא שהתנאי מוערך רק לאחר ביצוע הקוד, ולכן תמיד יתבצע הקוד לפחות פעם אחת. הבדל נוסף הוא שלולאת While ממשיכה לרוץ כל עוד התנאי המוערך מתקיים (כלומר מקבל ערך "TRUE") ואילו לולאת Repeat ממשיכה לרוץ כל עוד התנאי המוערך לא מתקיים (כלומר מקבל ערך "False").
Repeat
Statement1;
Until Variable > Value;
Div
מחזיר את החלק השלם לאחר חילוק. אופרטור Mod
מחזיר את השארית לאחר חילוק.פסקל תומכת בשימוש במצביעים ובהקצאת זיכרון דינמית. כדי ליצור ולהשתמש במצביעים יש להשתמש באופרטור ^
. יצירת מצביע נעשית באמצעות שימוש באופרטור ^ בצידו השמאלי של המשתנה המוצבע, ואילו ביצוע פעולת השמה נעשית באמצעות שימוש באופרטור ^ בצידו הימני של המשתנה המצביע.
לדוגמה, כדי להגדיר מבנה ששמו MyRecord ובו שלושה משתנים, כאשר המשתנה RecPtr מצביע אליו, והוא גם משולב כאחד מאיבריו (ליישום של רשימה מקושרת), נכתוב את הקוד הבא:
Type
String20 = String[20];
RecPtr = ^MyRecord;
MyRecord = Record
Name: String20;
Age: integer;
Next: RecPtr
End;
כדי להכריז על משתנה pb, מצביע מסוג MyRecord, יש לכתוב את הקוד הבא:
Var
pb: RecPtr
יצירה של רשומה חדשה וביצוע השמה של שם, גיל ומצביע, כך שהמצביע יצביע לכלום, יש לכתוב את הפקודות הבאות:
New(pb);
pb^.Name := 'Eli Gold';
pb^.Age := 18;
pb^.Next := Nil;
לפי תקן ISO הבסיסי בפסקל קיימות 35 מילים שמורות, לצורך שימושים מיוחדים של השפה כגון מזהים, אופרטורים, קבועים ופקודות תכנותיות. לא ניתן לכנות משתנים בשמות אלה. בתקן המורחב נוספו עוד 13 מילים נוספות.[2][3]
and | array | begin | case | const | div |do | downto | else | end | file | for | function | goto | if | in | label | mod | nil | not | of | or | packed | procedure | program | record | repeat | set | then | to | type | until | var | while | with.
and then | bindable | export | import | module | only | or else | otherwise | pow | protected | qualifed | restricted | value |
על פי תקן 10206 הוספו לפסקל שיפורים רבים והעיקריים שבהם: מודולים מוכללים שניתן יהיה להדר כרכיבי תוכנה נפרדים שמקבילים ל-Unit של טורבו פסקל. סכמה לקביעת טיפוסי משתנים דומים, שיוכלו להיות מוגדרים באופן סטטי או דינמי, כך למשל אפשר להגדיר מערך דינמי כפרמטר של פונקציה. מחרוזת מטיפוס גודל קבוע. משתנה שניתן לכריכה, גישה ישירה לקבצים, מספרים מרוכבים, אתחול ערכים ברשומה באמצעות בנאי, פרמטרים מוגנים משינוי, פונקציות לטיפול בחתימת זמן ואופרטור להעלאה בחזקה.
Seamless Wikipedia browsing. On steroids.
Every time you click a link to Wikipedia, Wiktionary or Wikiquote in your browser's search results, it will show the modern Wikiwand interface.
Wikiwand extension is a five stars, simple, with minimum permission required to keep your browsing private, safe and transparent.