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

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

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

גירסת הדפסה

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

אשכול מספר 13718

TGR
חבר מתאריך 22.4.02
21097 הודעות, דרג אמינות חבר זה

17:54 18.11.06

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

ערכתי לאחרונה בתאריך 18.11.06 בשעה 21:14 בברכה, TGR

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

כתוב לולאה אשר בה מושווים ערכיהם של כל זוג איברים שכנים
({1}A עם {2}A, ו- {2}A עם {3}A וכך הלאה...)
ובה נספר מספר זוגות האיברים השכנים שערכיהם שווים זה לזה.
בלולאה השתמש במונה Counter.

תודה

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
במה נתקלת בדיוק? מה לא הבנת? :)	Nesher	18.11.06 18:19	1
אממ נכון חח עכשיו שמתי לב שנעלם...	TGR	18.11.06 20:17	2
אתה יכול לערוך את האשכול שלך...	Nesher	18.11.06 20:26	3
אני אתן לך קצת הסבר איך לפתור את זה :)	Nesher	18.11.06 21:20	4
מכתב.	IcqBoy	04.12.06 20:40	5
lnc(counter)=counter:=counter+1?	e_z	07.12.06 19:40	7
כן...	Nesher	07.12.06 21:04	8
גוף התשובה:	FireAngel	04.12.06 22:15	6

Nesher

חבר מתאריך 2.7.02
2 הודעות, 24 פידבק, 43 נקודות

18:19 18.11.06

1. במה נתקלת בדיוק? מה לא הבנת? :)
בתגובה להודעה מספר 0

אגב שרושמים סוגריים מרובעים זה נעלם תשים בסוגריים עגולים () או {}

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

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

TGR
חבר מתאריך 22.4.02
21097 הודעות, דרג אמינות חבר זה

20:17 18.11.06

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

ואני צריך את הכל |: חח

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

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

Nesher

חבר מתאריך 2.7.02
2 הודעות, 24 פידבק, 43 נקודות

20:26 18.11.06

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

שיראו מה התכוונת למרות שזה די ברור...

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

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

Nesher

חבר מתאריך 2.7.02
2 הודעות, 24 פידבק, 43 נקודות

21:20 18.11.06

4. אני אתן לך קצת הסבר איך לפתור את זה :)
בתגובה להודעה מספר 0

מקווה שאת הקוד תסתדר לרשום לבד
אתה עובר על המערך מהמיקום הראשון עד האחד לפני אחרון
ואז אתה משווה את התא הנוכחי עם התא הבא
אם נגיד האינדקס שלך הוא i אז בבדיקה אתה עושה
if A{i} = A{i+1} then
...

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

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

IcqBoy

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

20:40 04.12.06

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

ערכתי לאחרונה בתאריך 04.12.06 בשעה 20:41 בברכה, IcqBoy

Const
n = ;
Type
Ar_type=array{1..n} of integer;
Function Mone(Ar:Ar_type):Integer;
Var Counter,i:integer;
Begin
Counter:=0;
For i:=2 to n Do
If Ar{i-1}=Ar{i}
Then Inc(Counter);
Mone:=Counter;
End;

* סוגריי הציפור מוחלפים בפסקל בסוגרים מרובעים.

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

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

e_z

19:40 07.12.06

7. lnc(counter)=counter:=counter+1?
בתגובה להודעה מספר 5

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

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

Nesher

חבר מתאריך 2.7.02
2 הודעות, 24 פידבק

21:04 07.12.06

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

יש גם פעולה הפוכה Dec אני מאמין

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

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

FireAngel

22:15 04.12.06

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

Counter:=0;
For I:=1 to 7 do
begin
if (A[I] = A[I+1]) then counter:=counter+1;
end;

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

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