Algoritmos

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"

var

num, positivos, negativos:inteiro

media:real

soma, i, somaPos:inteiro

inicio

positivos <- 0

negativos <- 0

soma <- 0

somaPos <- 0

i <- -1

num <- 1

enquanto (num <> 0) faca

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

fimse

i <- i + 1

fimenquanto

escreval ("Positivos = ", positivos)

escreval ("Negativos = ", negativos)

media <- soma/i

escreval ("Media = ", media)

escreval ("Soma Positivos = ", somaPos)

fimalgoritmo

-----------------------------------------------------------------------------------------------------------------

2. Faça um programa para ler dois valores inteiros. O primeiro representa o primeiro elemento de uma progressão aritmética, e o segundo a razão. Calcule e mostre os 10 elementos seguintes.

algoritmo "pa"

var

j, r, n: inteiro

inicio

escreva ("Entre com o primeiro termo da PA: ")

leia (n)

escreva (" Entre com a razao: ")

leia (r)

para j de 1 ate 10 faca

n <- n + r

escreva (n)

fimpara

fimalgoritmo

------------------------------------------------------------------------------------------------------------------

3.Escreva um programa que apresente quatro opções: (a) consulta saldo, (b) saque e (c)

depósito e (d) sair. O saldo deve iniciar em R$ 0,00. A cada saque ou depósito o valor

do saldo deve ser atualizado. Exemplo:

Opções:

(a) consulta saldo

(b) saque

(c) depósito

> a

R$ 0.00

Opções:

(a) consulta saldo

(b) saque

(c) depósito

> c

valor: 20.00

Opções:

(a) consulta saldo

(b) saque

(c) depósito

>a

R$ 20.00

algoritmo "SaldoDepositoSaque"

var

op: caracter

saldo, saque, deposito: real

inicio

saldo <- 0

repita

escreval ("Opções:")

escreval ("(a) consulta saldo")

escreval ("(b) saque")

escreval ("(c) deposito")

escreval ("(d) sair")

leia (op)

se (op = "a") entao

escreval ("R$ ",saldo:2:2)

fimse

se (op = "b") entao

escreva ("Valor do Saque = ")

leia (saque)

saldo <- saldo - saque

fimse

se (op = "c") entao

escreva ("Valor do Deposito = ")

leia (deposito)

saldo <- saldo + deposito

fimse

ate (op = "d")

fimalgoritmo

---------------------------------------------------------------------------------------------------------------------

4. Crie um programa que ajude o DETRAN