pascal

    -1

    1答えて

    誰かが私に言うことができる: Error: Invalid procedure or function reference - Pascal PROGRAM ITVS_19_1; TYPE FUNC = FUNCTION(x:REAL):REAL; VAR a, b, k1, k2:REAL; FUNCTION f(x:REAL):REAL; BEGIN f:=SQR(COS(

    -2

    1答えて

    有効な列挙型のデータ型をユーザーから取得します。私はこのようにしてみました。 FPC Compilerは、 '<>'の関係演算子を使用してバイナリデータ型のみを比較すると述べています。親切にも 'Cham_Cham'の状態を '_'の代わりにSpaceを使用することができます 私はOOPには行かないでしょう。これが唯一の方法なら、私は行くでしょう。 (私の意見では、それはOOPの道なしで行うことが

    1

    2答えて

    私は現在、宿題として "noughts and crosses"を作っています。私はTButtonオブジェクトの10×10の配列を生成しますが、私は彼らが呼び出されるかわからないし、それらを制御する方法: Form1: TForm1; pole: array[1 .. 10, 1 .. 10] of TButton; h:TButton; for i:=1 to 10 do

    0

    1答えて

    私はまだ初心者ですので、愚かな間違いであれば私を許してください。 2からnまでの素数を生成するプログラムを書いて、nはユーザ定義です。私はプログラムの始めにnを知らないので、後で動的配列とsetlength(n)を作成したい。 program D401; type arr = array of int64; var x : int64; a

    0

    1答えて

    procedure ReadFromURL(theURL: string); var httpClient: TFPHTTPClient; FileContents: String; theStatusCode: integer; begin httpClient := TFPHTTPClient.Create(nil); try F

    -5

    1答えて

    my code 私は10000の下で友愛数を生成するためのプログラムを作成しようとしているが、私はCtrlキー+ F9キーを押した後、それは私がそれをどのように修正すればよいの終了コード201で終了しましたか?

    -1

    1答えて

    Refereceを作成する方法はありません(そこにはありますか?)私は別のポインタへのポインタでそれを行う必要があります。これは私にエラーを与える: type PNode = ^TNode; TNode = record char: char; next: PNode; children: PNode; end; PPNode

    -1

    1答えて

    このツリーは、子ノードを持つノードで構成されており、子ノードへのポインタのリンクリスト(=ノードは無制限の数の子を持つことができます)で表されます。しかし、リンクされたリストは、同じノードタイプで再び表されます。実際にはrootノードと のピアはnextにありますが、それはむしろフォレスト(=より多くのツリー)です。すべてのノードは文字を表し、それらのツリーのすべてのパスは文字列です(入力では '

    1

    1答えて

    この問題があります。この関数の最後に イム: FUNCTION ToString(Liste : Pokemon) : String; VAR RES : STRING; BEGIN ClrScr; TextBackground(Green); Writeln('DER POKEDEX:'); Writeln; WHILE (Liste <

    1

    1答えて

    以下のプログラムでは、WinTypes,WinProcsとなり、SW_NORMALの目的は何ですか? program ex; uses Wincrt,WinTypes, WinProcs; var ch:string; procedure exe (che:string); begin writeln('ecrire ch'); readln(che);