Trabalho02 (Para) Algoritmo UNIGRAN

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

Exercício 1: Faça um algoritmo que receba 10 números e que calcule e mostre quantos números estão entre 30 e 90.
Algoritmo_Ex01
Declare
 Num,cont,cont2:inteiro;
Inicio
 Escreva ("Informe 10 numeros");
 cont<-0;
 cont2<-0;
 Para cont<-1 até 10 faça
 Leia (Num);
 Se (Num>30 e Num<90) entao
 cont2<-cont2+1;
 Fim se;
 cont<-cont+1;
 Fim para;
 Escreva ("A quantidade de numeros entre 30 e 90 e: ",cont2);
FimAlgoritmo.
_______________________________________________________________________________________________________________________
Exercício 2: Faça um algoritmo que receba a idade, a altura e o peso de 25 pessoas. Calcule e mostre:
- A quantidade de pessoas com idade superior a 50 anos;
- A média das alturas das pessoas com idade entre 10 e 20 anos;
- A percentagem de pessoas com peso inferior a 40 quilos entre todas as pessoas analisadas
Algoritmo_Ex02
Declare
 altura,peso,media,p:real;
 idade,cont,cont1,cont2,cont3,cont4,soma:inteiro;
Inicio
 cont<-0;
 cont2<-0;
 cont3<-0;
 cont4<-0;
 soma<-0;
 Para cont<-1 ate 25 faça
 Escreva ("Informe sua idade: ");
 Leia (idade);
 Escreva ("Informe sua altura: ");
 Leia (altura);
 Escreva ("Informe seu peso: ");
 Leia (peso);
 cont<-cont+1;
 Se (idade>50) faça
 cont2<-cont2+1;
 Fim se;
 Se (idade>10 e idade<20) faça
 cont3<-cont3+1;
 soma<-soma+altura;
 Fim se; 
 Se (peso<40) faça
 cont4<-cont4+1;
 Fim se;
 Fim para;
 media<-soma/cont3;
 p<-cont4/25*100;
 Escreva ("O numero de pessoas com mais de 50 anos e: ",cont2);
 Escreva ("A média das alturas das pessoas com idade entre 10 e 20 anos: ",media);
 Escreva ("A percentagem de pessoas com peso inferior a 40 quilos: ",p);
FimAlgoritmo. 
_________________________________________________________________________________________________________________________________________________
Exercícios 3: Faça um algoritmo para calcular o fatorial de um determinado número fornecido pelo usuário.
Algoritmo_Ex03
Declare
 soma,x,num:inteiro;
Inicio
 Escreva ("Informe um numero: ");
 Leia (num);
 soma<-1;
 Para x<-1 ate num faça
 soma<-soma*x;
 x<-x+1;
 Fim para;
 Escreva ("O fatorial e: ",soma);
FimAlgoritmo.