AULA PRÁTICA 2

Prévia do material em texto

AULA PRÁTICA 2 25/08/2008
Aluna: Ana Carolina Arantes Araújo Turma: A1
1 - Comando Rotule:
program cruzeiro;
var x:integer;
begin
	clrscr;
	pdireita(45);
	for x:= 1 to 4 do
	begin
		rotule ('CRUZEIRO CAMPEÃO!!!');
		pdireita(90);
	end;
dr;
end.
Use de Unit:
program circ;
var m:integer;
begin
	for m:= 1 to 360 do
	begin
		pfrente(1);
		pdireita(1); 
	end;
end.
program circulos;
uses circ;
var p:integer;
begin;
	clrscr;
	for p:= 1 to 36 do
	begin;
		circ;
		pdireita(10);
	end;
end.
program circulos1;
uses circ;
var p:integer;
begin;
	clrscr;
	for p:= 1 to 36 do
	begin;
		circ;
		pdireita(30);
	end;
end.
program circulos2;
uses circ;
var p:integer;
begin;
	clrscr;
	for p:= 1 to 36 do
	begin;
		circ;
		pdireita(60);
	end;
end.
Uso de Procedimento:
program desenhos;
var valor:integer;
procedure quadrado (lado:integer);
var z:integer;
begin
	for z:= 1 to 4 do
	begin
		pfrente(lado);
		pdireita(90);
	end;
end;
procedure quadduplo (lado:integer);
var x:integer;
begin
	for x:= 1 to 2 do
	begin
		quadrado(lado);
		pfrente(lado/5);
	end;
end;
begin 
	valor:=100;
	quadDuplo (valor);
	ptras (2*valor/5);
	pesquerda(90);
	pfrente(valor/5);
	pdireita(90);
	quadduplo(valor);
	dr;
end.
2 - Exercícios da Apostila Introdução Pascal – Mód. I
5.3
Program triangulo; 
Var i:integer;
Begin
	Pdireita(30);
	For i:= 1 to 3 do
	Begin
		Pfrente(100);
		Pdireita(120);
	End;
	Dr;
End.
program tris;
uses triangulo;
var x:integer;
begin
	for x:= 1 to 5 do
	begin 
		triangulo;
		pfrente(100);
	end;
dr;
end.
5.4
program octeto;
var lado, valor: integer;
begin
	valor:= 50;
	pdireita(22.5);
	for lado:= 1 to 8 do
	begin
		pfrente(valor);
		pdireita(45);
	end;
	dr;
end.
7.2 
a) 
program tria;
var j:integer; 
procedure triangulo;
var i:integer;
begin
	pdireita(30);
	for i:= 1 to 3 do
	begin
		pfrente(100);
		pdireita(120);
	end;
end;
begin 
	for j:= 1 to 4 do
	begin
		triangulo;
		pdireita(60);
	end;
	dr;
end.
b) 
program trib;
var j:integer; 
procedure triangulo;
var i:integer;
begin
	pdireita(30);
	for i:= 1 to 3 do
	begin
		pfrente(100);
		pdireita(120);
	end;
end;
begin 
	for j:= 1 to 4 do
	begin
		triangulo;
		pfrente(100);
	end;
	dr;
end.
c) 
program tric;
var j:integer; 
procedure triangulo;
var i:integer;
begin
	pdireita(30);
	for i:= 1 to 3 do
	begin
		pfrente(100);
		pdireita(120);
	end;
end;
begin 
	for j:= 1 to 4 do
	begin
		triangulo;
		pfrente(100);
		pdireita(60);
	end;
	dr;
end.
 
d) 
program trid;
var j:integer; 
procedure triangulo;
var i:integer;
begin
pdireita(30);
	for i:= 1 to 3 do
	begin
		pfrente(100);
		pdireita(120);
	end;
end;
begin 
	for j:= 1 to 4 do
	begin
		triangulo;
		pfrente(100);
		pesquerda(60);
	end;
	dr;
end.
7.5
program retangulo;
var menor, maior:integer;
procedure ret(menor, maior:integer);
begin
	pfrente(menor);
	pdireita(90);
	pfrente(maior);
	pdireita(90);
	pfrente(menor);
	pdireita(90);
	pfrente(maior);
end; 
begin 
	readln(menor);
	readln(maior);
	ret(menor,maior);
end. 
7.6
program casinha;
procedure ret(x,y:integer);
begin
	pfrente(x);
	pdireita(90);
	pfrente(y);
	pdireita(90);
	pfrente(x);
	pdireita(90);
	pfrente(y);
end; 
begin
	ret(100,100);
	un;
	pfrente(20);
	pdireita(90);
	pfrente(100);
	ul;
	ret(20,140);
	un;
	pdireita(90);
	pfrente(20);
	pdireita(90);
	pfrente(10);
	pesquerda(60);
	ul;
	pfrente(120);
	pdireita(120);
	pfrente(120);
	un;
	pdireita(30);
	pfrente(120);
	pdireita(90);
	pfrente(50);
	pdireita(90);
	ul;
	ret(70,30);
	un;
	pfrente(40);
	pdireita(90);
	pfrente(50);
	ul;
	ret(30,30);
	dr;
end.
� EMBED PBrush ���
� EMBED PBrush ���
_66853488/ole-[42, 4D, 7E, 4D, 09, 00, 00, 00]
_66853808/ole-[42, 4D, CA, 10, 04, 00, 00, 00]