רוטר - פסקל - לולאות - בעיה בתרגיל.. (די דחוף!)

האשכול	מחבר	תאריך כתיבה	מספר
כל פעם תחלק את המספר ב10	Yoni	22.01.04 22:14	1
לחא הבנתי ממש.. אתה יכול בבקשה לתת לי את	onissan	22.01.04 22:15	2
בבקשה, קבל	Yoni	22.01.04 22:34	3
אמממ השאלה שלי היא...	onissan	22.01.04 22:51	4
מה לא הבנת?	Yoni	22.01.04 22:53	5
אממ אבל ברגע שאני עושה mod10	onissan	22.01.04 22:56	6
אין END בלי BEGIN חוץ מכמה מקרים בודדים	Yoni	22.01.04 23:09	7
למה...	onissan	22.01.04 23:14	8
ממש לא	Yoni	22.01.04 23:18	9
אוקיי תודה רבה - תוכל לעזור לי בבקשה בתרגיל ה	onissan	22.01.04 23:24	10

Yoni
חבר מתאריך 26.5.02
2305 הודעות

22:14 22.01.04

1. כל פעם תחלק את המספר ב10
בתגובה להודעה מספר 0

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

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

onissan

חבר מתאריך 13.4.03
47809 הודעות, 10 פידבק

22:15 22.01.04

2. לחא הבנתי ממש.. אתה יכול בבקשה לתת לי את
בתגובה להודעה מספר 1

כל הלולאה?
או שאם ממש אתה רוצה לצאת גבר, אז את כל התרגיל? בכבוד שלך אחי?

תודה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Yoni
חבר מתאריך 26.5.02
2305 הודעות

22:34 22.01.04

3. בבקשה, קבל
בתגובה להודעה מספר 0

Var
num,mone,kamut,memu:integer;
Begin
readln(num);
memu:=0;
mone:=0;
kamut:=0;
repeat
if num mod 10>4 then
mone:=mone+1;
memu:=num mod 10+memu;
num:=num div 10;
kamut:=kamut+1;
until (num=0);
writeln(mone);
writeln(memu/kamut:2:2);
end.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

onissan

חבר מתאריך 13.4.03
47809 הודעות, 10 פידבק

22:51 22.01.04

4. אמממ השאלה שלי היא...
בתגובה להודעה מספר 3

אוקיי לקחנו את הספרה
איך עכשיו בלולאה אנחנו מעדכנים את המספר שנקלט
למספר החדש ללא הספרה הקודמת...
למשל לקחנו את 452
אז מה הפקודה לקחת את ה-2 מהמספר
ומה הפקודה לעדכן את המספר ל-45.. (שבעצם לא יקח לי שוב את המספר 2 כי כבר לא זקוקים לו)

תודה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Yoni
חבר מתאריך 26.5.02
2305 הודעות

22:53 22.01.04

5. מה לא הבנת?
בתגובה להודעה מספר 4

עם MOD 10 אתה מוציא את הספרה האחרונה של המפר
ועם DIV 10 אתה מקבל את המספר בלי הספרה האחרונה.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

onissan

חבר מתאריך 13.4.03
47809 הודעות, 10 פידבק

22:56 22.01.04

6. אממ אבל ברגע שאני עושה mod10
בתגובה להודעה מספר 5

אז המספר הופך רק ל-2 (במקרה שלנו)...
אמממ ועוד שאלה קטנה..
בלולאה קבועה (for... do...)
אני צריך לעשות begin אם אני צריך לעשות כמה משפטים?
או שאני יכול לעשות כמה משפטים ואז לסגור ב- end;
יעני ככה:

for i:=2 to 5 do
begin
writeln('asdfas');
readln(a);
end

או ככה:

for i:=2 to 5 do
writeln('asdfas');
readln(a);
end;

איך?

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Yoni
חבר מתאריך 26.5.02
2305 הודעות

23:09 22.01.04

7. אין END בלי BEGIN חוץ מכמה מקרים בודדים
בתגובה להודעה מספר 6

FOR הוא לא אחד מהם
(מזכיר לי "אין עשן בלי אש")

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

onissan

חבר מתאריך 13.4.03
47809 הודעות, 10 פידבק

23:14 22.01.04

8. למה...
בתגובה להודעה מספר 7

למשל ב- repeate until
או ב- while do
לא נראה לי שצריך begin...

כי יש להם מילים מוגדרות (until) שסוגרות אותם
לא?

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Yoni
חבר מתאריך 26.5.02
2305 הודעות

23:18 22.01.04

9. ממש לא
בתגובה להודעה מספר 8

ערכתי לאחרונה בתאריך 22.01.04 בשעה 23:18 בברכה, Yoni

רק בREPEAT יש UNTIL כי לריפיט יש תנאי יציאה - שם אין צורך בBEGIN כי אין END!
לWHILE יש תנאי כניסה ואין שום UNTIL
אם לא תרשים BEGIN ןEND בWHILE וFOR רק הפקודה הראשונה אחרי פקודת הלולאה תתבצע!!!

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

onissan

חבר מתאריך 13.4.03
47809 הודעות, 10 פידבק

23:24 22.01.04

10. אוקיי תודה רבה - תוכל לעזור לי בבקשה בתרגיל ה
בתגובה להודעה מספר 9

השני?

תודה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

דרג לפי חשיבות הנושא