0

私はパスカルでプログラムを書いています。しかし、どういうわけか、理由がわからないエラーが発生します。助けてくれませんか。

Program main;

Procedure A(n : longint);
Procedure B(n : longint);
    Procedure E(n : longint);
        Procedure D(n : longint);
        begin
        WriteLn ('In D. No Call...');
        end;

    begin
    WriteLn ('In E ');
    D(n);
    end;

begin
WriteLn ('In B ');
WriteLn ('Calling A Do -1 ',n);
if n = 1 
 then 
A(1);


end;




begin
  WriteLn ('In A ');
  B(n);
  WriteLn ('Calling B  ',n);
  if(n<1)
  then 
  begin
  C(n);
  end;
  end;

   begin
   A(1);
   end.

メインプロシージャからプロシージャAを呼び出そうとしています。次に、AがBを呼び出します。しかし、Cでコンパイルエラーが発生します：

Here are the errors I get:
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(32,14) Error: Identifier not found "C"
prog.pas(32,17) Error: Illegal expression
prog.pas(37,4) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
4

2 に答える 2

2

SteBの答えに追加するだけで、ここには潜在的に間違っていることがいくつかあります。

  • 名前の付いたプロシージャはありませんC
  • 名前をに変更Eしても、プロシージャがネストされているためにスコープ内にないために呼び出すことができないCため、コンパイラエラーが発生します（スコープ内にあります）。ネストされたプロシージャの静的スコープを参照してくださいACB
  • これに加えて、実行時にスタックオーバーフロー例外が発生する可能性がありA(1)ます。B(1)A(1)

例：名前を変更EしCてインデントする場合：

Program main;

Procedure A(n : longint);
    Procedure B(n : longint);
        Procedure C(n : longint);
            Procedure D(n : longint);
                begin
                    WriteLn ('In D. No Call...');
                end;
            begin
                WriteLn ('In C ');
                D(n);
            end;
        begin
            WriteLn ('In B ');
            WriteLn ('Calling A Do -1 ',n);
            if n = 1 
                then A(1);  (* Compiles OK, B is nested within A, but watch recursion *)
        end;
    begin
        WriteLn ('In A ');
        B(n);
        WriteLn ('Calling B  ',n);
        if(n < 1)
            then 
                begin
                    C(n); (* Doesnt compile, since C is nested within B and not in scope of A *)
                end;
    end;
begin
    (* You are in Main here *)
    A(1);
end.
于 2012-11-13T10:05:19.863 に答える
1

「手順C」を見逃したと思います。
「プロシージャC」がどこにも定義されていません。エラーは、プログラムもこのルーチンを認識できないことを示しています。

いくつかのより良いインデントは、物事をより明確にする可能性があります。ネストされたプロシージャを使用しています（実際にはベストプラクティスではありません）が、プロシージャAとBは同じレベルのインデントを持っています。

于 2012-11-13T08:52:06.057 に答える