Conversion C vers Pascal

[folkeu08]

bonjour,

Je cherche à convertir ce code du C en Pascal :

Code : Tout sélectionner


if (!GPIO.GP1)
      {
        GPIO.GP5=!GPIO.GP5;
        GPIO.GP4=!GPIO.GP5;
        while(!GPIO.GP1);
       }


J'essaye cela :

Code : Tout sélectionner


if not(GPIO.GP1) then
      begin        
        GPIO.GP5=not(GPIO.GP5);
        GPIO.GP4=not(GPIO.GP5);
        while(not(GPIO.GP1));
      end;


Un message me dit qu'un "do" devrait être trouvé à la place du ";"
François

[gwion]

Bonjour,

En Pascal, l'affectation n'est pas faite avec ":=" ?
GPIO.GP5:=!GPIO.GP5;

[venom]

Bonjour

Ça peut être ?

Code : Tout sélectionner

if not GPIO.GP1 then
begin
  GPIO.GP5 := not GPIO.GP5;
  GPIO.GP4 := not GPIO.GP5;
  while not GPIO.GP1 do
    ;
end;
 

@++