Algoritmos

3) Construa um algoritmo que seja capaz de dar a classificação olímpica a 3 paises informados. Para cada pais é informado o nome, quantidades de medalhas de ouro, prata e bronze. Considere que cada medalha de ouro tem peso 3, cada de prata tem peso 2, e cada de bronze tem peso 1. Suponha que não haverá empate em pontos.

PROG_MEDALHAS

var

inteiro: totpais1, totpais2, totpais3, ouro1, prata1, bronze1, ouro2, prata2, bronze2, ouro3, prata3, bronze3

caracter: nomepais1, nomepais2, nomepais3

inicio

escreva ("nome do primeiro país")

leia (nomepais1)

escreva ("quantidade de medalhas de ouro, prata e bronze")

leia (ouro1, prata1,bronze1)

escreva ("nome do segundo país")

leia (nomepais2)

escreva ("quantidade de medalhas de ouro, prata e bronze")

leia (ouro2, prata2, bronze2)

escreva ("nome do terceiro país")

leia (nomepais3)

escreva ("quantidade de medalhas de ouro, prata e bronze")

leia (ouro2, prata3, bronze3)

totpais1= 3*ouro1 + 2*prata1 + 1*bronze1

totpais2= 3*ouro2 + 2*prata2 + 1*bronze2

totpais3= 3*ouro3 + 2*prata3 + 1*bronze3

escreva(nomepais1)

escreva("Quantidade de medalhas de Ouro = "ouro1", Prata "prata1", Bronze = "bronze1")

escreva("Total de Medalhas = ",totpais1)

escreva(nomepais2)

escreva("Quantidade de medalhas de Ouro = "ouro2", Prata "prata2", Bronze = "bronze2")

escreva("Total de Medalhas = ",totpais2)

escreva(nomepais3)

escreva("Quantidade de medalhas de Ouro = "ouro3", Prata "prata3", Bronze = "bronze3")

escreva("Total de Medalhas = ",totpais3)

fim