Algoritmo

ESTRUTURA DE REPETIÇÃO - PARA

1. Construa um algoritmo para ler 10 (dez) números quaisquer fornecidos pelo usuário. Calcular e mostrar:

- quantos são positivos;

- quantos são negativos;

- a média aritmética de todos os números;

- a soma dos números positivos.

var

positivo, negativo, j, num, soma, soma2: inteiro

media: real

inicio

para j de 1 ate 10 faca

escreva ("Entre com um numero: ")

leia (num)

se (num >= 0) entao

positivo <- positivo + 1

soma <- soma + num

senao

negativo <- negativo + 1

fimse

soma2 <- soma2 + num

media <- soma2 / 10

fimpara

escreval ("Numeros positivos: ", positivo)

escreval ("Numeros negativos: ", negativo)

escreval ("Soma dos positivos: ", soma)

escreval ("Média de todos os numeros: ", media)

fimalgoritmo

2. A conversão de graus Farenheit para Centígrados é obtida por c = 5/9*(f-32). Faça um algoritmo que calcule e escreva uma tabela de graus Centígrados e graus Farenheit, que variam de 50 a 65 de 1 em 1.

var

f : inteiro

c : real

inicio

para f de 50 ate 65 faca

c <- 5/9*(f-32)

escreval (f, " fahrenheit = ", c, " centigrados ")

fimpara

fimalgoritmo

3. Prepare um algoritmo que calcule o valor de H, sendo que ele é determinado pela série

H = 1/1 + 3/2 + 5/3 + 7/4 + ... + 99/50.

var

h: real

deno, num: inteiro

inicio

h <- 0

num <- 1

para deno de 1 ate 50 faca

h <- h + num / deno