Lógica De Programação

algoritmo "exercicio_1"

var

a,b,c:inteiro

inicio

// Seção de Comandos

escreval ("Digite tres inteiros diferentes:")

leia (a,b,c)

Escreval ("A soma e:", a+b+c)

Escreval ("A media e:", a+b+c/3)

Escreval ("O produto e:", a*b*c)

Se ((a<b) e (a<c)) entao

escreval ("O menor e:", a)

senao

Se ((b<a) e (b<c)) entao

escreval ("O menor e:", b)

senao

Se ((c<b) e (c<a)) entao

escreval ("O menor e:", c)

fimse

fimse

fimse

Se ((a>b) e (a>c)) entao

escreval ("O maior e:", a)

senao

Se ((b>a) e (b>c)) entao

escreval ("O maior e:", b)

senao

Se ((c>b) e (c>a)) entao

escreval ("O maior e:", c)

fimse

fimse

fimse

fimalgoritmo

algoritmo "exercicio_2"

var

B, bm, A: real

inicio

escreval ("Digite a base maior, a base menor e a altura do trapézio, respectivamente:")

leia (B, bm, h )

A := (B+bm)*h/2

Escreval ("A area do trapezio e:", A)

fimalgoritmo

algoritmo "exercicio_3"

var

numero: inteiro

inicio

// Seção de Comandos

escreval ("Digite um numero de 1 a 7:")

leia (numero)

escolha numero

caso 1

escreval ("Hoje e domingo.")

caso 2

escreval ("Hoje e segunda-feira.")

caso 3

escreval ("Hoje e terca-feira.")

caso 4

escreval ("Hoje e quarta-feira.")

caso 5

escreval ("Hoje e quinta-feira.")

caso 6

escreval ("Hoje e sexta-feira.")

caso 7

escreval ("Hoje e sabado.")

outrocaso

escreval ("Digite um numero valido de 1 a 7")

fimescolha

fimalgoritmo

...