שפת התכנות Turbo Pascal מאפשרת לצייר גרפית צורות שונות על המסך. ניתן לבנות כל אובייקט גרפי באמצעות נקודות, קווים, קשתות. פסקל משתמש במצב גרפי רסטר ברזולוציית מסך של 640 x 480. ציור מורכב מהגדרת הקואורדינטות של נקודות ההתחלה והסיום של האובייקט שיוצגו להליכים הגרפיים. צבע האובייקט, עובי הקווים, כמו גם סגנונם, מוגדרים כפרמטרים של ההליכים הגרפיים. כדי לצייר באמצעות תוכנה, עליך לחבר את מודול הגרפיקה של פסקל.
נחוץ
סביבת תכנות טורבו פסקל
הוראות
שלב 1
פרק את אובייקט הציור שצוין לאלמנטים המרכיבים אותו. בחר קווים בודדים, קשתות, עיגולים, מלבנים ונקודות. אלה הצורות שניתן לצייר באמצעות נהלי טורבו פסקל.
שלב 2
ממש בתחילת קוד התוכנית, חבר את מודול הגרפיקה. לשם כך, כתוב שורה כזו: משתמש בגרף. לאחר מכן, צור משתנים שלמים כדי לאתחל את מצב הגרפיקה: var gdet, gm: integer.
שלב 3
בגוף התוכנית, לאחר מילת המפתח התחילה, אתחל את המשתנים, הקצה לאחד מהם ערך אפס, והשני את ערך הזיהוי. לאחר מכן, ציין את תחילת מצב הציור הגרפי, הזן שורה של הטופס: initgraph (gdet, gm, ''). נקה את התקן התצוגה: cleardevice.
שלב 4
הגדר את צבע הרקע לציור ואת צבע הקו של האובייקטים שייצוירו. השתמש בהליכים SetBkColor (לבן) ו- SetColor (8) לשם כך. הצבע שיש לקבוע מסומן בסוגריים. בסך הכל, פסקל משתמש ב- 16 צבעים, וכל אחד מהם מצוין על ידי מספר או על ידי מילה מטבלת צבעים מיוחדת.
שלב 5
תארו לעצמכם גרסת מסך עם ציר ה- X משמאל לימין וציר ה- Y מלמעלה למטה. במקור מערכת הקואורדינטות הזו, כלומר בפינה השמאלית העליונה של המסך, נמצאת הקואורדינטה (0, 0). חשב את הקואורדינטות של המיקום הרצוי של האובייקט הגרפי הראשון. ציין את כל הקואורדינטות לציור דמויות במערכת מסוימת זו.
שלב 6
שרטט קו באמצעות קו ההליך (x, y, x1, y1), כאשר הקואורדינטות x, y הן נקודת ההתחלה של הקו, ו- x1, y1 הוא סופו. שנה את עובי הקו או הקלד במידת הצורך. לשם כך, השתמש בהליך SetLineStyle (0, 0, NormWidth). הפרמטר הראשון של ההליך יכול לשנות את הקו על ידי הפיכתו לקו מקף, או קו מנוקד - שנה מספר זה ל- 1 או 2. הפרמטר השלישי קובע את עובי הקווים. כברירת מחדל, הפרמטר NormWidth מוגדר תמיד - קווים דקים, עבור קווים עבים מוגדרים ThickWidth. סוג הקו שהשתנה ישרטט לאחר קריאה להליך זה.
שלב 7
הצב נקודה על המסך באמצעות נוהל PutPixel (x, y, color), כאן x ו- y הם גם הקואורדינטות של הנקודה, והצבע הוא צבעה. לפני שמציירים צורה סגורה, תוכלו להגדיר את מילויה. לשם כך, התקשרו להליך SetFillStyle (EmptyFill, 0), שם הפרמטר הראשון מציין את המילוי המוצק של הצורה, והשני מציין את צבע המילוי.
שלב 8
צורה מלבנית מצוירת באמצעות הליך מלבן (x, y, x2, y2) - הקואורדינטות קובעות את הפינות השמאליות העליונות והתחתונות של הצורה. כדי לצייר מעגל, כתוב את הקו מעגל (x, y, R), כאשר x, y, R הם הקואורדינטות של המרכז ורדיוס המעגל, גם בפיקסלים. אליפסה קשה יותר לצייר, פרמטרים רבים יותר משמשים לכך: אליפסה (x, y, BegA, EndA, RX, RY). כאן x, y הוא אותו מרכז האליפסה, ו- BegA ו- EndA מציינים את הזווית בה יש להתחיל ולסיים את הקשת האליפטית. המשתנים RX, RY קובעים את רדיוס האליפסה לאורך צירי x ו- y, בהתאמה.
שלב 9
אם יש לך צורה נתונה, שהכי קל לצייר אותה במקטעים נפרדים, השתמש בהליכים MoveTo ו- LineTo לשם כך. ראשית, הזז את הסמן הנוכחי לנקודה הרצויה: MoveTo (x, y). לאחר מכן צייר קו ממנו לנקודה הבאה LineTo (x1, y1) ושוב צייר קו LineTo ישר (x2, y2) וכן הלאה עד שתקבל את הצורה המקורית.
שלב 10
בסוף הציור בקוד התוכנית, סגור את מצב הגרפיקה עם השורה: closegraph. סיים את גוף התוכנית, כרגיל, במילה סוף. כעת ניתן לאסוף את הקוד ולהריצו לביצוע.
