algoritmos-e-programacao-ii-71

Prévia do material em texto

U
n
iv
e
rs
id
a
d
e
 A
b
e
rt
a
 d
o
 B
ra
si
l
140
ANEXOS
UNIDADE	III
Seção	2
•	 Atividade – cálculo de área e perímetro de triângulo retângulo com 
funções:
 Program	Triangulo_area_perimetro;
 Var 
 lado_1, lado_2, lado_3, base, altura : real; 
 // Definição da função area---------------------
 Function area(b,h : real) : real;
 Begin
 area := (b*h)/2;
 End;
 
 // Definição da função perimetro----------------
 Function	perimetro(a,b,c	:	real) : real;
 Begin
	 		perimetro	:=	a	+	b	+	c;
 End;
 
 // Programa principal---------------------------
 Begin
 writeln(ꞌCálculo	da	área	e	o	perímetroꞌ);
 writeln(ꞌde	um	triângulo	retângulo.ꞌ);
 write(ꞌEntre	com	a	base:	ꞌ);
 read(base);
 write(ꞌEntre	com	a	altura:	ꞌ);
 read(altura);
 write(ꞌEntre	com	o	lado	1:	ꞌ);
 read(lado_1); 
 write(ꞌEntre	com	o	lado	2:	ꞌ);
 read(lado_2); 
 write(ꞌEntre	com	o	lado	3:	ꞌ);
 read(lado_3); 
 // Saídas do Programa ---------------------------
 writeln(ꞌA	área	do	triângulo	é	ꞌ,	area(base,altura));
 writeln(ꞌO	perímetro	é	ꞌ,	perimetro(lado_1,lado_2,lado_3));
 readkey; 
 End.
141
ANEXOS
A
lg
o
rit
m
o
s 
e
 P
ro
g
ra
m
a
çã
o
 II
Observação: como destaque principal dessa atividade, uso de mais 
de um parâmetro em cada função. 
•	 Atividade – determinar o menor, o maior valor em um vetor de 
inteiros e a posição de cada um dos valores localizados.