../images/Emo32.gifשאלה קטנה
מקווה שגיל וענת לא יסקלו אותי באבנים ויעשו לי באן מהפורום , אבל שי לי שאלה קטנה במחשבים, שבפורום שפות תכנות לא הסכימו לענות עליו , כי חשבו שזה שיעורי בית (וזה בעצם התכוננות למבחן) נתון לי אלגוריתם מסויים ואני צריך למצוא את הסיבוכיות שלו (דרך פונקציית זמן הריצה שלה). אודה לכם אם תוכלו לענות לי על השאלה. האלגוריתם :
Procedure Kar_Li_Add_Order (Var Maagar : Maagar_Type; Name : Name_Type; Order : Order_Type); Var I , K : Integer; Begin For I := 1 To Maagar.N_Clients Do Begin If Maagar.Clients.Name = Name Then Begin If (Maagar.Clients.N_Order = 10) Then For K := 2 To 10 Do Begin Maagar.Clients.Orders[K-1] := Maagar.Clients.Orders[K]; Maagar.Clients.Orders[10] := Order; End Else Begin Maagar.Clients.Orders[Maagar.Clients.N_Order+1] := Order; Inc(Maagar.Clients.N_Order); End; End; End; End;
תודה מראש לכולם!!