אני יודע שפת C ופסקל. עכשיו אני רוצה ללמד את אח שלי תכנות(שישכיל מעט ולא יהיה בור).

עכשיו למדתי אותו תוך חצי שעה לולאות פקודות בסיסיות וכאלה והוא הבין די מהר למרבה הפתעתי.

עכשיו בשביל למשוך אותו לנושא רציתי להראות לו כמה דברים חמודים....אז כתבתי איתו תוך חמש דקות תוכנית שעושה משולש מכוכביות(על פי קלט ממשתמש)...ובשביל שהוא יאהב את זה עוד יותר החלטתי שאני מזיז את המשולש על המסך מלמעלה למטה....לשם כך כל פעם אני צריך להשהות את התוכנית שהוא יוכל לראות איך המשולש זז בעת ריצת התוכנית(אני יודע איך עושים את זה ב C).

אז אחרי סיפור כל כך ארוך איך עושים את זה בפסקל???

מקווה שנהנתם מהסיפור.

פשוט מאוד יש פרוצדורה מובנת שנקראת delay כאשר בסוגרים אתה נותן לה את מספר המלישניות אם אינני טועה שברצונך לבצע העטה.

לפרטים נוסים כנס ב help של Borland Turbo Pascal או ב Help של התוכנה בה אתה משתמש ואני בטוח שתמצא.

ניסיתי את הפקודה הזאת אך משום מה הקטע קוד לא עובד....כלומר אני לא רואה את המשולש יורד.

אני רואה רק אותו בפעם הראשונה ואח"כ רק הסמן יורד בלי שהמשולש יצטייר.

הנה התוכנית עזרה בבקשה

program one;

uses crt;

var

height,wide,i,j,s,z,q:integer;

begin

clrscr;

writeln('please insert the height of ^');

readln(height);

writeln('please insert the wide of ^');

readln(wide);

writeln;

for z:=1 to 20 do

begin

clrscr;

for q:=1 to z do

writeln;

for i:=1 to height do

begin

for j:=1 to wide do

write('*');

wide:=wide-2;

writeln;

for s:=1 to i do

write(' ');

end;

delay(100);

end;

end.

פשוט מאוד יש פרוצדורה מובנת שנקראת delay כאשר בסוגרים אתה נותן לה את מספר המלישניות אם אינני טועה שברצונך לבצע העטה.

delay(100) עושה השייה של עשירית שניה

delay(100) עושה השייה של עשירית שניה

אם אתה שם לב כבר השתמשתי בפונקצייה DELAY ובאמת עשיתי השהייה של עשירית שנייה...אבל משום אני לא מצליח להוריד את המשולש הזה כלפי מטה....

ורק הסמן יורד אבל אני לא רואה שום משושל יורד.

זה בגלל שהקוד שלך לא נכון

בלולאה הראשונה אתה מקטין את wide עד שהוא מתאפס.

בלולאה השניה הוא כבר מתחיל כ-0 ולכן זה לא מצייר לך כלום

זה בגלל שהקוד שלך לא נכון

בלולאה הראשונה אתה מקטין את wide עד שהוא מתאפס.

בלולאה השניה הוא כבר מתחיל כ-0 ולכן זה לא מצייר לך כלום

איך לא שמתי לב לזההה. טוב אני יתקן את זה.