一千萬個為什麽

搜索

在Ada中查找數組中的最大值

我正在做一個Ada程序,有很多不同的函數搞亂數組,我得到了所有的排序函數,我現在停留在使用循環不變量來檢索數組中的最大值來設計該函數的循環。任何幫助?

最佳答案

簡單地循環整個數組怎麽樣?

像這樣的東西:

function Get_Maximum (Of : My_Array_Type) return Element_Type is
   Maximum : Element_Type := Of (Of'First);
begin
   for I in Of'First + 1 .. Of'Last loop
      if Of (I) > Maximum then
         Maximum := Of (I);
      end if;
   end loop;
   return Maximum;
end Get;

如果數組為空,則會引發異常,但如果需要這些情況,則將其作為讀者的練習。

轉載註明原文: 在Ada中查找數組中的最大值