Algoritmo

Curso: Sistemas de informação
Matéria: Algoritmo

1. Leia um número e exiba seu sucessor.
Algoritmo “sucessor”
Var Numero1, : inteiro
Inicio
Escreva (“digite um número”)
Leia (numero1)
Numero1 , Numero1 + 1
Escreva ( “ Resultado”, Numero1)
Fimalgoritmo
2. Calcular a quantidade dinheiro gasta por um fumante. Dados: o número de anos que ele fuma, o nº de cigarros fumados por dia e o preço de uma carteira.
Algoritmo “cigarro”
Cigarros_carteira 20
Dias_ano 365
Var anos, cigarros_dia: inteiro
Preco, total: real
Inicio
Escreva (“A quantos anos você fuma”)
Leia( anos)
Escreva(“Quantos cigarros você fuma por dia”)
Leia (cigarros_dia)
Escreva(“preço da carteira”)
Leia(preco)
Total (cigarros_dias * dias_anos * preco / cigarro_carteira) * ano
Escreva (“total gasto”: total)
Fimalgoritmo

3. Ler dois números inteiros, x e y, e imprimir o quociente e o resto da divisão inteira entre eles.
Algoritmo “numero”
Var numerox, numeroy, quociente, resto:inteiro
Inicio
Escreva (“digite um numero”)
Leia (numerox)
Escreva (“digite um numero”)
Leia (numeroy)
Quociente numerox \ numeroy
Resto numerox mod numeroy
Escreva (“a divisão e o resto de x e y são”, quociente “e”, resto)
Fimalgoritmo

4. Que informe a área e o volume de um cilindro.

Algoritmo “ cilindro”

P 3,14

Var area, volume, altura, abase: real

Inicio

Escreva (“ informe area base”)

Leia ( abase)

Escreva (“informe altura”)

Leia (altura)

Volume P * abase^2 * altura

Area 2* P * abase * (altura + abase)

Escreva (“ resultado area”, area)
Escreva (“ resultado volume” volume)

Fimalgoritmo

5. Para ler dois valores reais do teclado, calcular e imprimir na tela:
a) A soma destes valores
b) O produto deles
c) O quociente entre eles

a) algoritmo “ valores”

Var valor1, valor2, resultado:inteiro

Inicio

Escreva (“valor 1”)

Leia (valor1)

Escreva(“ valor 2”)

Leia (valor2)

Resultado valor1 + valor2

Escreva (“o valor é:”,