L5 - 7 - Escreva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra. O algoritmo deverá escrever:

screva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra. O algoritmo deverá escrever:
1. o valor total pago pelos cinco clientes;
2. o valor médio das compras efetuadas;
3. os nomes dos clientes que efetuaram compras superiores a 20 reais.


Algoritmo "Gestor de Loja"
Var
    nomecli: vetor [1..5] de literal
    valorcli: vetor [1..5] de real
    valort, valorm: real
    x: inteiro
Inicio
    valort <- 0
    Para x de 1 ate 5 faca
        nomecli[x] <- " "
        valorcli[x] <- 0
    Fimpara
    Escreval("Informe o nome dos cinco clientes:")
    Para x de 1 ate 5 faca
        Leia(nomecli[x])
    Fimpara
    Limpatela
    Escreval("Informe o valor que cada um deles pagou por sua compra:")
    Para x de 1 ate 5 faca
        Escreva(nomecli[x]," R$")
        Leia(valorcli[x])
        valort <- valort + valorcli[x]
    Fimpara
    valorm <- valort /5
    Limpatela
    Escreval("O valor total pago pelos cinco clientes R$",valort:5:2)
    Escreval("O valor médio das compras efetuadas R$",valorm:5:2)
    Escreval("Os clientes que efetuaram compras acima de 20 reais foram: ")
    Para x de 1 ate 5 faca
        Se(valorcli[x] >= 20)entao
             Escreval(nomecli[x]," (",valorcli[x]:5:2,")")
        Fimse
    Fimpara

Fimalgoritmo

L5 - 6 - Um sistema de equações lineares do tipo:

a * x + b * y = c

d * x + e * y = f


pode ser resolvido da seguinte forma:
x <- ( c * e – b * f ) / ( a * e – b * d )
y <- ( a * f – c * d ) / ( a * e – b * d )

Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

Algoritmo "calcula x e y"
Var
    a,b,c,d,letrae,f: inteiro
    x,y,denom: real
    opt: literal
    quit: logico
Inicio
    quit <- falso
    opt <- " "
    Repita
        Escreval("Digite os valores de A à F:")
        Leia(a,b,c,d,letrae,f)
        denom <- ( a * letrae - b * d )
        Se (denom = 0) entao
                Escreval("Valores invalidos, o denominador da equacao nao pode ser ZERO")
                Escreva("Gostaria de tentar novamente (s/n) ")
                Leia(opt)
        Senao
                x <- ( c * letrae - b * f ) / denom

                y <- ( a * f - c * d ) / denom

                quit <- verdadeiro

        Fimse
    Ate(quit = verdadeiro)ou(opt="n")
    Se(quit = verdadeiro)entao
            Escreva("X = ",x:5:3," e Y = ",y:5:3)
    Senao
            Escreva("O usuario inseriu dados invalidos ( nao pode dividir por zero )!")
    Fimse
Fimalgoritmo

L5 - 5 - Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do
segundo.

Algoritmo "multiplos"
Var
    a,b: inteiro
Inicio
    Leia(a,b)
    Se ( a MOD b = 0 ) entao
            Escreva(a," e ",b," sao multiplos!")
    Senao
            Escreva(a," e ",b," nao sao multiplos.")
    Fimse
fimalgoritmo

L5 - 4 - Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser positivo ou zero.

Algoritmo "calcular a area de um circulo"
Var
    raio,area: real
Inicio
    Escreval("O valor do raio deve ser Positivo ou zero.")  
    Escreva("Informe o raio: ")
    Leia(raio)
    Se (raio >= 0) entao
         area <- pi * (raio^2)
         Escreva("A area do circulo e ",area)
    Senao
         Escreval("O valor do raio deve ser Positivo ou zero.")
    Fimse
Fimalgoritmo

L5 - 3 - Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo, supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”, FALSO e VERDADEIRO?

1. NOME <- DIA
// recebe “TERÇA”

2.  SOMA <- (NUM^2/X) + (X + 1)
/* (5^2/2) + (2+1)
SOMA recebe  15.5 */

3.  TUDO <- não ((TESTE ou COD)  e (X <> NUM))
// TUDO recebe “FALSO”

L5 - 2 - Avalie (forneça o resultado da expressão lógica):

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))

mostrando todos os passos utilizados para obtenção da solução.

( ( ( 2.5 = 2.5 )v e (3.0 <> 3.1)v ) ) ou ( 5 >= 4 )v ) e ( não( 5 = 5.0 )f ) ) =

(verdadeiro e verdadeiro) ou (verdadeiro) e (falso) =

verdadeiro  ou falso = Verdadeiro

L5 - 1 - Resolva as expressões lógicas:

1.    2 >3 falso
2.   (6 < 8) ou (3 > 7) verdadeiro
3.   não (2 <> 2.0) verdadeiro
4.   5 >= 6 ou  6 < 7 ou não ( a+ 5 – 6 = 8) onde a = 5 verdadeiro
5.    ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29 falso