Benvindos de novo ao nosso Concurso BASIC Apascalado 2024.
Desta vez o Zé Oliveira decidiu usar um compilador de linguagem Pascal. Mas, como dá muito trabalho criar um compilador com as características necessárias, o Zé Oliveira usou aquele superpoder dos portugueses chamado "desenrasca". E a solução foi adaptar o compilador ZX BASIC de Boriel para funcionar com Pascal. O truque é acrescentar algumas linhas para o compilador ZX BASIC de Boriel traduzir Pascal para BASIC.
Eis aqui um pequeno exemplo que podem colocar no ficheiro "Demo1.bas":
' PROGRAM Demo1
#define BEGIN REM
#define VAR DIM
#define INTEGER LONG
#define REAL FLOAT
#define TYPE AS
#define PROCEDURE SUB
PROCEDURE Hello
VAR i TYPE INTEGER
BEGIN
CLS
FOR i = 1 TO 5
PRINT "Hello!"
NEXT i
END PROCEDURE
BEGIN PROGRAM
Hello
END PROGRAM
Há uma maneira de evitar escrever as linhas de conversão de Pascal para BASIC: Basta ter um ficheiro separado com essas linhas e invocar o ficheiro com o comando:
#include "pascal.h"
Se fizerem download do compilador no link abaixo, não será necessário criar esse ficheiro porque ele já está incluído. Atenção: esse ficheiro não vem com a distribuição original do compilador.
Eis como fica a nova versão do programa que podem gravar no ficheiro "Demo2.bas":
#include "pascal.h"PROGRAM Demo2
PROCEDURE Hello
VAR i TYPE INTEGER
BEGIN
CLS
FOR i = 1 TO 5
PRINT "Hello!"
NEXT i
END PROCEDURE
BEGIN PROGRAM
Hello
END PROGRAM
O único problema deste método é que algumas linhas do ficheiro "pascal.h" geram avisos. O melhor é ignorar esses avisos...
Agora só falta compilar o programa.
Se não tiverem o compilador devem fazer download dos ficheiros aqui.
Depois, basta descompactar o ZIP no local que desejarem. Nota: as instruções neste artigo são para o sistema operativo Windows, mas é semelhante para outros sistemas operativos.
Para compilar o programa devem executar o comando seguinte na pasta/directoria onde está o compilador:
ZXBC -taB Demo2.bas
Se não gostarem de correr este comando na linha de comandos da janela COMMAND/CMD podem escrever o comando no ficheiro "Demo1.BAT" e correr o ficheiro BAT a partir da janela do explorador do Windows.
Sobre o programa do post anterior, podem ver a listagem e correr o programa online aqui.
Para fazer download dos programas de demonstração, clicar aqui.
Para mais informação sobre esta linguagem, clicar aqui.
Quem estiver interessado em participar no concurso, pode ler o regulamento aqui. É uma parceria entre Arca Lusitana, Planeta Sinclair, Museu LOAD ZX e Teknamic Software.
uses crt;
ResponderEliminarThis is not Borland Pascal.
ResponderEliminarIt's Sinclair Pascal. :)