Algoritmos

Desenvolver algoritmos em Portugol (Semana 03)

Questão 1: Escreva um algoritmo que leia a idade de um atleta e escreva na tela em que categoria ele se enquadra, seguindo o quadro abaixo:
De 5 a 10 anos: Infantil
De 11 a 18 anos: Juvenil
De 19 a 35 anos: Adulto
Acima de 35 anos: Sênior

algoritmo "IdadedeumAtleta"
// Função :
// Autor : Nelson Romero
// Data : 06/09/2013
// Seção de Declarações var idade: inteiro inicio escreva("Digite a idade do Atleta:") leia(idade) se(idade >= 5) E (idade = 11) E (idade = 19) E (idade 35) entao escreva("Sênior!") fimse fimalgoritmo Questão 2: Desenvolver um algoritmo que receba o valor do salário de uma pessoa e o valor de um financiamento pretendido. Caso o financiamento seja menor ou igual a 5 vezes o salário da pessoa, o algoritmo deverá escrever "Financiamento Concedido"; senão, ele deverá escrever "Financiamento Negado". algoritmo "Conceçãodefinanciamento" var salario, financiamento: real inicio escreva("Digite o valor do salario!") leia(salario) escreva("Digito o valor do financiamento pretendido!") leia(financiamento) se(financiamento 5*salario) entao escreva("Financiamneto Negado!") fimse fimalgoritmo

Questão 3: Construir um algoritmo que mostre todos os números ímpares entre 1 e 100. Utilize o comando “Para .. fimpara” como estrutura de repetição.

algoritmo "Numeros Impares" var num: inteiro inicio para num de 1 ate 100 passo 2 faca escreva(num) fimpara fimalgoritmo Questão 4: Aplicar um algoritmo que calcule a média das notas bimestrais de uma escola (Média = (nota1 + nota2 + nota3 + nota4)/4). O algoritmo deve repetir o cálculo até que o usuário responda “N” à pergunta “Deseja continuar (S/N)? “. Utilize o comando “Repita .. Ate” como estrutura de repetição;

algoritmo "Calculo de Média" var Media, rep, N1, N2, N3, N4 : real
I: Inteiro inicio rep:=1 repita escreval("Nota 1") leia(N1) escreval("Nota 2")