עזרה בביצוע משימה בפסקל

[ben060]

לא יודע בגלל זה אני שואל

יש למישהו פיתרון?

[Ghosthunter]

למה אתה שולח לtextbackgroung את X?(גם למעלה וגם למטה).

[Runny]

עכשיו ברור למה אתה באמת צריך לולאת For

אחרת התוכנית תהיה בLoop אינסופי.

את הReadln(x) תחליף בX:=X+1

[big foot]

אם כבר לולאת FOR שישתמש במונה הלולאה

להצגת הצבע

[pavelr]

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

[ben060]

תוכלו לכתוב לי את התוכנית ולהסביר אותה במילים כי נעלמתי לגמיר

[big foot]

או שאפשר להכניס

READLN

בסוף הלולאה ואז לילחוץ ENTER בין שינוי לשינוי

[ben060]

זהו, עשיתי את מה שרציתי הנה הפקודה

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

למה צריך גם את לולאת for וגם את לולאת do?

איך אפשר לקצר?

ואם אפשר הסבר מפורט?

[big foot]

clrscr
for x:=1 to 20 do
begin
  writeln(x)
  textbackground(x)
  readln
end 
readln

הינה כל פעם שלחץ על ENTER הוא יחליף צבע עד 20

[pavelr]

מה שאתה צריך לעשות זה למחוק את השורות הבאות:

textbackground שלפני הלולאה ואת ה-clrscr לאחריו

את לולאת ה-while

את השורה שבה אתה מגדיל את X ב-1

ותחליף מקומות בין ה-delay ל-сlrscr ואת השני תמחק.

וגם את ה-readln בסוף.

[ben060]

טוב אז תודה לכולם על התגובות המהירות ועל העזרה.

מכאן ואלאה זה כבר תפקיד שלי להבין את המשימה.

כי אם לא אז מה זה שווה.

שוב תודה לעונים ושיהיה ערב טוב.