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

[ben060]

שלום,

יש לי בעיה בפסקל, אי רוצה לעשות פלט שבו כל הצבעים יהיו על המסך ויתחלפו כל שנייה

אני לא מצליח לעשות זאת.

מישהו יכול לכוון אותי איך לבצע את המשימה.

[big foot]

אתה צריך לשנות את הצבע של הטקסט בתוך הלולאה

כי זו לולאה אין סופית שכוללת בתוך רק את השורה הראשונה שבאה אחריה

כלומר כל הזמן יתבצע השורה של

WRITELN)X(

תנסה את זה

while (x=x)and (x<>-1) do 
begin
  writeln("input x")
  readln x
  textcolor(x)
end
readln

אז כאשר תכניס לו 1- הוא יצאה מהלולאה

וכל עוד X לא שווה ל 1- אז הוא יראה לך את הצבע של הטקסט

[trxman]

ו...למה נראה לי לא השתמשת ב graph?, איך הוא ישתמש בפרוצדורה textbackground?

[Ghosthunter]

למה הוספת שם x=x? זה לא עושה כלום.

[big foot]

צודק טעות שלי

WRITELN)X(

תנסה את זה

while (x<>-1) do 
begin
 writeln("input x")
 readln x
 textcolor(x)
end
readln

תיקנתי את זה

[ben060]

מה זה Input?

תראו זה לא עובד?

מישהו יכול לכתוב לי את כל המשימה?

[big foot]

תן לX ערך התחלתי נגיד X=0

[ben060]

עדיין לא עובד.

אני יודע שעושים את זה עם לולאת for אבל לא ממש יוצא לי.

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

הנה מה שעשיתי עד עכשיו:

שוב- אני בטוח שזה אמור להיות עם לולאת for.

אשמח לתשובות.

[שניצל]

אתה צריך לקרוא ל-clrscr אחרי שאתה קורא ל-textbackground, אחרת המסך לא יצבע.

[ben060]

זה לא עוזר

שאני מפעיל את התוכנה הוא מביא מסך שחור עם הספרה 0

[שניצל]

ואז אתה צריך להכניס מספר וללחוץ enter.

מה ציפית שיקרה?

[ben060]

זה עובד לי אבל לא כמו שרציתי

רציתי שאוטומטי זה יחליף לי צבעים בלי ללחוץ על כלום.

[big foot]

תלחץ על מספר ואז ENTER ותיראה מה קורה

[ben060]

הוא מחליף צבע ואז אני לוחץ מיספר אחר ואז הוא מחליף צבע אחר ושוב ושוב ושוב

רציתי שאוטומטי זה יחליף לי צבעים בלי ללחוץ על כלום.

[שניצל]

אז איך ציפית לעשות את זה באמצעות readln בדיוק?