Pascal
|
BASIC Apascalado
|
BASIC estruturado
para ZX Spectrum
|
Nota
|
REPEAT
...
UNTIL condição;
|
REPEAT variável
...
UNTIL condição;
|
FOR i = 0 TO 0.5 STEP 0
...
LET i = condição
NEXT i
|
REPEAT
(a variável só pode ter 1 caracter)
(cuidado: a variável não pode ser usada por outro ciclo ao mesmo tempo)
|
WHILE condição DO
BEGIN
...
END
|
WHILE condição DO variável
...
ENDWHILE
|
FOR i = NOT( condição ) TO 0.5 STEP 0
...
LET i = NOT ( condição )
NEXT i
|
WHILE
(não é necessário "BEGIN")
|
IF condição1 THEN
BEGIN
...
END
ELSE IF condição2 THEN
BEGIN
...
END
ELSE
BEGIN
...
END
|
IF condição1 BEGIN variable
...
ELSEIF condição2
...
ELSE
...
ENDIF
|
LET i = condição1 : REM IF-BEGIN
FOR i = i TO 0.5 STEP -1 : REM IF-BEGIN
...
NEXT i : REM ENDIF
LET i = (i<0)*-1 + (i=0)*( condição2 ) : REM ELSEIF
FOR i=i TO 0.5 STEP -2 : REM ELSEIF
...
NEXT i : REM ENDIF
LET i = (i=0) : REM ELSE
FOR i = i TO 0.5 STEP -2 : REM ELSE
...
NEXT i : REM ENDIF
|
IF ... BEGIN ... END
(sometimes ':' is not enough)
|
nome_rotina(arg)
|
LET arg1 = arg
PROC NomeDaRotina
|
LET arg1 = arg
GO SUB NomeDaRotina
|
chamada de procedimento
|
PROCEDURE nome_rotina
BEGIN
...
END
|
DEFPROC NomeDaRotina
...
ENDPROC
|
: REM NomeDaRotina
...
RETURN
|
declaração de procedimento
|
t := nome_rotina(arg)
|
LET arg1 = arg
GO SUB NomeDaRotina
LET t = resultado
|
LET arg1 = arg
GO SUB NomeDaRotina
LET t = resultado
|
chamada de função
|
FUNCTION nome_rotina (arg:REAL):REAL;
BEGIN
...
END;
|
DEFPROC NomeDaRotina
LET v = arg1
...
LET resultado = v
ENDPROC
|
: REM NomeDaRotina
LET v = arg1
...
LET resultado = v
RETURN
|
declaração de função
|
total_laranjas := 0
|
LET TotalLaranjas = 0
|
LET TotalLaranjas = 0
|
Notação da linguagem Java.
(Lembrar que um array tipo string e uma variável string
não podem ter o mesmo nome - ao contrário das variáveis numéricas)
|
total_laranjas := 0
|
LET total laranjas = 0
|
LET total laranjas = 0
|
Podes usar espaços (eles são ignorados)
Aviso: o emulador BASinC remove os espaços.
(Apenas variáveis numéricas podem ter mais do que 1 caracter.)
|
