רוטר - צריך עזרה במערכים חד מימדים כיתה י פסקל

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

"צריך עזרה במערכים חד מימדים כיתה י פסקל"

גירסת הדפסה

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

אשכול מספר 6119

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

21:40 13.02.04

צריך עזרה במערכים חד מימדים כיתה י פסקל

אחים יש לי שאלה הבאה
שאלה 4
כתוב תוכנית שקולטת למערך חד מימדי Temp טמפרטורות יומיות שנמדדו במשך 30 יום. על התוכנית:
1. להדפיס את כל הטמפרטורות.
2. לחשב ולהדפיס את הטמפרטורה הממוצעת במחצית הראשונה של החודש (כולל 15 בחודש)
3. לחשב ולהדפיס את הטמפרטורה הממוצעת במחצית השניה של החודש.
4. למצוא את הטמפרטורה הגבוהה מבין שתי הטמפרטורות שחושבו בסעיפים הקודמים, להדפיס את הטמפרטורה ולהודיע באיזו מחצית נמצאה טמפרטורה זו.
איך הייתם רושמים את זה?

שאלה 2
כתוב תוכנית הקולטת 20 מספרים שלמים למערך numbers. על התוכנית:
1. להדפיס את אברי המערך.
2. למצוא את האיבר בעל הערך הקטן ביותר ואת מיקומו במערך.
3. להדפיס את סכום האיברים השליליים במערך.
4. להדפיס את ממוצע האיברים החיוביים במערך.
גם את זה אותו דבר

11. לדני יש סביבון של חנוכה עליו האותיות נ ג ה פ, דני משחק בסביבון וסופר כמה פעמים נפל הסביבון על האות ג .
כתוב תוכנית המגרילה 10 פעמים בין האותיות נ ג ה פ ומציגה כפלט את מספר
הפעמים שהוגרלה האות ג.
איך עושים פה ראנדום.?

תודה מראש

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
שאלה 4	דני15	13.02.04 21:49	1
שאלה 2	דני15	13.02.04 21:52	2
תודה את הגתובה ה1 לא ממש הבנתי	Crazy Lion	13.02.04 21:56	3
ב-11 יש דרישה לעשות עם מערך ?	דני15	13.02.04 21:56	4
אין דרישה אבל זאת שאלה מדף שאלות של מערכים	Crazy Lion	13.02.04 21:56	5
אז	דני15	13.02.04 22:06	7
תרגיל 4 תוכנית	דני15	13.02.04 22:03	6
תודה אחי יש לי עוד שאלה קטנה	Crazy Lion	13.02.04 22:26	8
לא הבנתי מה עשית ולמה	דני15	13.02.04 22:29	9
צריך מהאיבר האחרון לראשון !! ולא מהראשון	Crazy Lion	13.02.04 22:33	10
כמו שאמרתי. מהסוף להתחלה. מ-25 עד 1.	דני15	13.02.04 22:35	11
תודה אח שלי	Crazy Lion	13.02.04 22:40	12
מכתב	דני15	13.02.04 22:43	13
אחי יש לי שאלת על min ו max	Crazy Lion	13.02.04 23:04	14
אני מקווה שלא אכפת לך שאני אענה	Yoni	14.02.04 00:03	15
תודה אחי :-)	Crazy Lion	14.02.04 10:09	16
איך אני בודק אם מספר חוזר	Crazy Lion	14.02.04 11:09	17
לא הבנתי. אתה יכול להסביר אולי?	Yoni	14.02.04 13:20	18
הסבר	Crazy Lion	14.02.04 14:02	19
לי אמרת משהו אחר	דני15	14.02.04 14:22	20
מכתב	דני15	14.02.04 14:26	21
אני מודה לכל מי שעזר לי באשכול הזה	Crazy Lion	14.02.04 14:57	22
אחים זאת השאלה	Crazy Lion	14.02.04 15:27	23
הנה	Yoni	14.02.04 16:54	26
חבר, יש לך טעות קטנה	Yoni	14.02.04 16:44	24
תודה	Crazy Lion	14.02.04 16:54	25
צודק הוא יבדוק את הראשון עם הראשון	דני15	14.02.04 17:42	27
=) תודה אחים אולי עוד שאלה קטנה	Crazy Lion	14.02.04 18:56	28
הסתדרתי כבר תודה	Crazy Lion	14.02.04 21:42	29

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

21:49 13.02.04

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

אני לא אתחיל לכתוב לך פה עכשיו תוכניות כי מן הסתם אני אעשה המון טעויות, אבל אני אסביר לך את הרעיון ותוכל לממש אותו לתוכנית.
אני הייתי לוקח שני משתני עזר. אחד שיסכום את הטמפרטורות בחלק החודש הראשון והשני לחלק החודש השני.
תריץ לולאת FOR מ-1 עד 30 ותתחיל לסכום את האיברים. אם תגיע לאיבר ה-15, כלומר לחצי השני של החודש, תסכום למשתנה השני.
אל תשכח לאפס אותם לפני.
תדפיס את הממוצע - את הסכומים חלקי 15.
4. פשוט משפט IF.

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

21:52 13.02.04

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

1. לולאה מ-1 עד 20 ו-write למערך במקום i ככה שהוא עובר תא ותא ומדפיס.
2. טריק פשוט מאוד. אתה מכניס למשתנה MAX את האיבר הראשון. רץ על המערך ומשווה אם איבר כלשהו קטן ממנו תציב אותו ב-MAX ואת המיקום שלו במשתנה אחר. אחרי זה תדפיס את התא במיקום המסוים.
3. עבור על המערך עם לולאת FOR. אם איבר כלשהו קטן מאפס הוסף למשתנה מסוים שתגדיר מראש ותאפס.
4. כנ"ל אבל אם גדול מאפס.

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

21:56 13.02.04

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

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

21:56 13.02.04

4. ב-11 יש דרישה לעשות עם מערך ?
בתגובה להודעה מספר 0

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

21:56 13.02.04

5. אין דרישה אבל זאת שאלה מדף שאלות של מערכים
בתגובה להודעה מספר 4

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

22:06 13.02.04

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

דחוף ת'אותיות למערך ותעשה RANDOM עד 4 ופנה לתו הזה למערך וסכום אם התא שווה ל-ג'

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

22:03 13.02.04

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

program tragil_4;
var
temp:array{1..30} of integer;
first,second:integer;

begin
first:=0;
second:=0;
writeln('הכנס 30 טמפרטורות למערך');
for i:=1 to 30 do
readln(temp{i});
for i:=1 to 30 do
writeln(temp{i});
for i:=1 to 30 do
begin
if i<15 then
first:=first+temp{i} else
second:=second+temp{i};
end;
writeln('טמפרטורה ממוצעת בתחילת החודש',first/15);
writeln('טמפרטורה ממוצעת בחלק השני של החודש',second/15);

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

22:26 13.02.04

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

4. כתוב תוכנית הקולטת 25 איברים לתוך מערך VEC ומציגה כפלט את המערך מהאיבר האחרון ועד האיבר הראשון.
זאת השאלה
פשוטה פשוט הפסקל לא מריץ לי תראה מה עשיתי
program vech;
uses wincrt;
const
low=1;
high=25;

var
vec:arrayof real;
vec_2:arrayof real;
i:integer;
begin
writeln('mis');
for i:= low to high do
begin
readln(vec);
vec_2:=vec downto vec;
end;
for i:= low to high do
writeln(vec_2);
end.

מה אתה אומר?

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

22:29 13.02.04

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

פשוט קלוט ת'מספרים למערך ורוץ מ-25 עד 1 ותדפיס ת'ערך... לא הבנתי למה אתה מסתבך

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

22:33 13.02.04

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

לאחרון

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

22:35 13.02.04

11. כמו שאמרתי. מהסוף להתחלה. מ-25 עד 1.
בתגובה להודעה מספר 10

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

22:40 13.02.04

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

ערכתי לאחרונה בתאריך 13.02.04 בשעה 22:41 בברכה, Crazy Lion

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

22:43 13.02.04

13. מכתב
בתגובה להודעה מספר 12

ערכתי לאחרונה בתאריך 13.02.04 בשעה 22:44 בברכה, דני15

program hahahha;
var vec:array{1..25} of integer;
i:integer;
begin
writeln('הכנס 25 איברים');
for i:=1 to 25 do
readln(vec{i});
writeln('הפוך:');
for i:=25 downto 1 do
writeln(vec{i});
end.
הסוגריים המסולסלות הן מרובעות

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

23:04 13.02.04

14. אחי יש לי שאלת על min ו max
בתגובה להודעה מספר 13

5. כתוב תוכנית המגדירה מערך ZIP בגודל 13 וקולטת לתוכו 10 משכורות של פועלים. מחשבת ומציבה באיבר ה 11 את ממוצע המשכורות באיבר ה 12 את המשכורת הנמוכה ובאיבר ה 13 את המשכורת הגבוהה.
program zipl;
uses wincrt;
const
low=1;
high=13;
var
zip:array of integer;
i,zover,min,max:integer;

begin
zover:=0;
min:=0;
max:=0;
writeln('maskoret');
for i:=1 to 10 do
begin
readln(zip);
zover:=zover+zip;
end;
zip:=zover/10;
for i:=1 to 10 do
begin
min:=zip;
max:=zip;
if zip>min then
zip:=min;
if zip>max then
zip:=max;
end;
writeln(zip,'');
end.

איך התוכנית??
יענתו בליינד יש לי טעות ב min ו max מה אהת אומר.?? המ אני עושה.?

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות, דרג אמינות חבר זה

00:03 14.02.04

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

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

אבל יש לי כמה תיקונים

program zipl;
var
zip:array {1..13} of real;
i:integer;

begin
zip{11}:=0;
writeln('maskoret');
for i:=1 to 10 do
begin
readln(zip{i});
zip{11}:=zip{11}+zip{i};
end;
zip{11}:=zip{11}/10;
zip{12}:=zip{1};
zip{13}:=zip{1};
for i:=2 to 10 do
begin
if zip{i}<zip{12} then
zip{12}:=zip{i};
if zip{i}>zip{13} then
zip{13}:=zip{i};
end;
end.

לא ביקשו ממך להדפיס בסוף, אז אני לא רואה סיבה.
וחבל להגדיר סתם משתנים מיותרים.
*המערך חייב להיות REAL! (אחרת אי אפשר לעשות ממוצע)

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

10:09 14.02.04

16. תודה אחי :-)
בתגובה להודעה מספר 15

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

11:09 14.02.04

17. איך אני בודק אם מספר חוזר
בתגובה להודעה מספר 16

במערך ואם הוא חוזר להציג הודעה ולהפסיק את הסריקה

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות, דרג אמינות חבר זה

13:20 14.02.04

18. לא הבנתי. אתה יכול להסביר אולי?
בתגובה להודעה מספר 17

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

14:02 14.02.04

19. הסבר
בתגובה להודעה מספר 18

יש לי מערך בעל 10 מקומות
המשתמש הכניס למערך מספרים
אני רוצה לבדוק אם יש מספר שחוזר על עצמו במערך כלומר לקחת תא 1 ולבדוק אותו ביחס לשאר המערך ואם יש אותו ערך בתא 1 ובתא 8 אז לעצור את הבדיקה
ולרשום הודעה ש הערך חזור על עצמו וזהו
!

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

14:22 14.02.04

20. לי אמרת משהו אחר
בתגובה להודעה מספר 19

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

14:26 14.02.04

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

program test;
var a:array{1..10} of integer;
i,j:integer;
begin
writeln('הכנס 10 מספרים למערך');
for i:=1 to 10 do
readln(a{i});
for i:=1 to 10 do
for j:=1 to 10
if a{i}=a{j} then
writeln('המספר',a{i},'מופיע יותר מפעם אחת');
end.

הוא עובר מספר ומספר ואומר אם הוא מופיע עוד פעם עם לולאה נוספת על המערך והשוואה לכל מספר.

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

14:57 14.02.04

22. אני מודה לכל מי שעזר לי באשכול הזה
בתגובה להודעה מספר 21

ובכלל
לדני ליוני
תודה רבה אתם גדולים

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

15:27 14.02.04

23. אחים זאת השאלה
בתגובה להודעה מספר 22

כתוב תוכנית הקולטות 30 מספרים שלמים למערך SOD
וקולטת מספר ובודקרת אם הואנמצא במערך. בפעם הראשונה שהתוכנית פוגשת במספר מוידעה על המצאותו (הסריקה תפסק ברגע שנמצא האיבר)

עכשיו השיטה של הלולאה המקוננת לא נראת לי טובה יענתו צריך להשכלל אותה טיפה כי שהרצתי זה לא הראה לי מה שרציתי

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות, דרג אמינות חבר זה

16:54 14.02.04

26. הנה
בתגובה להודעה מספר 23

var
sod:array {1..30} of real;
i,mis:real;
a:boolean;
begin
for i:=1 to 30 do
begin
writeln('hahnes mispar');
readln(sod{i});
end.
writeln('hahnes mispar');
readln(mis);
i:=0;
repeat
i:=i+1;
if sod{i}=mis then
a:=true;
until (i=30) or (a=true);
if a then writeln('hamispar nimza');
end.

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות, דרג אמינות חבר זה

16:44 14.02.04

24. חבר, יש לך טעות קטנה
בתגובה להודעה מספר 21

ערכתי לאחרונה בתאריך 14.02.04 בשעה 16:47 בברכה, Yoni

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

program test;
var a:array{1..10} of integer;
i,j:integer;
begin
writeln('הכנס 10 מספרים למערך');
for i:=1 to 10 do
readln(a{i});
for i:=1 to 10 do
for j:=i+1 to 10
if a{i}=a{j} then
writeln('המספר',a{i},'מופיע יותר מפעם אחת');
end.

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

16:54 14.02.04

25. תודה
בתגובה להודעה מספר 24

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

דני15
חבר מתאריך 3.8.02
47437 הודעות, 8 פידבק, -3 נקודות

17:42 14.02.04

27. צודק הוא יבדוק את הראשון עם הראשון
בתגובה להודעה מספר 24

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

18:56 14.02.04

28. =) תודה אחים אולי עוד שאלה קטנה
בתגובה להודעה מספר 27

אני צריך את השאלה הבאה פתורה מסודר פתרתי אותה אבל לא מסודר
כתוב תוכנית הקולת 20 נמספרים שלמים למערך numbers על התוכנית
>להדפיס את כל המספרים
>למצוא את האיבר בעל הערך הקטן ביותר שזה מה שאנ צריך!!
>להדפיס את סכום האיברים השליליים במערך
>להדפיס את הממוצע האיברים החיובים במערך!!
>

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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

Crazy Lion

חבר מתאריך 1.7.02
19328 הודעות, 9 פידבק, 16 נקודות

21:42 14.02.04

29. הסתדרתי כבר תודה
בתגובה להודעה מספר 28

מילוי סקרים בתשלום למי שמעונין ,
משלם בזמן וקל להגיע ליעד :
https://goo.gl/EJh6V2

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

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