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

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

"שאלה בפסקל - כיתה י'"

גירסת הדפסה

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

אשכול מספר 7479

ArAgorn

16:10 05.12.03

שאלה בפסקל - כיתה י'

המורה רוצה שנכתוב תוכנית שכותבת את כל המספרים המושלמים מאחד עד מאה.
מה כוונה למספרים מושלמים? מספר שסכום כל המחלקים שלו נותן את המספר עצמו ( חילוק מספר באותו מספר לא נחשב, 6:6 ).
דוגמה:
6- 1+2+3 כל המחלקים של שש נותנים את המספר.
מישהו יודע?

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
מכתב	eli2006	05.12.03 17:53	1
לא, כתבת תוכנית שמתייחסת רק לדוגמה עם 6	ArAgorn	05.12.03 18:36	2
נתתי לך דוגמא ואתה תמשיך	eli2006	05.12.03 19:15	3
בתוכנית אין קלט, ברגע ההפעלה יש פלט של	ArAgorn	05.12.03 20:22	4
אני יודע סי ולא פסקל אז אני רק אסביר לך איך	madboy2k	05.12.03 22:46	5
תודה, זה באמת הפלט שאמור לצאת, אבל לא הצלחתי	ArAgorn	06.12.03 14:17	6
מישהו יודUP?	ArAgorn	06.12.03 17:45	7
תמיד אני מבטיח לעצמי שאני לא אתן קוד מלא	liranr	06.12.03 20:55	8
תודה רבה! היית בכיוון אבל לא עליתי על הקטע	ArAgorn	06.12.03 23:32	9
הוא סתם בשביל לחסוך בזמן ריצה	liranr	07.12.03 14:38	10
אבל עשיתי עם NUM-1 וזה לא עבד לי...	ArAgorn	07.12.03 19:07	11
אלה הערות	liranr	07.12.03 21:59	12
עדיין לא עובד... אין לי מושג מה הבעיה, אבל	ArAgorn	07.12.03 22:20	13

eli2006

17:53 05.12.03

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

for i:=1 to 100 do
if (i mod 2=0 and i mod 3=0 and i mod 6=0)
then writle(i);

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

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

ArAgorn

18:36 05.12.03

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

והפלט לא נכון.

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

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

eli2006

19:15 05.12.03

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

לא כל כך הבנתי את השאלה

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

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

ArAgorn

20:22 05.12.03

4. בתוכנית אין קלט, ברגע ההפעלה יש פלט של
בתגובה להודעה מספר 3

כל אותם מספרים שהמתחלקים שלהם ( חוץ מעצמם ) וסכומם נותן את
המספר- מספר מושלם.

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

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

madboy2k
חבר מתאריך 31.3.02
2150 הודעות, דרג אמינות חבר זה

22:46 05.12.03

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

לעשות את זה :
תעשה לולאה עם i מ1 עד 100
בתוכה עוד לולאה מ1 עד לj-1
עכשיו אתה עושה תנאי בתוך הלולאה -
אם i%j=0(% זה שארית בסי לא יודע איך זה בפסקל נראה לי mod ) אז הוא מוסיף את המספר לסכום
אחרי הלולאה של j הוא בודק אם הסכום שווה לi ואם כן הוא מדפיס אותו
ככה זה יראה בסי :

#include<stdio.h>
void main()
{
int sum=0,i,j;
for(i=1;i<=100;i++)
{
for(j=1;j<i-1;j++)
{
if(i%j==0)
sum=sum+j;
}
if(sum==i)
printf("%d\n",i);
sum=0;
}
}
הפלט יצא לי 6 ו28

מקווה שעזרתי לך

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

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

ArAgorn

דרג אמינות חבר זה

14:17 06.12.03

6. תודה, זה באמת הפלט שאמור לצאת, אבל לא הצלחתי
בתגובה להודעה מספר 5

ליישם בפסקל...

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

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

ArAgorn

דרג אמינות חבר זה

17:45 06.12.03

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

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

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

liranr

דרג אמינות חבר זה

20:55 06.12.03

8. תמיד אני מבטיח לעצמי שאני לא אתן קוד מלא
בתגובה להודעה מספר 7

כי לא לומדים מזה כלום, ותמיד אני נשבר:
program perfect (input,output);
var
sum, num , i: integer;
begin
for num:=1 to 100 do
begin
sum := 0;
for i:=1 to (num div 2) do
if num mod i = 0 then
sum := sum + i;
if sum=num then (* number if perfect - print it! *)
write (num,' ');
end;
end.

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

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

ArAgorn

דרג אמינות חבר זה

23:32 06.12.03

9. תודה רבה! היית בכיוון אבל לא עליתי על הקטע
בתגובה להודעה מספר 8

עם NUM DIV 2...

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

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

liranr

דרג אמינות חבר זה

14:38 07.12.03

10. הוא סתם בשביל לחסוך בזמן ריצה
בתגובה להודעה מספר 9

num-1 היה עובד אותו דבר

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

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

ArAgorn

דרג אמינות חבר זה

19:07 07.12.03

11. אבל עשיתי עם NUM-1 וזה לא עבד לי...
בתגובה להודעה מספר 10

ערכתי לאחרונה בתאריך 07.12.03 בשעה 19:15 בברכה, ArAgorn

אני יודע שהשינוי של DIV 2 עושה בסופו של דבר אותה פעולה .
שאלה לי, מה זה הסוגריים ששמת בסוף אחרי הTHEN לפני WRITE
זה הכרחי?

הנה מה שעשיתי, לא נותן שום פלט.
http://n.rotter.net/User_files/nor/3fd3603f228ed977.txt

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

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

liranr

דרג אמינות חבר זה

21:59 07.12.03

12. אלה הערות
בתגובה להודעה מספר 11

ניתן לתחום אותן בין סוגרים מסולסלים {} או בין סוגרים עם כוכבית (* *)
כמובן אפשר לוותר עליהן.

הבעיה בשלך היא שהחלפת בין המשתנים. במקום השורה
if num mod number = 0 then
צריך להיות
if number mod num = 0 then

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

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

ArAgorn

דרג אמינות חבר זה

22:20 07.12.03

13. עדיין לא עובד... אין לי מושג מה הבעיה, אבל
בתגובה להודעה מספר 12

תודה בכל מקרה.

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

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