רוטר - שאלה נוספת בפסקל

האשכול	מחבר	תאריך כתיבה	מספר
לולאה אחת	liran007	22.01.04 23:42	1
אני אעזור לך	Yoni	22.01.04 23:42	2
רגע ואיך אני עושה את הלולאה של ה-0 עד 9 לא הב	onissan	23.01.04 00:07	4
אתה עושה ככה	Yoni	23.01.04 00:11	5
דבר איתי באיסיקיו, שלחתי לך בפרטי את המספר	danielbr	22.01.04 23:44	3
אוקיי עבדתי על התוכנית וזה מה שיצא:	onissan	23.01.04 00:22	6
מה יצא?	Yoni	23.01.04 00:25	7
לא נכון	Yoni	23.01.04 00:33	8
טוב. הלכתי לישון	Yoni	23.01.04 00:39	9
תודה	Yoni	23.01.04 16:16	10
תודההה שכחתי :)	onissan	23.01.04 22:15	11

liran007

23:42 22.01.04

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

תעשה בדיקה בכל סיבוב של הMOD 10 של המספר ואז תחליף את המספר בdiv10 של המספר.
ככה בכל ריצה של הלולאה
תנאי הלולאה הוא כאשר MOD10 של המספר שווה ל0

תוכנית מאד פשוטה, 3 שורות.
בהצלחה

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

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

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

23:42 22.01.04

2. אני אעזור לך
בתגובה להודעה מספר 0

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

Var
mun,num,kamut,sifra:integer;
Begin
mun:=0;
yesh:=false;
readln(sifra);
readnl(num);
kamut:=1;
repeat
if not num mod 10=sifra then
begin
mun:=mun+num*kamut;
kamut:=kamut*10;
end;
num:=num div 10;
until num=0;
if num=mun then
write('hasifra lo haita')
else
writeln(mun);
end.

עכשיו תשמע - לא עשיתי בדיקה לקלט של הספרה - שהוא אכן ספרה בין 0 ל9
אם צריך מוסיפים לולאה של REPEAT שלא יותאים ממנה עד דSIFRA הוא ספרה

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

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

onissan

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

00:07 23.01.04

4. רגע ואיך אני עושה את הלולאה של ה-0 עד 9 לא הב
בתגובה להודעה מספר 2

הבנתי! חחח זה הקטע שלא הבנתי וזה הקטע שלא רשמת לי אחי =\

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

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

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

00:11 23.01.04

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

במקום הREAD של הSIFRA אתה עושה:

repeat
readln(sifra);
until (sifra>0) and (sifra<10);

זה מה שלא הבנת ובשביל זה רשמתי לך את כל התוכנית?
|A|

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

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

danielbr

23:44 22.01.04

3. דבר איתי באיסיקיו, שלחתי לך בפרטי את המספר
בתגובה להודעה מספר 0

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

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

onissan

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

00:22 23.01.04

6. אוקיי עבדתי על התוכנית וזה מה שיצא:
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 23.01.04 בשעה 00:27 בברכה, 0;[BR

writeln('the number is not in the secend number');
End.

איך?

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

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

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

00:25 23.01.04

7. מה יצא?
בתגובה להודעה מספר 6

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

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

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

00:33 23.01.04

8. לא נכון
בתגובה להודעה מספר 6

ערכתי לאחרונה בתאריך 23.01.04 בשעה 00:35 בברכה, Yoni

קודם כל התוכנית מקצרת את המספר ורושמת כל פעם אם הספרה הופיעה או לא הופיעה וזה לא נכון! הספרה יכולה להופיע בכל מקום.
חוץ מזה נראה לי יותר הגיוני לרשום כל פעם שהספרה מופיע.
התוכנית גם לא תרשום כל פעם את כל המספר.
בקיצור המון טעויות.
תעשה טבלת מעקב ותראה.
וריפיט רושמים בלי E בסוף
לא הסתפקת בתשובה שלי???!!!