עבור לתוכן
  • צור חשבון
  • מי אנחנו?

    שלום אורח/ת!

     
    שים לב - על מנת להשתתף בקהילה שלנו, להגיב ולפתוח דיונים חדשים, עליך להצטרף כחבר רשום.

    החברים שלנו נהנים מיתרונות רבים, כולל היכולת להשתתף בדיונים, להנות מהגרלות ומבצעים לחברי האתר, ולקבל מידי שבוע את התכנים הבולטים שלנו ישירות במייל.

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

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

someone

חייב עזרה דחופה בפסקל!!

Recommended Posts

קודם כל השאלה:

נתון מערך באורך של N מספרים טבעיים. כתוב תוכנית המחשבת ומדפיסה את אורך תת-הסדרה הארוכה ביותר, אשר מופיעה גם בהתחלת המערך (החל מהאיבר הראשון) וגם בסופו (כלה באיבר האחרון). לדוגמא: אם המערך מכיל

7,4,5,3,1,9,2,7,4,5,3 התשובה היא 4, כי תת הסדרה הארוכה ביותר היא 7,4,5,3

זה דחוף כי זה למחר ולגמרי שכחתי מזה וזאת עבודה עם ציון..

מישהו יכול לעזור ומהר??

תודה מראש

שתף דיון


קישור ישיר להודעה
שתף באתרים אחרים

בבקשה: (אין לי פסקל, אז יכולות להיות כמה שגיאות סינטאקס פה ושם...)


Const
N = ?;
Var
Arr[0..N]: Integer
Found: integer;
ExWhile: Boolean;
I,J: Integer;
Begin
Found = 0;
cont = True
For i = 0..(N - 1) Do Begin
If (Arr[i]=Arr[N]) Then Begin
J = i;
ExWhile = True;
While ((J >= 0) And (ExWhile = True)) Do Begin
If (Arr[J]<>Arr[N+J-i]) Then
ExWhile=False;
J=J-1;
end;
If (ExWhile=True) Then
    Found = i;
end;
end;
writeln("The Answer Is: ",Found+1);
End.

שתף דיון


קישור ישיר להודעה
שתף באתרים אחרים

WOW!

זה נראה שאני לא ישרוד בזה אחרי השנה (כיתה י') :lol:

שתף דיון


קישור ישיר להודעה
שתף באתרים אחרים

×
  • צור חדש...
Back to top button
Close