Algoritmo - Cálculo da área de 100 círculos utilizando vetor de registros

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

{Objetivo:Sabendo que cada circulo é representado por um ponto central(x e y) e por seu raio. Ler e calcular a area de 100 circulos, 
mostrar os resultados.
Leila Ap. da Silva
}
algoritmo area de circulos	
	
	{ declarações }
	constante tam: inteiro = 100	
		 pi: real = 3.14
	tCirculo: registro
			x: real
			y: real
			raio: real
		 fim-registro
	declare	
	
		circulo: tCirculo[tam] 
		area[tam]: real
	
		{ leitura dos dados do circulo }
		para i <- 0 até tam - 1 faça
			leia(circulo[i].x, circulo[i].y, circulo[i].raio)
		fim-para
		{ calculo da area }
		para i <- 0 até tam -1 faça
			area[i] <- pi * pot(circulo[i].raio, 2) 	
		fim-para
		{ escrita do resultado }
		para i <- 0 até tam -1 faça
			escreva(area[i]) 	
		fim-para
fim-algoritmo