
Meu primeiro desenho no PascaL acredito ter sido um quadrado 100x100, durante a primeira aula de Programação em que tivemos acesso ao programa.
Já o cubo 3x3x3 ao lado (infelizmente sem cores) pode ser desenhado no PascaL através dos códigos abaixo.
program cubo;
begin
clrscr;
ul;
pfrente(120);
pdireita(90);
pfrente(120);
pdireita(90);
pfrente(120);
pdireita(90);
pfrente(120);
pdireita(45);
pfrente(60);
pdireita(45);
pfrente(120);
pdireita(90);
pfrente(120);
pdireita(45);
pfrente(60);
pdireita(135);
pfrente(120);
pdireita(45);
pfrente(60);
pdireita(180);
pfrente(60);
pesquerda(45);
pfrente(40);
pdireita(90);
pfrente(120);
pesquerda(90);
pfrente(40);
pesquerda(90);
pfrente(120);
pesquerda(45);
pfrente(60);
pesquerda(45);
pfrente(40);
pesquerda(45);
pesquerda(90);
pfrente(60);
pdireita(135);
pfrente(40);
pdireita(45);
pfrente(40);
pdireita(135);
pfrente(120);
pdireita(45);
pfrente(20);
pdireita(135);
pfrente(120);
pesquerda(90);
pfrente(120);
pdireita(135);
pfrente(20);
pdireita(45);
pfrente(120);
pdireita(135);
pfrente(40);
pdireita(45);
pfrente(40);
pesquerda(90);
pfrente(120);
pdireita(90);
pfrente(40);
pdireita(90);
pfrente(120);
pdireita(45);
pfrente(60);
pdireita(45);
pfrente(40);
pdireita(135);
pfrente(60);
dr;
end.