/* Programa    pas061.calc
	Assunto: calcula uma certa soma

	Descrição: cálculo de somas 

	palavras chave: do, while
   por Tarcisio Praciano Pereira -  C para matemáticos
   Sobral, Outubro  de 2008	- UeVA    	      		
*/



define f(x) {
return (x-3)*(x+4);}

define coordenadora()
{
	local contador = 1;
	local soma = 0;
	do
	{
	soma = soma + f(contador);
	contador = contador + 1;
	print "soma é ", soma,  "e contador é ", contador;
	###apeteco2();	
	}
	while(contador < 5);
print contador, soma;

}