שתי שאלות ממש בסיסיות ב-pascal

[matliv]

שתי שאלות ממש בסיסיות ב-pascal

אני יודע שזה חובבני בהחלט, אבל אני חובבן, אז תבינו... 1. איך משתמשים ב - function? האם ניתן לשכתב את התוכנית הבאה כך שיהיה שימוש ב - function? ;var num:integer begin ;(´?writeln(´which number ;(readln(num ;num:=num*2-1 ,´ writeln(´new number is ;( num ;readln .end 2. איך מציירים את הקו הכי פשוט בעולם (בעזרת lineto)? זה אומר שאני צריך להפעיל איזה initgraph או משהו כזה. אולי מישהו יכול לכתוב תוכניתונת לציור קו כזה?

 

[matliv]

אנא

 

[selalerer]

ימי ה-PASCAL שלי היו בכיתה ח´ אבל

ממה שאני זוכר initgraph זו הפונקצייה להעביר את המסך למודים הגרפיים. הפרמטרים הם graphicMode ו- graphicDevice. אני זוכר שאני השתמשתי בפרמטרים 2 ו- 9 (לא זוכר באיזה סדר). תסתכל בעזרה של היחידה הגרפית, שם בטח רשום מה לשלוח ל-initgraph, ושמות של פונקציות אחרות (לציור קווים, ריבועים ושאר הדברים...).