pascal erreur de syntaxe ; attendu mais . trouvé?

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.

L'erreur de pascal est jeter est:
23 /4 de la souris.pas
Fatal: erreur de Syntaxe ; attendu mais . trouvé
Mais j'ai le bon nombre de commence et se termine, car il est le dernier, il a besoin d'un '.'

Tout le meilleur
Arran

InformationsquelleAutor Arran | 2012-11-18
  1. 1

    Vous êtes absent le programme principal bloc, et puis bien sûr de même pour certains de vos fonctions de procédures. Le ci-dessous permettra de compiler car il fournit le manque de blocs, mais bien sûr, il ne va rien faire.

    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.
    • Je l'ai changé, et je reçois la même erreur qu'avant. (évidemment, avec deux fonction des erreurs)
    • désolé, il n'y a qu'un point au lieu de semicolumn, s'il vous plaît essayer de nouveau.
    • Acclamations qui fonctionne maintenant. 🙂 comment puis-je obtenir mes fonctions et de procédures de travail ? J'ai seulement commencé à apprendre le pascal récemment, donc s'il vous plaît parler à moi comme je suis stupide. Tous les meilleurs Arran
    • Code dans le bloc principal est ce qui s'exécute. Si vous placez le code dans il y qui peut appeler d'autres procédures, etc.. Mais je ne peux pas vraiment faire de vous obtenir a commencé avec pascal, vous avez besoin d'un livre ou de documents similaires. 🙂 BTW envisagez de accepter la réponse si elle répond à votre question.
    • va faire. bravo pour cette
    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