PROSAGA码农传奇-pascal-Pascal将函数更改为过程

<div class =“post-text”itemprop =“text”>
  
    显然你没有得到这个，所以我会给出一个提示：
  
  
    转动你的功能
  
   <pre>
 <code>
 function FeldMinimumPos (Feld : tFeld; von, bis:tIndex): tIndex;

</code>
 </pre>
  
    进入程序：
  
   <pre>
 <code>
 procedure FeldMinimumPos(feld: TFeld; von, bis: TIndex; var pos: TIndex);
{ finds the position of the minimum inside the field between von and bis,
 1 <= von <= bis <= FELDGROESSE }
var
 j: TIndex;
begin
 pos := von;
 for j := von + 1 to bis do
 if feld[j] < feld[pos] then
 pos := j;
end; { FeldMinimumPos }

</code>
 </pre>
  
    并称之为：
  
   <pre>
 <code>
 FeldMimimumPos(EingabeFeld, i, FELDGROESSE, MinPos);

</code>
 </pre>
  
    你应该没事
  
  <HR />
  
    但是，有几点评论：
  
  <UL>
    <LI>
      您的排序方式不是最佳，即使只有5个元素的字段。了解选择排序甚至冒泡排序（只是google）。
    </LI>
    <LI>
      正确格式化代码。这很难读。把评论放在他们自己的行或
      
        后
      
       代码。把每一个
       <code>
 end
 </code>
       在它自己的行上并正确对齐它，不要把它放在上一个命令之后。对齐变量声明，并在自己的行上启动循环。等等...
    </LI>
    <LI>
      你忘记了
       <code>
 const
 </code>
       在...之上
       <code>
 FELDGROESSE
 </code>
       宣言。您发布的代码无法编译。始终发布实际代码，从编辑器复制并粘贴（逐字）到您的问题（或答案）的编辑框中。不要从内存中发布代码或在屏幕或纸张上键入代码。
    </LI>
  </UL>
</DIV>