Algoritmos

ALGORITMO 01

Leia a idade de um nadador e exiba sua categoria segundo as regras: Junior (5 até 7 anos); Infantil (8 até 12 anos); Pré (13 até 18) e Avançada ( Idade > 18).

algoritmo "CategoriaNadador"

var

idade:inteiro

inicio

escreva("Informe a idade do nadador: ")

leia (idade)

se (idade > 5) entao

escolha idade

caso 5,6,7

escreva ("Junior")

caso 8,9,10,11,12

escreva ("Infantil")

caso 13, 14, 15, 16, 17, 18

escreva ("Pré")

outrocaso

escreva ("Avançada")

fimescolha

senao

escreva ("Fora da faixa - não se aplica")

fimse

fimalgoritmo

ALGORITMO 02

Faça um algoritmo para ler: a descrição do produto (nome), a quantidade adquirida e o preço unitário. Calcular e escrever o total (total = quantidade adquirida * preço unitário), o desconto e o total a pagar (total a pagar = total - desconto), sabendo-se que:

- Se quantidade <= 5 o desconto será de 2%

- Se quantidade > 5 e quantidade <=10 o desconto será de 3%

- Se quantidade > 10 o desconto será de 5%

algoritmo "desconto"

var

produto:caracter

qtd:inteiro

preco, total, desconto, vTotal:real

inicio

escreva ("Nome do produto: ")

leia (produto)

escreva ("Preco do produto: ")

leia (preco)

escreva("Quantidade adquirida: ")

leia (qtd)

se (qtd <= 5) entao

desconto <- preco * 0.02

senao

se (qtd <= 10) entao

desconto <- preco * 0.03

senao

desconto <- preco * 0.05

fimse

fimse

escreval ("Total = ", qtd * preco)

escreval ("Desconto = ", desconto)

escreval ("Total a pagar = ", (qtd * preco) - desconto)

fimalgoritmo

ALGORITMO 03

Ler um valor inteiro (aceitar somente valores entre 1 e 10) e escrever a tabuada de 1 a 10 do valor lido.

algoritmo "tabuada"

var

valor,i:inteiro

inicio

escreva ("Entre com um valor: ")

leia (valor)

se (valor >= 1) e (valor <=10) entao

para i de 1 ate 10 faca

escreval (valor, " * ", i, " = ", valor*i)

fimpara

senao

escreva ("Valor inválido!")

fimse

fimalgoritmo

ALGORITMO 04

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

inicio

para f de 50 ate 65 faca

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

escreval(f, "-------------------",c)

fimpara

fimalgoritmo

ALGORITMO 05

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.

algoritmo "SerieH"

var

h:real

deno, num:inteiro

inicio

h <- 0

num <- 1

para deno de 1 ate 50 faca

h <- h + num/deno

num <- num + 2

fimpara

escreval ("H = ", h)

fimalgoritmo

ALGORITMO 06

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"

var