AULA PRÁTICA 1

•

Outros

0

Diego Ottoni

25/09/2012

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você também pode ser Premium ajudando estudantes

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você também pode ser Premium ajudando estudantes

E aí, curtiu este material?

Ajude a incentivar outros estudantes a melhorar o conteúdo

Gostou desse material? Compartilhe! 🧡

Programação I

55.531 Materiais compartilhados

Baixe o app para aproveitar ainda mais

Leia os materiais offline, sem usar a internet. Além de vários outros recursos!

Prévia do material em texto

AULA PRÁTICA 1 18/08/2008
Aluna: Ana Carolina Arantes Araújo Turma: A1
Pascal Logo
2 - Apostila Introdução Pascal – Mód. I
Lista de Desafios
1.1 pfrente(-100) 
 pdireita(-90)
 pfrente(100) 
1.2 pfrente(-100)
 pdireita(-90) 
 pfrente(100)
 pdireita(90)
 un
 pfrente(100)
1.5 pfrente(-100)
 pdireita(90)
 pfrente(100)
 pdireita(-180)
 pfrente(100)
 pdireita(-45)
 pfrente(100)
1.6 pfrente(-100)
 pfrente(50)
 pdireita(-90)
 pfrente(-50)
3 a) program quesera;
 var i:integer;
 begin
 ul;
 for i:= 1 to 4 do
 begin
 pfrente(100);
 pdireita(90);
 end;
 dr; 
 end.
 b) program ueh;
 var i:integer;
 begin
 ul;
 pdireita(30);
 for i:=1 to 3 do
 begin
 pfrente(100);
 pdireita(120);
 end;
 dr; 
 end.
� EMBED PBrush ���
_1281156650/ole-[42, 4D, 62, 18, 01, 00, 00, 00]