اختبار فقط

[Delphi4Us]

هناك مثال اجرته شركة برمجيات نريد ان نحسبه ذهنياً فقط .

بلغة جافا سكريبت

كود :

1 function find_max(nums) { 2 let max_num = Number.NEGATIVE_INFINITY; // smaller than all other numbers 3 for (let num of nums) { 4 if (num > max_num) { 5 // (Fill in the missing line here) 6 } 7 } 8 return max_num; 9 }

بلغة بايثون

كود :

1 def find_max(nums): 2 max_num = float("-inf") # smaller than all other numbers 3 for num in nums: 4 if num > max_num: 5  # (Fill in the missing line here) 6 return max_num

بلغة سي

كود :

nt find_max(int nums[], int len) 2 { 3 int i, max_num = nums[0]; 4 for (i = 1; i < len; i ++) 5 if (nums[i] > max_num) 6 // (Fill in the missing line here) 7 return max_num; 8 }

لم يكن هناك مثال بالدلفي ولكني وضعت مثالا

كود :

function TForm1.find_max(nums: array of integer; len: integer): integer; var i, max_num : integer ; begin i:= nums[0]; max_num:= nums[0]; while i < len do begin if (nums[i] > max_num) then Result:=   max_num; i:=i+1; end;

مع العلم لم افهم ماذا يقصدون باملاء السطر الناقص هنا ولكن اعتقد ان الاجابة هي الاولى
هل يمكنك الاجابة على السؤال من الخيارات التالية بدون استخدام اي برنامج وانما بالتفكير فقط:

num = max_num
max_num += 1
max_num = num
max_num += num

[merouane]

كود :

function find_max(nums: array of integer): integer; var   i, max_num: integer; begin   max_num := nums[0];   for i := 0 to length(nums)-1 do     if (nums[i] > max_num) then       max_num := nums[i];  // السطر الناقص   result := max_num; end;

---

الإجابة هي (إذا كانت القيمة الحالية من الجدول أكبر من القيمة max_num الحالية =>max_num يأخذ قيمة num الحالية)
max_num = num

[Delphi4Us]

اها يعني الاجابة هي ماهو السطر الناقص وليس ماهي نتيجة الاجراء

[ghostdz]

السطر الناقص على ما أعتقد هو 
max_num := nums[i]

[merouane]

السطر الناقص على ما أعتقد هو 
max_num := nums[i]

 الإجابة في الأصل تتبع السؤال الذي حدد الخيارات
وليس بلغة باسكال/دلفي - والإجراء الذي كتبته أنا هو ليفهم الجميع الخوارزمية.