רוטר - שבת שלום לכולם, אני צריך עזרה בכתיבת תוכניות בפסקל

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

"שבת שלום לכולם, אני צריך עזרה בכתיבת תוכניות בפסקל"

גירסת הדפסה

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

אשכול מספר 11427

Reanimation
חבר מתאריך 1.8.02
281 הודעות, דרג אמינות חבר זה

10:39 27.11.04

שבת שלום לכולם, אני צריך עזרה בכתיבת תוכניות בפסקל

אז ככה... התוכנית הראשונה שאני צריך לכתוב היא:
כתוב תוכנית הקולטת 3 ציונים של תלמיד, לחשב ממוצע,וכתוב הערה בהתאם לממוצע. מעל 85 - יפה מאוד, בין 65 ל-85 - עברת ומתחת עליך לשפר את הישגיך.
התוכנית השנייה:
כתוב תוכנית הקולטת שני מספרים תלת ספרתיים שלמים וחיוביים, הצג את סכום הספרות והדפס את המספר עם הסכום הגדול יותר.

אני יודה מאוד למי שיעזור לי איתם!
תודה רבה!

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
אני לא יודע פסקל אבל אין כאן משהו מסובך	boynet	27.11.04 11:17	1
אני יודע שזה לא מסובך אבל בכל זאת לא מבין איך לעשות	Reanimation	27.11.04 11:47	2
זה הראשון חכה לשני	yuyu1	27.11.04 12:14	3
וואי תודה רבה אני יבדוק את זה!	Reanimation	27.11.04 12:26	5
למדתם לולאת for?	yuyu1	27.11.04 12:22	4
השני:	banana	27.11.04 12:31	6
זהו שלא בטוח שהם למדו לולאת for (ל''ת)	yuyu1	27.11.04 12:37	7
אם הם לא למדו אז:	banana	27.11.04 12:41	8
לא למדנו לולאות... for	Reanimation	27.11.04 12:42	9
תגובה 8 עזרה לך?	banana	27.11.04 12:52	10
וואי תודה זה בדיוק מה שהייתי צריך!	Reanimation	27.11.04 13:04	11

boynet

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

11:17 27.11.04

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

בראשון תקלוט שלוש מספרים תחבר אותם ותחלק ל3
ואז תעשה if המספר שקיבלת מעל 85 תרשום יפה מאוד
זה לא מסובך

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

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

Reanimation
חבר מתאריך 1.8.02
281 הודעות, דרג אמינות חבר זה

11:47 27.11.04

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

איך אני כותב בפסקל שאם הממוצע הוא בין 65-85 לכתוב עברת?
איך כותבים את זה?

תודה!

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

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

yuyu1

12:14 27.11.04

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

ערכתי לאחרונה בתאריך 27.11.04 בשעה 12:19 בברכה, yuyu1

אני מקווה שזה רץ כי כתבתי את זה בכתבן

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

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

Reanimation
חבר מתאריך 1.8.02
281 הודעות

12:26 27.11.04

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

אני מחכה לשני

תודה!

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

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

yuyu1

12:22 27.11.04

4. למדתם לולאת for?
בתגובה להודעה מספר 0

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

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

banana

12:31 27.11.04

6. השני:
בתגובה להודעה מספר 0

לא הרצתי אותה בפסקל.. אז תנסה

program t;
var
a,b: integer;
begin
sum:= 0;
readln(a,b);
for i:=1 to 3 do
begin
ahadot:= a mod 10;
sum:= sum+ahadot;
a:= a div 10;
end;
for g:=1 to 3 do
begin
ahadot:= b mod 10;
sum:= sum+ahadot;
b:= b div 10;
end;
if a>b then
writeln(a)
else
writeln(b);
readln;
end.

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

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

yuyu1

12:37 27.11.04

7. זהו שלא בטוח שהם למדו לולאת for (ל''ת)
בתגובה להודעה מספר 6

ערכתי לאחרונה בתאריך 27.11.04 בשעה 12:37 בברכה, yuyu1

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

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

banana

12:41 27.11.04

8. אם הם לא למדו אז:
בתגובה להודעה מספר 7

ערכתי לאחרונה בתאריך 27.11.04 בשעה 12:42 בברכה, banana

לגבי המשתנה A:

digit1:= a mod 10;
digit2:= a div 10 mod 10;
digit3:= a div 100;
sum1:= digit1+digit2+digit3;

לגבי המשתנה B:

d1:= b mod 10;
d2:= b div 10 mod 10;
d3:= b div 100;
sum2:= d1+d2+d3;

ואז לבסוף

If sum1>sum2 then
writeln(sum1)
else
writeln(sum2);

וזהו..
שיהיה לכם שבת שלום

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

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

Reanimation
חבר מתאריך 1.8.02
281 הודעות

12:42 27.11.04

9. לא למדנו לולאות... for
בתגובה להודעה מספר 6

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

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

banana

12:52 27.11.04

10. תגובה 8 עזרה לך?
בתגובה להודעה מספר 9

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

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

Reanimation
חבר מתאריך 1.8.02
281 הודעות

13:04 27.11.04

11. וואי תודה זה בדיוק מה שהייתי צריך!
בתגובה להודעה מספר 10

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

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