標識符未找到

我已經編寫了8個程序和2個函數的代碼。標識符未找到

program solar; 
var 
    solararray:array[1..1000000] of longint; 
    solartrue:array[1..1000000] of boolean; 
    solarnumber:array[1..1000000] of shortint; 
    n,counter,counter2,counter3,number,maxn:longint; 
    fin,fout:text; 

procedure Initialize; 
    begin 
    assign(fin,'solar.in'); 
    assign(fout,'solar.out'); 
    reset(fin); 
    rewrite(fout); 
    end; 

procedure FillArray; 
    begin 
    read(fin,n); 
    for counter:=1 to n-1 do 
     read(fin,solararray[counter]); 
    close(fin); 
    end; 

procedure First; 
    begin 
    if solararray[1] < solararray[2] 
    then solartrue[1]:=Test_Up(1) 
    end; 

procedure Other; 
    begin 
    for counter:=2 to n-1 do 
     begin 
     if Test_Up(counter) And Test_Down(counter) 
     then solartrue[counter]:=true 
     else solartrue[counter]:=false; 
     end; 
    end; 

procedure Last; 
    begin 
    if solararray[n] > solararray[n-1] 
    then solartrue[n]:=Test_Down(n) 
    end; 

function Test_Up (place : longint) : boolean; 
    var 
    istrue:boolean; 
    begin 
    for counter2:=1 to n-1 do 
     begin 
     if solararray[place] < solararray[counter2] 
     then istrue:=true 
     else; 
      begin 
      istrue:=false; 
      break; 
      end; 
     end; 
    end; 

function Test_Down (place : longint) : boolean; 
    var 
    istrue:boolean; 
    begin 
    for counter3:=place-1 downto 1 do 
     begin 
     if solararray[place] > solararray[counter3] 
     then istrue:=true 
     else; 
      begin 
      istrue:=false; 
      break; 
      end; 
     end; 
    end; 

procedure FindTrues; 
    begin 
    number:=0; 
    for counter:=1 to n do 
     begin 
     if solartrue[counter] 
     then 
      begin 
      number:=number+1; 
      solarnumber[number]:=solararray[counter]; 
      end 
     end; 
    end; 

procedure Select; 
    begin 
    if number=0 
    then write(fout,'NOT FOUND') 
    else FindBigger; 
    end; 

procedure FindBigger; 
    begin 
    maxn:=solarnumber[1]; 
    for counter:=1 to number do 
     begin 
     if solarnumber[counter] > maxn 
     then maxn:=solarnumber[counter] 
     end; 
     write(fout,maxn); 
    end; 

begin 
    Initialize; 
    FillArray; 
    First; 
    Other; 
    Last; 
    FindTrues; 
    Select; 
    close(fout); 
    halt(0); 
end.

solar.in如下所示：

當我運行程序五大誤區發生：

- solar.pas (28,28) Error: Identifier not found "Test_Up" 
- solar.pas (35,13) Error: Identifier not found "Test_Up" 
- solar.pas (35,36) Error: Identifier not found "Test_Down" 
- solar.pas (44,30) Error: Identifier not found "Test_Down" 
- solar.pas (97,17) Error: Identifier not found "FindBigger"

爲什麼它會發生，我該如何解決？

在此先感謝。

來源

2014-02-19 Konstantinos Kamaropoulos

定義您使用它的函數_before_。或者使用「前向」聲明。訂單很重要。 – matt

請勿將標籤信息放在您的問題主題中，特別是避免在其任何部分使用'[]'。（這是令人困惑的，因爲這就是'[On hold]'，'[Closed]'和'[Migrated]'問題的表達方式。請考慮括號內的保留字符，除非它們事實上與您問題的含義相關。）這裏的標籤系統工作得很好。謝謝。 :-) –

在pascal中，所有功能必須在使用之前聲明爲。將函數Test_Up，Test_Down和FindBigger移到文件的更高處。

來源

2014-02-19 22:04:53

標識符未找到

回答

相關問題