Docsity
Docsity

Prepare-se para as provas
Prepare-se para as provas

Estude fácil! Tem muito documento disponível na Docsity


Ganhe pontos para baixar
Ganhe pontos para baixar

Ganhe pontos ajudando outros esrudantes ou compre um plano Premium


Guias e Dicas
Guias e Dicas


Algoritmos em pseudcodigo, Esquemas de Informática

Uma loja oferece para os seus clientes, um determinado desconto de acordo com o valor da compra efectuada. O desconto é de 10%, se o valor da compra for até 200.00MT, 15% se for maior que 200,00MT e menor ou igual a 500,00MT e 20% se for acima de 500,00MT. Crie um algoritmo que leia o nome do cliente e o valor da compra. Mostre ao final o nome do cliente, o valor da compra, o percentual de desconto e o seu valor e valor total a pagar deste cliente.

Tipologia: Esquemas

2023

Compartilhado em 16/12/2023

edmilson-tembe
edmilson-tembe 🇲🇿

4 documentos

1 / 24

Toggle sidebar

Esta página não é visível na pré-visualização

Não perca as partes importantes!

bg1
Estruturas de sequ
ê
ncia
3. Algoritmo "Uso do raio"
Var
V,P,A,r,p : real
Inicio
escreval("Digite o valor do raio")
leia(r)
p <- 3.14
escreval("=====Calculo do volume======")
escreval("O volume da esfera é igual a:",(4/3*p*r*r*r))
escreval("======Calculo de Area=====")
escreval("A área da esfera é igual a:",(p*r*r))
escreval("========Calculo do Perímetro======")
escreval("O Perímetro da esfera é igual a:",(2*r*p))
Fimalgoritmo
4. Algoritmo "Calculo de notas"
Var
M,N1,N2,N3 : real
pf3
pf4
pf5
pf8
pf9
pfa
pfd
pfe
pff
pf12
pf13
pf14
pf15
pf16
pf17
pf18

Pré-visualização parcial do texto

Baixe Algoritmos em pseudcodigo e outras Esquemas em PDF para Informática, somente na Docsity!

Estruturas de sequência

  1. Algoritmo "Uso do raio" Var V,P,A,r,p : real Inicio escreval("Digite o valor do raio") leia(r) p <- 3. escreval("=====Calculo do volume======") escreval("O volume da esfera é igual a:",(4/3prrr)) escreval("======Calculo de Area=====") escreval("A área da esfera é igual a:",(prr)) escreval("========Calculo do Perímetro======") escreval("O Perímetro da esfera é igual a:",(2rp)) Fimalgoritmo
  2. Algoritmo "Calculo de notas" Var M,N1,N2,N3 : real

Inicio escreval("=========Calculo de Media=====") escreval("Digite a primeira nota") leia(N1) escreval("Digite a segunda nota") leia(N2) escreval("Digite a terceira nota") leia(N3) M <- (N1+N2+N3)/ escreval("A media semestral do aluno é:",M) Fimalgoritmo

  1. Algoritmo"Calculo da Temperatura" Var f,Tc : inteiro Inicio escreval("=====Calculo da temperatura em graus celcius====") escreval("Digite o valor da temperatura em graus Fahrenheit") leia(f)
  1. Algoritmo"Eleições" Var NT,NVB,NVV,NVN : inteiro Inicio escreval("========Calculo de percentagem de votos======") escreval("Digite o número total de votos") leia(NT) escreval("Digite o número de votos brancos") leia(NVB) escreval("Digite o número de votos validos") leia(NVV) escreval("Digite o número de votos nulos") leia(NVN) escreval("A percentagem dos votos brancos é de:",(NVB100)/NT)) escreval("A percentagem dos votos validos é de:",(NVV100)/NT)) escreval("A percentagem dos votos nulos é de:",(NVN*100)/NT)) Fimalgoritmo
  1. Algoritmo"Compra de Automóvel" Var Pf,cf : real Inicio escreval("=========Calculo do preço final do automóvel======") escreval("Digite o valor do custo de fabrica") leia(cf) Pf <- cf+(cf25)/100+(cf45)/ escreval("O preço final do automóvel é de:",Pf) Fimalgoritmo
  2. Algoritmo "Sistema de Avaliação" Var M,N1,N2,N3: real Inicio escreval("======Calculo de Media======") escreval("Digite o valor da primeira da nota") leia(N1) escreval("Digite o valor da segunda nota") leia(N2)

Estruturas de Decisão

  1. Algoritmo"Equação quadrática" Var A,B,C,D, : inteiro Var x1,x2 : real Inicio escreval("======Calculo de raízes=====") escreval("Digite o valor de A") leia(A) escreval("Digite o valor de B") leia(B) escreval("Digite o valor C") leia(C) D <- BB-4AC Se(D>=0)então x1 <- ((-B+RaizQ(D))/2A) x2 <- ((-B-RaizQ(D))/2*A) escreval("X1=",x1,", X2=",x2)

senao escreval("a equação não tem raizes reais") fimse Fimalgoritmo

  1. Algoritmo"Ordem crescente" Var A,B: inteiro Inicio escreval("======Ordem crescente dos números=======") escreval("Digite o valor de A") leia(A) escreval("Digite o valor de B") leia(B) se(A>B)então escreval("Ordem crescente dos números:",B ,A) senao escreval("Ordem crescente dos números:",A,B)

se (n3>maior) então n3<-maior fimse n1<menor se (n2<menor) então n2<-menor fimse se (n3<menor) então n3<-menor fimse escreval("O maior valor é:",maior) escreval("O valor maior é:",menor) Fimalgoritmo

  1. Algoritmo"Triangulos" Var A,B,C : inteiro Inicio escreval("=======Comprimento do triângulo=====")

escreval("Digite o valor de A") leia(A) escreval("Digite o valor de B") leia(B) escreval("Digite o valor de C") leia(C) se A+B<C e A+C<B e C+B<A então se A <- B e B <- C então escreval("É um triângulo equilátero") senao se A <- B ou B <- C ou A <- C então escreval("É um triângulo isósceles") senao escreval("É um triângulo escaleno") fimse senao escreval("Não é um triângulo") fimse Fimalgoritmo

se Cod<-3 então escreval("Caixa") escreval("Digite o seu salario") leia(Sal) escreval("O aumento da Caixa é:",(Sal20)/100) escreval("O Salário actual da Caixa é:"Sal+(Sal20)/100) senao Se Cod<-4 então escreval("Gestor") escreval("Digite o seu salario") leia(Sal) escreval("O aumento do Gestor é:",(Sal10)/100) escreval("O Salário actual do Gestor é:"Sal+(Sal10)/100) senao se Cod<-5 então escreval("Director") escreval("Digite o seu salario") leia(Sal) escreval("Sem aumento salarial) escreval("O Salário do Gestor é:"Sal)

fimse senao escreval("Não existe o código digitado") fimse Fimalgoritmo

  1. Algoritmo"Compra de um produto" Var Cod,Pn : inteiro Inicio escreval("Digite o preço normal") leia(Pn) escreval("Escolha a condição de pagamento") leia(Cod) se Cod<-1 então escreval("À vista em dinheiro ou cheque") escreval("O valor a ser pago é de:",Pn-(Pn*10)/100) senao se Cod<-2 então

Estruturas de Repetição

  1. Algoritmo"Media aritmética" Var cont : inteiro Var n,m,soma : real Inicio soma <- 0 cont <- 1 escreval("=======Calculo de Media do aluno=====") Enquanto cont <= 10 faça escreval("Digite a nota") leia(n) soma <- soma + cont cont <- cont + 1 fimEnquanto m <- soma/ escreval("A media dos alunos eh",m) Fimalgoritmo
  1. Algoritmo"Media" Var n,m,soma : real Var cont : real Inicio soma <- 0 cont <- 1 escreval("=======Cálculo de média com notas de 1 a 10=======") Enquanto cont <= 10 faça escreval("Digite a nota") leia(n) soma <- soma + cont cont <- cont + 1 fimEnquanto se n<10 então m <- soma/ escreval("A media dos alunos eh",m) senao escreval("A nota não está definida nos parâmetros") fimse Fimalgoritmo

escreval("Digite o último número") leia(an) se (a1 % 2 = 0 e an % 2 = 0) então cont <- ((an-a1)/2)+ escreval("Os numeros pares são", cont) escreval("Os numeros impares sao", cont-1) senao cont <- ((an-a1)/2) escreval("Os numeros pares são", cont) escreval("Os numeros impares sao", cont+1) fimse Fimalgoritmo

  1. Algoritmo"Representacao dos números" Var an,a1 : inteiro Var cont : inteiro

Inicio escreval("==========Números pares e impares========") escreval("Digite o primeiro numero") leia(a1) escreval("Digite o último número") leia(an) se a1 > an entao escreval("O último número é menor que o primeiro") senao se (a1 % 2 = 0 e an % 2 = 0) então cont <- ((an-a1)/2)+ escreval("Os numeros pares são", cont) escreval("Os numeros impares sao", cont-1) senao cont <- ((an-a1)/2) escreval("Os numeros pares são", cont) escreval("Os numeros impares sao", cont+1) fimse fimse Fimalgoritmo