לפי מה שהבנתי התוכנית אמורה לכתוב מ108 עד 1 בלי קשר למה שאתה עושה ואז אם אתה מכניס את המספר הזה אז היא תעשה את זה שוב (מ108 עד 1)

מה שתוכנית שלך עושה זה שאחרי כל מספר (108,107...) צריך לכתוב את המספר הזה ואז הוא כותב שוב 108,107 וכו'...

אני חושב שלתוכנית כזאת הוא התכוון:

program lost;
var i,a: integer; b:longint;
begin
for i:=108 downto 1 do
  writeln(i);
writeln('>:');
readln(b);
if b=4815162342 then
  for i:=108 downto 1 do
   writeln(i)
  else
   writeln('boooooom');
end.

ד"א , ראיתי שהשתמשתם בfor i:=108 to 1 ורציתי לדעת אם זה באמת עובד (אין לי כוח לבדוק), כי לפי מה שאני יודע כשהמספרים יורדים צריך לכתוב downto במקום to...

1.זה מה שהתכוונתי,בגלל זה לא הבנתי מה Burton רצה

2.כן זה עובד

עריכה:

שתי בעיות:

1.אין דיליי למספרים אז זה מראה את כל המספרים ביחד(ואני לא יכול להוסיף,מה שכן יכלתי להוסיף כשזה היה for i:1 to 108 do)

2.זה רושם לי שהמספר 4813142342 הוא קוד יצאה...וזה לא ממשיך איחרי שאני רושם את זה

זה כן ממשיך

אתה פשוט לא רואה את זה כי הוא מסיים לכתוב את כל המספרים וסוגר את חלון התוכנית כי אין לו מה לעשות אחרי זה...

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

כי כרגע it makes no sense

זה קצת בעיתי להסביר כי צריך לראות את הסדרה אבודים כדי להבין בדיוק אבל...

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

זה כן ממשיך

אתה פשוט לא רואה את זה כי הוא מסיים לכתוב את כל המספרים וסוגר את חלון התוכנית כי אין לו מה לעשות אחרי זה...

אבל הוא לא רושם את כל המספרים(גם אם אני רושם readln;) וגם הוא לא יוצא בדרך רגילה(הוא רושם קוד יצאה 106 ויוצא) :s05:

אה.....

אז זה מה שאתה צריך.

program lost;
var i,a: integer; b:longint;
begin
repeat
begin
	for i:=108 downto 1 do
	begin
  		writeln(i);
		delay(1000);
	end;
	writeln('>:');
	readln(b);
end;
until b<>4815162342
writeln('boooooom');
delay(5000);
end.

אה.....

אז זה מה שאתה צריך.

program lost;
var i,a: integer; b:longint;
begin
repeat
begin
	for i:=108 downto 1 do
	begin
  		writeln(i);
		delay(1000);
	end;
	writeln('>:');
	readln(b);
end;
until b<>4815162342
writeln('boooooom');
delay(5000);
end.

אני מאמין שזה מה שהתכוונתי אבל למה יש delay5000 בסוף?

אני מאמין שזה מה שהתכוונתי אבל למה יש delay5000 בסוף?

כדי שתראה את ה-boooom

לא עדיף לשים

readln;?

גם אפשרות