delphi4arab منتديات دلفي للعرب

نسخة كاملة : اختبار فقط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هناك مثال اجرته شركة برمجيات نريد ان نحسبه ذهنياً فقط .

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

كود :
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
كود :
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
اها يعني الاجابة هي ماهو السطر الناقص وليس ماهي نتيجة الاجراء
السطر الناقص على ما أعتقد هو 
max_num := nums[i]
(23-04-2020, 02:31 PM)ghostdz كتب : [ -> ]السطر الناقص على ما أعتقد هو 
max_num := nums[i]

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