רוטר - עזרה בפסקל. כיתה יא'...

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה בפסקל. כיתה יא'..."

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #12554	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 12554

AND1
חבר מתאריך 16.4.04
3069 הודעות

03:54 13.10.05

עזרה בפסקל. כיתה יא'...

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

בבקשה שכל אחד יתן לי משהו אחד לפחות !
תודה מראש !!!

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
קבל	Yoni	13.10.05 12:54	1
כמה שגיאות.....	black dave	14.10.05 06:19	2
אתה צודק	Yoni	14.10.05 15:51	3
תודה גם לך כמובן :-	Yoni	15.10.05 20:00	4

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

12:54 13.10.05

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

סכום ספרות וכמות זוגיות

mone:=0;
monez:=0;
while mispar<>0 do begin
if (mispar mod 10) div 2=0 then monez:=monez+1;
mone:=mone+(mispar mod 10);
mispar:=mispar div 10;
end;
האם בסדר עולה

ole:=true;
sif:=mispar mod 10;
mispar:=mispar div 10;
while mispar<>0 do begin
if sif<>(mispar mod 10)+1 then ole:=false;
sif:=mispar mod 10;
mispar:=mispar div 10;
end;
if ole then write('ole')
else write('lo ole');
האם ראשוני

rishoni:=true;
for i:=2 to trunc(sqrt(mispar)) do
if mispar div i=0 then rishoni:=false;
if rishoni then write('rishoni')
else write('lo rishoni');

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

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

black dave

06:19 14.10.05

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

ערכתי לאחרונה בתאריך 14.10.05 בשעה 06:21 בברכה, black dave

if (mispar mod 10) div 2=0 then monez:=monez+1;

בתרגיל הראשון, צריך להיות:

if (mispar mod 10) mod 2=0 then monez:=monez+1;
בתרגיל השני, הבדיקה שעשית היא בדיקה ספציפית לסדרה
חשבונית עולה בעלת מרווח קבוע של 1. ככה זה אמור להיות:

if sif<=(mispar mod 10) then ole:=false;

ואם אתה מחשיב את הסדרה:
1233456
גם כסדרה תקפה (כלומר, כולל שוויון בין מספרים) אז:

if sif<(mispar mod 10) then ole:=false;
ובתרגיל השלישי (טעות דומה לטעות הראשונה):

if mispar mod i=0 then rishoni:=false;

מקווה שעזרתי.

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

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

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

15:51 14.10.05

3. אתה צודק
בתגובה להודעה מספר 2

ערכתי לאחרונה בתאריך 14.10.05 בשעה 15:52 בברכה, Yoni

זה מה שקורה כשמסיימים את המקצוע ומפסיקים להתעסק איתו. :-)

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

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

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

20:00 15.10.05

4. תודה גם לך כמובן :-
בתגובה להודעה מספר 0

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

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