חייב עזרה דחופה בפסקל!! - תכנות - HWzone פורומים
עבור לתוכן
  • צור חשבון

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


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.

קישור לתוכן
שתף באתרים אחרים

ארכיון

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

×
  • צור חדש...