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