Transcript
Page 1: Portflio Heitor Philip Balbino Cadogan

.Portfólio Heitor Philip Balbino Cadogan

AULA PRATICA 1

1-

pfrente(100)

pdireita(90)

pfrente(100)

2-

ul

pfrente(100)

pdireita(90)

pfrente(100)

un

pdireita(90)

pfrente(100)

3 -

ul

pfrente(100)

pdireita(90)

pfrente(100)

pdireita(90)

pfrente(100)

pdireita(90)

pfrente(100)

dr

Page 2: Portflio Heitor Philip Balbino Cadogan

4-

pdireita(90)

ul

pfrente(100)

pesquerda(120)

pfrente(100)

pesquerda(120)

pfrente(100)

dr

5-

pfrente(100)

ptras(100)

pdireita(90)

pfrente(100)

ptras(100)

pesquerda(180)

pesquerda(45)

pfrente(100)

6-

A)

pfrente(-100)

pfrente(50)

pdireita(-90)

pfrente(-50)

pfrente(100)

Page 3: Portflio Heitor Philip Balbino Cadogan

B)

pdireita(30)

pfrente(65)

pdireita(120)

pfrente(65)

pdireita(60)

pfrente(65)

pdireita(120)

pfrente(65)

dr

C)

ar

pdireita(30)

pfrente(40)

pdireita(120)

pfrente(40)

pesquerda(30)

pfrente(40)

pdireita(120)

pfrente(40)

pesquerda(30)

pfrente(40)

pdireita(120)

pfrente(40)

pesquerda(30)

Page 4: Portflio Heitor Philip Balbino Cadogan

pfrente(40)

pdireita(120)

pfrente(40)

dr

AULA PRÁTICA 2

7-

program TRIANGULOEQUILATERO; begin dr; pdireita(90); pfrente(100); pesquerda(120); pfrente(100); pesquerda(120); pfrente(100)

end.

8-

O erro de compilação está na ortografia,o certo seria “pdireita” e estava escrito “pdirita”

9-

O erro está no valor dos comandos pdireita(60) ,o certo seria pdireita(120)

Page 5: Portflio Heitor Philip Balbino Cadogan

10-

program trapezio;

begin pesquerda(30); ptras(100); pdireita(120); pfrente(100); pesquerda(60); pfrente(100); pesquerda(120); pfrente(200); dr

end.

11-

a)Sim.Pois ao ter um nome sugestivo ,pode gerar uma maior facilidade para encontrar o que está sendo procurado ,o contrário aconteceria se não fosse colocados nomes sugestivos no programa,iríamos ter que abrir cada um até chegar nos comandos desejados .

b)Não.O compilador PascaL verifica se os comandos do programa estão de acordo com a sintaxe da linguagem PascaL. Se não houver erros de sintaxe, o programa será traduzido para o código executável de máquina

AULA PRÁTICA 3

13-

program casa;

uses quadrado,triangulo;

begin

quadrado;

pdireita(90);

pfrente(100);

triangulo;

dr

end.

Page 6: Portflio Heitor Philip Balbino Cadogan

14-

Não é conveniente,pois ele deleta todos os programas que já foram compilados e por conseqüência teremos que compilar outra vez .

15-

No programas da casinha,pois não se pode alterar o que já foi feito;pois são referências .

16-

program barca;

uses trapez,triangulo;

begin

trapez;

pdireita(180);

pfrente(50);

pesquerda(90);

triangulo;

dr

end.

17-

program pratica16Cestrutura;

var ind:integer;

begin

pdireita(60);

for ind:= 1 to 4 do

begin

pesquerda(30);

pfrente(40);

pdireita(120)

Page 7: Portflio Heitor Philip Balbino Cadogan

pfrente(40);

end;

dr

end.

18-

program estrela;

uses estrelao;;

var ind:integer;

begin

for ind:= 1 to 12 do

begin;

estrelao;

end;

end.

19-

program equilatero;

var indice:integer;

begin;

dr;

pdireita(90);

pfrente(100);

for indice:= 1 to 2 do

begin;

pesquerda(120);

pfrente(100);

Page 8: Portflio Heitor Philip Balbino Cadogan

end;

end.

20-

A)

program triangulos;

uses equilatero;;

var indice:integer;

begin

for indice:=1 to 4 do

begin;

pdireita(60);

equilatero;

end;

end

B)

program triangulos2;uses equilatero;var indice:integer;

begin for indice:=1 to 6 do begin; equilatero; pdireita(90); end; end.

Page 9: Portflio Heitor Philip Balbino Cadogan

C)

program Soleil;uses equilatero;var indice:integer;

begin for indice:=1 to 5 do begin; equilatero; pdireita(180); pfrente(100); end; end.

21-

program quadrado;var indice:integer;

begin for indice:= 1 to 3 do begin; pfrente(100); pdireita(90); end; pfrente(100);

end.

Page 10: Portflio Heitor Philip Balbino Cadogan

22

A) program quadrados22A;uses quadrado;var indice: integer;

begin for indice:=1 to 4 do begin; quadrado; pfrente(100) end;

end.

B)program quadrados2;uses quadrado;var indice:integer;

begin for indice:=1 to 3 do begin; quadrado; pdireita(90); pfrente(100); pesquerda(90); un; pfrente(100); ul; end; quadrado; dr

end.

Page 11: Portflio Heitor Philip Balbino Cadogan

23-

program octogno;var indice:integer;

begin pdireita(22.5); for indice:= 1 to 8 do begin; pesquerda(45); pfrente(100); end; dr end.

24-

program circulo;var indice:integer;

begin ar; for indice:= 1 to 360 do begin; pfrente(1); pdireita(1); end; dr

end.