VISUALG – ESTRUTURA DE REPETIÇÃO "PARA"

VisualgESTRUTURA DE REPETIÇÃO - PARA
1. Construa um programa para ler 10 (dez) números quaisquer fornecidos pelo usuário. Calcular e mostrar:
- quantos são positivos;
- quantos são negativos;
- quantos são nulos (zero);
- a média aritmética de todos os números;
- a soma dos números positivos. algoritmo "Numeros" varnum, positivos, negativos:inteiro media:real soma, i, somaPos:inteiroiniciopara i de 1 ate 10 escreva ("Informe um numero: ") leia (num) soma <- soma + num se (num > 0) entao positivos <- positivos + 1 somaPos <- somaPos + num senao se (num < 0) entao negativos <- negativos + 1 fimse fimsefimparaescreval ("Positivos = ", positivos) escreval ("Negativos = ", negativos) media <- soma/i escreval ("Media = ", media) escreval ("Soma Positivos = ", somaPos) fimalgoritmo2. A conversão de graus Farenheit para Centígrados é obtida por c = 5/9*(f-32). Faça uma Programa que calcule e escreva uma tabela de graus Centígrados e graus Farenheit, que variam de 50 a 65 de 1 em 1. algoritmo "ConversaoFC" var f:inteiro c:real iniciopara f de 50 ate 65 faca c <- 5/9 * (f-32) escreval(f, "-------------------",c) fimparafimalgoritmo3. Prepare um algoritmo que calcule o valor de H, sendo que ele é determinado pela sérieH = 1/1 + 3/2 + 5/3 + 7/4 + ... + 99/50. algoritmo "SerieH" varh:real deno, num:inteiroinicioh <- 0 num <- 1 para deno de 1 ate 50 faca h <- h + num/deno num <- num + 2 fimparaescreval ("H = ", h) fimalgoritmo4. Leia um número inteiro e positivo, calcule e imprima o resultado do seu fatorial. Lembre que o fatorial de um número N qualquer é igual a 1 x 2 x 3 x ... x N -1 x N.
Ex: 5! = 5x4x3x2x1=120. Lembre também que 0! = 1. algoritmo "fatorial" varn, fat, i: inteiro inicioescreva ("Entre com o valor para calculo do fatorial: ") leia (n) fat <- 1 se (n = 0) entao fat <-1