Logica De Programação

exercicio 2 de lógica de programação

1) Escreva um programa para ler uma temperatura em graus Fahrenheit,

calcular e escrever o valor correspondente em graus Celsius.

R=

var

celsius, fahre: real

inicio

escreval ("Digite a temperatura em fahrenheit:")

leia (fahre)

celsius <- (fahre-32)/1.8

escreval ("A temperatura em Celsius é ",celsius)

fimalgoritmo

2) A equipe Ferrari deseja calcular o número mínimo de litros que

deverá colocar no tanque de seu carro para que ele possa percorrer

um determinado número de voltas até o primeiro reabastecimento.

Escreva um programa que leia o comprimento da pista (em metros),

o número total de voltas a serem percorridas no grande prêmio,

o número de reabastecimentos desejados e o consumo de combustível

do carro (em Km/L). Calcular e escrever o número mínimo de litros

necessários para percorrer até o primeiro reabastecimento.

OBS: Considere que o número de voltas entre os reabastecimentos

é o mesmo.

R=

var

pista, voltas, qtdAbastecimentos, consumo: inteiro

reabastecimento1, voltasParada1:real

inicio

escreval("Qual o comprimento da pista em metros?: ")

leia(pista)

escreval("Quantas voltas seram percorridas?: ")

leia(voltas)

escreval("Quantas vezes sera reabastecido?: ")

leia(qtdAbastecimentos)

escreval("Qual o consumo de conbustivel (km/L)?: ")

leia(consumo)

voltasParada1<-voltas/qtdAbastecimentos

reabastecimento1<-voltasParada1*(pista)

escreval("Total de combustivel ate o 1º reabastecimento",reabastecimento1," Litros")

fimalgoritmo

3) Escreva um programa que leia o código de origem de um produto e

imprima na tela a região de sua procedência conforme a tabela abaixo:

R=

var

codigo :inteiro

inicio

escreval ("digite codigo do produto")

leia(codigo)

se (codigo=1)entao

escreval("produto da regiao sul")

fimse

se (codigo=2) ou (codigo=3) ou (codigo=4)entao

escreval("produto da regiao sudeste")

fimse

se (codigo=5) ou (codigo=6) entao

escreval("produto da regiao nordeste")

fimse

se (codigo=7)ou(codigo=8) ou(codigo=9)entao

escreval ("produto da regiao centro-oeste")

fimse

se (codigo=10)entao

escreval ("produto da regiao norte")

fimse

se (codigo>10)ou(codigo=0)entao

escreval("produto importado")

fimse

fimalgoritimo

4) Escreva um programa para ler o número de lados de um polígono regular

e a medida do lado (em cm). Calcular e imprimir o seguinte:

Se o número de lados for igual a 3 escrever TRIÂNGULO e o valor do seu perímetro.

Se o número de lados for igual a 4 escrever QUADRADO e o valor da sua área.

Se o número de lados for igual a 5 escrever PENTÁGONO.

Caso o número de lados seja inferior a 3 escrever NÃO É UM POLÍGONO.

Caso o número de lados seja superior a 5 escrever POLÍGONO NÃO IDENTIFICADO

R=

var

area_do_quadrado, perimetro_do_triangulo, total_lados, lado1, lado2, lado3, lado4, lado5:real

inicio

escreval("Digite o total de lados do polígono")

leia(total_lados)

se (total_lados=3) entao

escreval("O polígono é um triangulo, pois contém 03 (três) lados")

escreval("Agora vamos calcular o seu perímetro")

escreval("Digite o lado 1")

leia(lado1)

escreval("Digite o lado 2")

leia(lado2)

escreval("Digite o lado 3")

leia(lado3)

perimetro_do_triangulo <- lado1 +lado2 + lado3

escreval("O