pascal-syntax-Fehler, aber erwartet . gefunden?

program MouseInput;
Uses WinCrt,WinMouse, Graph;
Var GraphicsDriver, GraphicsMode :smallint;
x, y: smallint;
function GetMouseX: word;
function GetMouseY: word;
procedure InitMouse;
procedure DoneMouse;
Begin
     Writeln('Initialising Graphics, please wait...');
     GraphicsDriver := Detect;
     InitGraph(GraphicsDriver, GraphicsMode,'');
     begin
          InitMouse;
          Writeln('Move mouse cursor to square 10,10 to end');
          Repeat
                X:=GetMouseX;
                Y:=GetMouseY;
                Writeln('X,Y= (',X,',',Y,')');
          Until (X=9) and (Y=9);
          DoneMouse;
     end;
end.

Den Fehler pascal hinauszuwerfen, ist:
23 /4 Maus.pas
Fatal: Syntax error, ; erwartet aber . gefunden
Aber ich habe die richtige Anzahl von beginnt und endet so, weil es der Letzte ist, braucht es ein '.'

Alle das beste
Arran

InformationsquelleAutor Arran | 2012-11-18

  1. 1

    Ihnen fehlt das Hauptprogramm blockieren, und dann natürlich gleich für einige Ihrer Funktionen, Prozeduren. Die unten kompiliert wird, wie es versorgt die fehlenden Bausteine, aber natürlich wird es nichts zu tun.

    program MouseInput;
Uses WinCrt,WinMouse, Graph;
Var GraphicsDriver, GraphicsMode :smallint;
x, y: smallint;

function GetMouseX: word;
begin
end;
function GetMouseY: word;
begin
end;
procedure InitMouse;
begin
end;

procedure DoneMouse;
Begin
     Writeln('Initialising Graphics, please wait...');
     GraphicsDriver := Detect;
     InitGraph(GraphicsDriver, GraphicsMode,'');
     begin
          InitMouse;
          Writeln('Move mouse cursor to square 10,10 to end');
          Repeat
                X:=GetMouseX;
                Y:=GetMouseY;
                Writeln('X,Y= (',X,',',Y,')');
          Until (X=9) and (Y=9);
          DoneMouse;
     end;
end;

begin
end.
    Ich habe es geändert, und ich bekomme die gleiche Fehlermeldung wie vorher. (natürlich mit Funktion zwei Fehler)
    sorry, da war ein Punkt statt semicolumn, bitte versuchen Sie es erneut.
    Cheers, das läuft jetzt. 🙂 wie bekomme ich meine Funktionen und Prozeduren zu arbeiten ? Ich habe nur angefangen zu lernen, dass pascal vor kurzem so sprechen Sie bitte mich wie ich bin dumm. Alle die besten Arran
    Code in der main-block ist das, was ausgeführt wird. So setzen Sie code drin, die rufen andere Verfahren, etc.. Aber ich kann nicht wirklich machen Sie die ersten Schritte mit pascal, benötigen Sie ein Buch oder ähnliche Unterlagen. 🙂 BTW halte akzeptieren die Antwort, wenn es Ihre Frage beantwortet.
    tun wird. cheers, dass für

    InformationsquelleAutor Sertac Akyuz

  2. 0
    Function monotone(
    A : Int_Array; {array [1..20] of integer}
    n : integer ) {size of the defined lower}
      : integer ; {portion of A}

VAR
i, {index for current limseq}
j, {index for predecessors of current limseq}
maxj, {length of current longest predecessors subsequence}
pmax, {end of current limseq inA[1..i-1]}
curr, {=A[i]}
maxl : integer; {length of limseq ending at pmax}
length : Int_Array; {length [k] is the length of}
                    {limseq at k}
    begin {monotone}
        {<STAD> Initialization of parameter A}
        {<STAD> Initialization of parameter n}
        length[1]:=1;
        pmax:=1;
        maxl:=1;
        i:=2;
        while i<=n do
        begin
            curr:=A[1];
            if curr<A[pmax} then
                begin
                    max j:=1;
                    j:=1;
                    while j<={i-1} do
                        begin 
                            if A[j]<curr then
                                begin
                                    if maxj<length[j] then
                                       maxj:=length[j];
                                end;
                            j:=j+1;
                        end;
                    length[i]:=maxj+1;
                    if length [i]>maxl+1;
                    pmax:=i;
                end;
            end   
        ELSE {if curr<A[pmax]}
            begin
                maxl:=maxl+1;
                length[i]:=maxl;
                pmax:=i;
            end;

        monotone:=maxl;
        {<STAD> EXIT USE OF monotone (FUNCTION RESULT)}
        end; {monotone}

    InformationsquelleAutor Qeyla Redz

Schreibe einen Kommentar