שלום,

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

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

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

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

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

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

WRITELN)X(

תנסה את זה

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

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

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

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

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

צודק טעות שלי

WRITELN)X(

תנסה את זה

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

תיקנתי את זה

מה זה Input?

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

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

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

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

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

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

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

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

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

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

זה לא עוזר

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

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

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

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

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

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

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

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

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