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

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

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

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

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

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

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

להצגת הצבע

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

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

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

READLN

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

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

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

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

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

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

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

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

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

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

את לולאת ה-while

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

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

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

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

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

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

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