EXERCÍCIOS TÉCNICAS DE PROGRAMAÇÃO- VISUAL G

Prévia do material em texto

Universidade Cidade de São Paulo - UNICID
ENGENHARIA MECÂNICA
TÉCNICAS DE PROGRAMAÇÃO
Nome: Luan da Silva Barbosa 				RGM: 1989137-7
Nome: Guilherme Henrique Oliveira dos Santos		RGM: 20004087
Nome: João José dos Santos Lopes				RGM: 20332441 
Nome: Bruno Duque de Souza 					RGM: 20907524
LISTA DE EXERCICIOS
ALGORITMO
Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano, P(x1,y1) e P(x2,y2), escreva a distância entre eles. A fórmula que efetua tal cálculo é: 
Algoritmo cálculo"
Var
x1,y1,x2,y2,d: real
Inicio
escreval “Digite x1:”
leia (x1)
escreval “Digite y1:”
leia (y1)
escreval “Digite x2:”
leia (x2)
escreval “Digite y2:”
leia (y2)
d<-raizq(((x2-x1)^2)+((y2-y1)^2)))
Fimalgoritmo
2. Escreva um algoritmo que leia três números inteiros e positivos (A, B, C) e calcule a seguinte expressão:
 , onde  
Algoritmo "números inteiros"
Var
A,B,C,R,S,D: real
inicio
escreval("digite A")
leia (A)
escreval ("digite B")
leia (B)
escreval ("digite C")
leia (C)
R<- (A+B)^2
S<- (B+C)^2
D<- (R+S)/2
escreva (D)
Fimalgoritmo
3. Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias.
Algoritmo "IDADE"
Var
anos, meses, dias: inteiro
inicio
escreval("Digite os anos: ")
leia (anos)
escreval("Digite os meses: ")
leia (meses)
escreval("Digite os dias: ")
leia (dias)
anos <-(anos*360)
meses <-(meses*30)
dias <-(dias+meses+anos)
Escreva("A sua idade em dias é de",dias)
Fimalgoritmo
4. Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias.
algoritmo "Algoritmo que lê a idade e expressa em anos, ."
var
idade, m, d :real
inicio
escreval(" Qual Sua Idade? ")
leia(idade)
m<-idade*12
d<-idade*365
escreval("Você tem",idade,"anos")
escreval(m,"Meses")
escreval(d,"dias")
fimalgoritmo
5. Faça um algoritmo que leia as 3 notas de um aluno e calcule a média final deste aluno. Considerar que a média é ponderada e que o peso das notas é: 2,3 e 5, respectivamente.
algoritmo "Calcula a média ponderada”
 var
 nota1, nota2, nota3, media:real
 inicio
 escreval ("Digite a nota 1:")
 leia (nota1)
 escreval ("Digite a nota 2:")
 leia (nota2)
 escreval ("Digite a nota 3:")
 leia (nota3)
 media<-((nota1*2)+(nota2*3)+(nota3*5))/10
 escreval ("A média ponderada é", media:5:2)
 fimalgoritmo
6. Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em horas, minutos e segundos.
algoritmo "Exercicio 6 Tempode duração de um evento"
var
s, m, h, tempo :real
inicio
escreval("Quanto tempo deve durar seu evento, em segundos?")
leia(tempo)
h<-(tempo/3600)
m<-((tempo*3600) /60)
s<-((tempo*3600) *60)
escreval("Seu evento foi de",h," horas ",m," minutos e ",s," segundos")
fimalgoritmo
7. O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos (aplicados ao custo de fábrica). Supondo que a percentagem do distribuidor seja de 28% e os impostos de 45%, escrever um algoritmo que leia o custo de fábrica de um carro e escreva o custo ao consumidor.
Algoritmo "Custo Do Carro"
Var X,Y,Z:REAL
Inicio
ESCREVAL ("DIGITE O VALOR DE FÁBRICA DO CARRO")
LEIA (X)
Y<-X*0.28
Z<-X*0.45
ESCREVAL ("O CUSTO DO CONSUMIDOR SERÁ DE",X+Y+Z)
Fimalgoritmo
8. Um sistema de equações lineares do tipo:
, pode ser resolvido segundo mostrado abaixo :
 Escreva um algoritmo que lê os coeficientes a,b,c,d,e e f e calcula e mostra os valores de x e y.
Algoritmo "VALORES LINEAR"
Var 
 A,B,C,D,G,F,X,Y:REAL
Inicio
ESCREVAL ("DIGITE OS VALORES NA ORDEM: A,B,C,D,E e F")
LEIA (A)
LEIA (B)
LEIA (C)
LEIA (D)
LEIA (G)
LEIA (F)
X<-((C*G)-(B*F))/((A*G)-(B*D))
Y<-((A*F)-(C*D))/((A*G)-)B*D))
ESCREVAL ("O VALOR DE X SERÁ",X)
ESCREVAL ("O VALOR DE Y SERÁ",Y)
Fimalgoritmo
9. Calcule a média aritmética das 3 notas de um aluno e mostre, além do valor da média, uma mensagem de "Aprovado", caso a média seja igual ou superior a 6, ou a mensagem "reprovado", caso contrário.
algoritmo "Claculo de Média"
var
nota_1, nota_2, nota_3, media : real
inicio
escreval ("Digite a 1ª Nota")
leia (nota_1)
escreval ("Digite a 2ª Nota")
leia (nota_2)
escreval ("Digite a 3ª Nota")
leia (nota_3)
media <- (nota_1 + nota_2 +nota_3)/3
se media >=6 entao
escreval ("Aluno Aprovado média = ", media)
senao
escreval ("Aluno Reprovado média = ",media)
fimse
fimalgoritmo
10. Elaborar um algoritmo que lê 3 valores a,b,c e os escreve. A seguir, encontre o maior dos 3 valores e o escreva com a mensagem : "É o maior ". 
 a + b + | a - b |Maior de a e b
Algoritmo "semnome"
Var
a,b,c :real
inicio
escreval("Informe valor a:")
leia (a)
escreval("Informe valor b:")
leia (b)
escreval("Informe valor c:")
leia (c)
se (a>b) entao
escreva (a, "É o maior")
senao
se (a>c) entao
escreva (a, "É o maior")
senao
escreva(c, "É o maior")
senao
se (b>c) entao
escreva (b, "É o maior")
senao
escreva(c, "É o maior")
fimse
fimse
fimse
fimalgoritmo
11. Elaborar um algoritmo que lê 2 valores a e b e os escreve com a mensagem: "São múltiplos" ou "Não são múltiplos"
Algoritmo "semnome"
Var
a, b:inteiro
inicio
escreval ("Digite o valor de a:")
leia(a)
escreval("Digite o valor de b:")
leia(b)
se (a>b) entao
se (a mod b = 0) entao
escreval ("São Múltiplos")
senao
escreval ("Não são múltiplos")
fimse
senao
se (b mod a = 0) entao
escreval ("São múltiplos")
senao
escreval ("Não são múltiplos")
fimse
fimse
fimalgoritmo
12. Elabore um algoritmo que dada a idade de um nadador classifica-o em uma das seguintes categorias: 
 
infantil A = 5 - 7 anos infantil B = 8-10 anos juvenil A = 11-13 anos
juvenil B = 14-17 anos adulto = maiores de 18 anos
Algoritmo "semnome"
Var
Idade: real
Inicio
Escreva("Informe a idade do nadador: ")
Leia(idade)
Escreval("A classificação é ")
se (idade >= 5) entao
se (idade <= 7) entao
escreva("Infantil A")
senao
se (idade <= 10) entao
escreva("Infantil B")
senao
se (idade <= 13) entao
escreva("Juvenil A")
senao
se (idade <= 17) entao
escreva("Juvenil B")
senao
escreva("Adulto")
fimse
fimse
fimse
fimse
fimse
Fimalgoritmo
13. Escreva um algoritmo que leia 3 números inteiros e mostre o maior deles.
algoritmo "Maior de Três Números Inteiros"
var
x, y, z, maior: inteiro
inicio
escreval ("Informe o primeiro número")
leia (x)
escreval ("Informe o segundo número")
leia (y)
escreval ("Informe o terceiro número")
leia (z)
se (x >= y) entao
maior <- x
senao
maior <- y
fimse
se (maior <= z) entao
maior <- z
fimse
escreva ("O maior número é: ", maior)
fimalgoritmo
14. Escreva um algoritmo que leia o código de um aluno e suas três notas. Calcule a média ponderada do aluno, considerando que o peso para a maior nota seja 4 e para as duas restantes, 3. Mostre o código do aluno, suas três notas, a média calculada e uma mensagem "APROVADO" se a média for maior ou igual a 5 e "REPROVADO" se a média for menor que 5.
algoritmo "Exercicio 14, Média ponderada de três notas"
var
cod, nt1, nt2, nt3, x :real
inicio
escreval("Digite seu código e suas três notas, respectivamente.")
leia(cod)
leia(nt1)
leia(nt2)
leia(nt3)
se((nt1>nt2) e (nt3<nt1))entao
x<-(nt1*4+nt2*3+nt3*3)/10
senao
se((nt2>nt1) e (nt3<nt2))entao
x<-(nt2*4+nt1*3+nt3*3)/10
senao
x<-(nt3*4+nt1*3+nt2*3)/10
fimse
fimse
escreval("Seu código é",cod)
escreval("Sua primeira nota foi ",nt1," ,sua segunda nota foi ",nt2," e sua terceira nota foi ",nt3)
se(x>5) entao
escreval("Parabéns você está APROVADO")
senao
escreval("Estude mais pois foi REPROVADO")
fimse
fimalgoritmo
15. Faça um algoritmo que leia um nº inteiro e mostre uma mensagem indicando se este número é par ou ímpar, e se é positivo ou negativo.
algoritmo "Número é par ou ímpar, e se é positivo ou negativo"
var
num: inteiro
inicio
escreval("Digite o número")
leia(num)
se (num% 2) = 0 entao
escreval("O número é par")
senao
escreval("O número é impar")
fimse
se (num >= 0) entao
escreval("O número é positivo")
senao
escreval("O número é negativo")
fimse
fimalgoritmo
16. O cardápio de uma lancheria é o seguinte:
	Especificação
	Código
	Preço
	Cachorro quente
	100
	1,20
	Bauru simples
	101
	1,30
	Bauru com ovo
	102
	1,50
	Hambúrger
	103
	1,20
	Cheeseburguer
	104
	1,30
	Refrigerante
	105
	1,00
Escrever um algoritmo que leia o código do item pedido, a quantidade e calcule o valor a ser pago por aquele lanche. Considere que a cada execução somente será calculado um item.
algoritmo "semnome"
var
cod, qtde, valor: real
inicio
 cod <- 0
   qtde <- 0
   valor <- 0
   escreva (" informe o codigo")
   leia (cod)
   se (cod = 100) entao
   escreva ("informe a quantidade")
   leia (qtde)
   valor <- (1.20 * qtde)
   escreva ("o valor do cachorro quente é", valor)
   fimse
    se (cod = 101) entao
    escreva ("informe a quantidade")
    leia (qtde)
    valor <- (1.30 * qtde)
    escreva ("o valor do bauru simples é", valor)
    fimse
      se (cod = 102) entao
      escreva ("informe a quantidade")
      leia (qtde)
      valor <- (1.50 * qtde)
      escreva ("o valor do bauru com ovo é", valor)
      fimse
        se (cod = 103) entao
        escreva ("informe a quantidade")
        leia (qtde)
        valor <- (1.20 * qtde)
        escreva ("o valor do hamburguer é", valor)
        fimse
           se (cod = 104) entao
           escreva ("informe a quantidade")
           leia (qtde)
           valor <- (1.30 * qtde)
           escreva ("o valor do cheeseburguer é", valor)
           fimse
              se (cod = 105) entao
              escreva ("informe a quantidade")
              leia (qtde)
              valor <- (1.00 * qtde)
              escreva ("o valor do refrigerante é", valor)
              fimse
fimalgoritmo
17. Tendo como dados de entrada a altura e o sexo de uma pessoa (?M? masculino e ?F? feminino), construa um algoritmo que calcule seu peso ideal, utilizando as seguintes fórmulas:
- para homens: (72.7*h)-58
- para mulheres: (62.1*h)-44.7
algoritmo "semnome"
var
altura:inteiro
sexo:caractere
feminino, masculino, peso :real
inicio
escreval("digite a altura")
leia(altura)
escreval("digite o  sexo")
leia(sexo)
se sexo="m"  entao
peso:=(72.7*altura)-58
escreval("peso ideal é",peso)
senao
peso:=(62.1*altura)-44.7
escreval("peso ideal é",peso)
fimse
fimalgoritmo
18. Um banco concederá um crédito especial aos seus clientes, variável com o saldo médio no último ano. Faça um algoritmo que leia o saldo médio de um cliente e calcule o valor do crédito de acordo com a tabela abaixo. Mostre uma mensagem informando o saldo médio e o valor do crédito. (use o comando caso-de e não faça repetições) 
	Saldo médio
	Percentual
	de 0 a 200
	nenhum crédito
	de 201 a 400
	20% do valor do saldo médio
	de 401 a 600
	30% do valor do saldo médio
	acima de 601
	40% do valor do saldo médio
Algoritmo "SALDO DE CRÉDITO"
Var
 SALDOMEDIO,VALORCREDITO:REAL
Inicio
ESCREVAL("DIGITE O SALDO MÉDIO DO CLIENTE:...")
LEIA(SALDOMEDIO)
SE SALDOMEDIO<=200 ENTAO
ESCREVAL("NENHUM CRÉDITO")
SENAO
SE ((SALDOMEDIO>200) E (SALDOMEDIO<=400)) ENTAO
VALORCREDITO<-SALDOMEDIO*0.2
ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)
SENAO
SE ((SALDOMEDIO>400) E (SALDOMEDIO<=600)) ENTAO
VALORCREDITO<-SALDOMEDIO*0.3
ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)
SENAO
SE SALDOMEDIO>600 ENTAO
VALORCREDITO<-SALDOMEDIO*0.4
ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)
FIMSE
FIMSE
FIMSE
FIMSE
Fimalgoritmo
19. Um usuário deseja um algoritmo onde possa escolher que tipo de média deseja calcular a partir de 3 notas. Faça um algoritmo que leia as notas, a opção escolhida pelo usuário e calcule a média.
1 –aritmética
2 -ponderada (3,3,4) 
–harmônica
Algoritmo "semnome"
Var
n1, n2, n3, media: real
opcao: caracter
inicio
escreva("Informe as 3 notas: ")
leia(n1)
leia(n2)
leia(n3)
escreva("Tipo de média desejada [A - Aritmética / B - Ponderada]: ")
leia(opcao)
se (opcao = "A") entao
media <- (n1 + n2 + n3) / 3
escreval("Média aritmética: ", media)
senao
se (opcao = "B") entao
media <- (n1 * 3 + n2 * 3 + n3 * 4) / 10
escreval("Média ponderada: ", media)
senao
escreval("Opção inválida")
fimse
fimse
fimalgoritmo
20. Um vendedor necessita de um algoritmo que calcule o preço total devido por um cliente. O algoritmo deve receber o código de um produto e a quantidade comprada e calcular o preço total, usando a tabela abaixo:
	Código do Produto
	Preço unitário
	1001
	5,32
	1324
	6,45
	6548
	2,37
	0987
	5,32
	7623
	6,45
Algoritmo "semnome"
Var
codigo, qtd, soma: real
inicio
Escreval("Informe o codigo do produto: ")
Leia(codigo)
Escreval("Informe a quantidade comprada: ")
Leia(qtd)
se (codigo = 1001) entao
soma <- (qtd * 5.32)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 1324) entao
soma <- (qtd * 6.45)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 6548) entao
soma <- (qtd * 2.37)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 987) entao
soma <- (qtd * 5.32)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 7623) entao
soma <- (qtd * 6.45)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
Escreval("Codigo Invalido")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
21. Um vendedor precisa de um algoritmo que calcule o preço total devido por um cliente. O algoritmo deve receber o código de um produto e a quantidade comprada e calcular o preço total, usando a tabela abaixo. Mostre uma mensagem no caso de código inválido.
	Código
	Preço unitário
	'ABCD'
	R$ 5,30
	'XYPK'
	R$ 6,00
	'KLMP'
	R$ 3,20
	'QRST'
	R$ 2,50
Algoritmo "semnome"
Var
codigo, qtd, soma: real
inicio
Escreval("Informe o codigo do produto: ")
Leia(codigo)
Escreval("Informe a quantidade comprada: ")
Leia(qtd)
se (codigo = 1001) entao
soma <- (qtd * 5.32)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 1324) entao
soma <- (qtd * 6.45)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 6548) entao
soma <- (qtd * 2.37)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 987) entao
soma <- (qtd * 5.32)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
se (codigo = 7623) entao
soma <- (qtd * 6.45)
Escreval("Produto do codigo", codigo, " com valor final: R$",soma)
senao
Escreval("Codigo Invalido")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
22. Uma empresa concederá um aumento de salário aos seus funcionários, variável de acordo com o cargo, conforme a tabela abaixo. Faça um algoritmo que leia o salário e o cargo de um funcionário e calcule o novo salário. Se o cargo do funcionário não estiver na tabela, ele deverá, então, receber 40% de aumento. Mostre o salário antigo, o novo salário e a diferença. 
	Código
	Cargo
	Percentual
	101
	Gerente
	10%
	102
	Engenheiro
	20%
	103
	Técnico
	30%
algoritmo "Exercicio 22 resolvido"
var
sal, cod, x: real
inicio
escreval("Digite o códgo de seu cargos e seu salário")
leia(cod)
leia(sal)
se(cod=101) entao
x<-sal+(sal*0.1)
senao
se(cod=102) entao
x<-sal+(sal*0.2)
senao
se(cod=103) entao
x<-sal+(sal*0.3)
senao
x<-sal+(sal*0.4)
fimse
fimse
fimse
escreval("Seu salário antigo era de",sal," Reais")
escreval("Seu novo salário é de",x," Reais")
escreval("A diferença é de",x-sal)
fimalgoritmo
23. Elaborar um algoritmo que lê 3 valores a,b,c e verifica se eles formam ou não um triângulo. Supor que os valores lidos são inteiros e positivos. Caso os valores formem um triângulo,calcular e escrever a área deste triângulo. Se não formam triângulo escrever os valores lidos. ( se a > b + c não formam triângulo algum, se a é o maior).
algoritmo "semnome"
var
l1, l2, l3: real
validade: logico
inicio
escreva ("Insira o lado 1 do triângulo: ")
leia (l1)
escreva ("Insira o lado 2 do triângulo: ")
leia (l2)
escreva ("Insira o lado 3 do triângulo: ")
leia (l3)
se (l1 < (l2 + l3)) e (l2 < (l1 + l3)) e (l3 < (l1 + l2)) entao
validade <- VERDADEIRO
senao
validade <- FALSO
fimse
se (validade = VERDADEIRO) entao
se (l1 = l2) e (l1 = l3) e (l2 = l3) entao
escreva ("Triângulo equilátero")
fimse
se (l1 <> l2) ou (l1 <> l3) ou (l2 <> l3) entao
escreva ("Triângulo isóceles")
fimse
se (l1 <> l2) e (l1 <> l3) e (l2 <> l3) entao
escreva ("Triângulo escaleno")
fimse
senao
escreva ("Não é um triângulo")
fimse
fimalgoritmo
24. Escrever um algoritmo que lê a hora de início de um jogo e a hora do final do jogo (considerando apenas horas inteiras) e calcula a duração do jogo em horas, sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.
algoritmo "horainicialefinal"
var
dur,hi,hf:inteiro
inicio
Escreva("Hora inicio: ")
Leia(hi)
Escreva("Hora final: ")
Leia(hf)
dur <- hf - hi
se (hi > hf ) entao
dur <- (24 - hi ) + hf
fimse
Escreva("Total de horas: ",dur)
Fimalgoritmo
25. Escrever um algoritmo que lê um conjunto de 4 valores i, a, b, c, onde i é um valor inteiro e positivo e a, b, c, são quaisquer valores reais e os escreva. A seguir: 
a) Se i=1 escrever os três valores a, b, c em ordem crescente. 
b) Se i=2 escrever os três valores a, b, c em ordem decrescente. 
c) Se i=3 escrever os três valores a, b, c de forma que o maior entre a, b, c fique dentre os dois.
Algoritmo "VALORES LINEAR"
var
i : inteiro
a,b,c : real
inicio
// Seção de Comandos
escreval ("ESCOLHA 1,2 OU 3")
LEIA (I)
se (i = 1) entao
escreval ("digite 3 números")
leia (a)
leia (B)
leia (c)
fimse
se (a > B) e (b > c) entao
escreval ("essa é a ordem crescente dos numeros citados : ",c,b,a)
fimse
se (a > c) e (c > B) entao
escreval ("essa é a ordem crescente dos numeros citados : ",b,c,a)
fimse
se (b > a ) e (a > c) entao
escreval ("essa é a ordem crescente dos numeros citados : ",c,a,B)
fimse
se (b > c) e (c > a) entao
escreval ("essa é a ordem crescente dos numeros citados : ",a,c,B)
fimse
se (c > a) e (a > B) entao
escreval ("essa é a ordem crescente dos numeros citados : ",b,a,c)
fimse
se (c > B) e (b > a) entao
escreval ("essa é a ordem crescente dos numeros citados : ",a,b,c)
fimse
se (i = 2) entao
escreval ("digite 3 números")
leia (a)
leia (B)
leia (c)
fimse
se (a > B) e (b > c) entao
escreval ("Essa é a ordem Decrescente dos números citados : ",a,b,c)
fimse
se (a > c) e (c > B) entao
escreval ("Essa é a ordem Decrescente dos números citados : ",a,c,B)
fimse
se (b > a ) e (a > c) entao
escreval ("essa é a ordem Decrescente dos números citados : ",b,a,c)
fimse
se (b > c) e (c > a) entao
escreval ("Essa é a ordem Decrescente dos números citados : ",b,c,a)
fimse
se (c > a) e (a > B) entao
escreval ("Essa é a ordem Decrescente dos números citados : ",c,a,B)
fimse
se (c > B) e (b > a) entao
escreval ("Essa é a ordem Decrescente dos números citados : ",c,b,a)
fimse
se (i = 3) entao
escreval ("digite 3 números")
leia (a)
leia (B)
leia (c)
fimse
se (a > B) e (b > c) entao
escreval ("Ordem em que o maior número citado fica no meio dos outros valores: ",b,a,c)
fimse
se (a > c) e (c > B) entao
escreval ("Ordem em que o maior número citado fica no meio dos outros valores: ",c,a,B)
fimse
se (b > a ) e (a > c) entao
escreval ("Ordem em que o maior número fica no meio dos outros valores: ",a,b,c)
fimse
se (b > c) e (c > a) entao
escreval ("Ordem em que o maior número fica no meio dos outros valores: ",c,b,a)
fimse
se (c > a) e (a > B) entao
escreval ("Ordem em que o maior número fica no meio dos outros valores: ",a,c,B)
fimse
se (c > B) e (b > a) entao
escreval ("Ordem em que o maior número fica no meio dos outros valores: ",b,c,a)
fimse
fimalgoritmo
26. Escrever um algoritmo que lê um valor em reais e calcula qual o menor número possível de notas de 100, 50, 10, 5 e 1 em que o valor lido pode ser decomposto. Escrever o valor lido e a relação de notas necessárias.
Algoritmo "TROCANDO AS NOTAS"
var
 x100, x50, x20, x10, x5, x2, x1, xValor : Inteiro;
inicio
Escreval("Informe um valor inteiro em Reais:")
Leia(xValor)
x100 <- xValor div 100
xValor <- xValor - x100 * 100
 x50 <- xValor div 50;
 xValor <- xValor - x50 * 50
 x20 <- xValor div 20;
 xValor <- xValor - x20 * 20
 x10 <- xValor div 10;
 xValor <- xValor - x10 * 10
 x5 <- xValor div 5;
 xValor <- xValor - x5 * 5
 x2 <- xValor div 2;
 xValor <- xValor - x2 * 2
 x1 <- xValor;
 Escreval("O número de notas de 100 são:", x100)
 Escreval("O número de notas de 50 são:", x50)
 Escreval("O número de notas de 20 são:", x20)
 Escreval("O número de notas de 10 são:", x10)
 Escreval("O número de notas de 5 são:", x5)
 Escreval("O número de notas de 2 são:", x2)
 Escreval("O número de notas de 1 são:", x1)
fimalgoritmo
27. Escrever um algoritmo que lê:
- a percentagem do IPI a ser acrescido no valor das peças 
- o código da peça 1, valor unitário da peça 1, quantidade de peças 1 
- o código da peça 2, valor unitário da peça 2, quantidade de peças 2
O algoritmo deve calcular o valor total a ser pago e apresentar o resultado.
Fórmula : (valor1*quant1 + valor2*quant2)*(IPI/100 + 1)
Algoritmo "VALOR DAS PEÇAS"
Var
	COD1, COD2: caracter
 X1, X2 : inteiro
VALORX1, VALORX2, TOTAL1, TOTAL2,TOTAL, Y: Real
Inicio
	ESCREVAL("informe o código, a quantidade de peças vendidas e o valor Unitário da peça 1:")
		LEIA(COD1)
		LEIA(X1)
		LEIA(VALORX1)
TOTAL1<-COD1*VALORX1
	ESCREVAL("informe o código, a quantidade de peças vendidas e o valor Unitário da peça 2:")
		LEIA(COD2)
 LEIA(X2)
 LEIA(VALORX2)
TOTAL2<-COD2*VALORX2
	ESCREVAL("Informe o percentual de desconto IPI:")
		LEIA(Y)
TOTAL<-(VALORX1*X1+VALORX2*X2)*(Y/100 + 1)
		ESCREVAL("O total pago pela compra foi",TOTAL)
fimalgoritmo
28. Escrever um algoritmo que lê a hora de início e hora de término de um jogo, ambas subdivididas em dois valores distintos : horas e minutos. Calcular e escrever a duração do jogo, também em horas e minutos, considerando que o tempo máximo de duração de um jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.
Algoritmo "semnome"
Var
hi, mi, hf, mf, hd, md: inteiro
inicio
escreva("Informe o horário de início: ")
leia(hi)
leia(mi)
escreva("Informe o horário de fim: ")
leia(hf)
leia(mf)
hd <- hf - hi
md <- mf - mi
se (hd < 0) entao
hd <- hd + 24
fimse
se (md < 0) entao
md <- md + 60
hd <- hd - 1
fimse
escreva("Duração: ", hd, ":", md)
fimalgoritmo
29. Escrever um algoritmo que lê o número de identificação, as 3 notas obtidas por um aluno nas 3 verificações e a média dos exercícios que fazem parte da avaliação. Calcular a média de aproveitamento, usando a fórmula:
MA = (Nota1 + Nota2 x 2 + Nota3 x 3 + ME )/7
A atribuição de conceitos obedece a tabela abaixo:
	Média de Aproveitamento
	Conceito
	9,0
	A
	7,5 e < 9,0
	B
	6,0 e < 7,5
	C
	4,0 e < 6,0
	D
	< 4,0
	E
O algoritmo deve escrever o número do aluno, suas notas, a média dos exercícios, a média de aproveitamento, o conceito correspondente e a mensagem: APROVADO se o conceito for A,B ou C e REPROVADO se o conceito for D ou E.
Algoritmo "semnome"
var
numeroid:real
nota1,nota2,nota3,exercicios:inteiro
media:real
inicio
Escreval ("Digite o numero de identificação:")
Leia (numeroid)
Escreval ("Digite a primeira nota:")
Leia (nota1)
Escreval("Digite a segunda nota:")
Leia (nota2)
Escreval ("Digite a terceira nota:")
Leia (nota3)
Escreval("Digite a média dos exercícios:")
Leia (exercicios)
media:=(nota1+nota2+nota3+exercicios)/...Escreval ("A média de aproveitamento é:",media)
se media>=9 entao
Escreval("Conceito A, aluno APROVADO")
fimse
se (media>=7.5) e (media<9) entao
Escreval ("Conceito B, aluno APROVADO")
fimse
se (media>=6) e (media<7.5) entao
Escreval ("Conceito C, aluno APROVADO")
fimse
se (media>=4) e (media<6) entao
Escreval ("Conceito D, aluno REPROVADO")
fimse
se media<4 entao
Escreval ("Conceito E, aluno REPROVADO")
fimse
fimalgoritmo
30. O departamento que controla o índice de poluição do meio ambiente mantém 3 grupos de indústrias que são altamente poluentes do meio ambiente. O índice de poluição aceitável varia de 0,05 até 0,25. Se o índice sobe para 0,3 as indústrias do 1o grupo são intimadas a suspenderem suas atividades, se o índice cresce para 0,4 as do 1o e 2o grupo são intimadas a suspenderem suas atividades e se o índice atingir 0,5 todos os 3 grupos devem ser notificados a paralisarem suas atividades. Escrever um algoritmo que lê o índice de poluição medido e emite a notificação adequada aos diferentes grupos de empresas.
Algoritmo "semnome"
Var
INDUSTRIA:REAL
inicio
ESCREVA("DIGITE O INDICE DE POLUIÇÃO:")
LEIA(INDUSTRIA)
SE(INDUSTRIA>=0.05)E (INDUSTRIA<=0.25) ENTAO
ESCREVA ("INDICE DENTRO DOS PADRÕES ACEITAVEIS.")
SENAO
SE(INDUSTRIA>0.25) E (INDUSTRIA<0.4) ENTAO
ESCREVA ("PARALIZA AS ATIVIDADES SOMENTE DO 1º GRUPO")
SENAO
SE(INDUSTRIA>=0.4) E (INDUSTRIA<0.5) ENTAO
ESCREVA ("PARALIZA AS ATIVIDADES DO 1º E 2º GRUPO")
SENAO
SE(INDUSTRIA>=0.5) ENTAO
ESCREVA ("PARALIZA AS ATIVIDADES DOS TRES GRUPOS DE INDUSTRIAS")
FIMSE
FIMSE
FIMSE
FIMSE
fimalgoritmo
31. Escrever um algoritmo que calcule os sucessivos valores de E usando a série abaixo e considerando primeiro 3 termos, depois 4 termos e, por fim, 5 termos:  
E = 1 + 1 / 1! + 1 / 2! + 1 / 3! + 1 / 4!
algoritmo "valor E"
var
n : inteiro
s :real
inicio
escreval("entre com o valor de n: ")
leia (n)
s := 1/n + (2/(n-1)) + (3/(n-2)) + ((n-1)/2) + n
escreval ("o valor de s = ",s)
Fimalgoritmo
32. Ler três notas de um aluno, calcular a média e informar se ele foi aprovado (Média ≥7), reprovado (Média < 7) ou aprovado com louvor (Média = 10)
algoritmo "Exercicio 32"
var
x, y, z, media:real
inicio
escreval ("Digite sua três notas")
leia (x)
leia (y)
leia (z)
media<-(x+y+z)/3
se (media=10) entao
escreval ("Aprovado por Louvor")
senao
se (media>=7) entao
escreval ("Aprovado")
senao
se (media<7) entao
escreval ("Reprovado")
fimse
fimse
fimse
fimalgoritmo
33.Fazer um algoritmo que:
•Leia um número indeterminado de linhas contendo cada uma a idade de um indivíduo.
•A última linha que não entrará nos cálculos, contém o valor da idade igual a zero.
•Calcule e escreva a idade média deste grupo de indivíduos.
•Escreva também a maior idade e a menor
algoritmo "valor E"
 var
IDADE, N :inteiro
MEDIA, SOMA : real
inicio
SOMA<-0 n<-0
ENQUANTO idade<>0 Faca
ESCREVAL ("informe a idade")
leia (IDADE)
SOMA<- SOMA + IDADE
N<- N + 1
 fimenquanto
 MEDIA <- SOMA / N
 escreval ( "A idade media é ", MEDIA )
Fimalgoritmo
34.Faça um algoritmo que calcule a soma dos números inteiros de 1 a 100.
algoritmo "semnome"
var
i:inteiro
soma:real
inicio
para i de 1 ate 100 faca 1 faca
escreval(i ," ")
soma <- soma + i
fimpara
escreval("A soma dos números é de: ", soma)
fimalgoritmo
35.Fazer um algoritmo para calcular e escrever a soma dos cubos dos números pares compreendidos entre B e A (B > A). B e A são lidos pelo teclado.
algoritmo "Exercício"
var
a, b, n, aux, soma: inteiro
inicio
escreva("Informe A: ")
leia(a)
escreva("Informe B: ")
leia(b)
se (a > b) entao
aux <- a
a <- b
b <- aux
fimse
soma <- 0
para n de a ate b faca
se (n % 2 = 0) entao
soma <- soma + n*3
fimse
fimpara
escreval("Soma do cubo dos pares em [", a, ", ", b, "] = ", soma)
fimalgoritmo
36.Faça um algoritmo que lê uma temperatura em Fahrenheit e calcula a temperatura correspondente em Celsius. Ao final o programa deve exibir as duas temperaturas.
–Usar a fórmula: C = (5 * (F-32) / 9)
Algoritmo "TEMPERATURA"
var
C,F :real
inicio
// Seção de Comandos
escreval ("Valor em graus Fahrenheit")
leia(F)
C<- (5 * (F-32) / 9)
escreval ("O valor em Fahrenheit é:",F)
escreval ("O valor em Fahrenheit é:",C)
fimalgoritmo
37.Numa eleição existem três candidatos identificados pelos números 1, 2 e 3. Faça um algoritmo que compute o resultado de uma eleição. Inicialmente o programa deve pedir o número total de votantes. Em seguida, deve pedir para cada votante votar (informando o numero do candidato) e ao final mostrar o número de votos de cada candidato.
Algoritmo "semnome"
Var
I, QTDELEITOR, VOTO, CAND1, CAND2, CAND3, NULO :INTEIRO
Inicio
 // Seção de Comandos, procedimento, funções, operadores, etc...
ESCREVAL("QUAL A QUANTIDADE DE ELEITORES?")
LEIA(QTDELEITOR)
ESCREVAL("--------------------------------------")
PARA I:=1 ATE QTDELEITOR FACA
ESCREVAL("ELEITOR NUMERO: ",I)
ESCREVAL("DIGITE O NUMERO DO SEU CANDIDATO")
ESCREVAL("DIGITE 1 - PARA O CANDIDATO 01")
ESCREVAL("DIGITE 2 - PARA O CANDIDATO 02")
ESCREVAL("DIGITE 3 - PARA O CANDIDATO 03")
ESCREVAL("--------------------------------------")
LEIA(VOTO)
SE VOTO = 1 ENTAO
CAND1:=CAND1+1
SENAO
SE VOTO =2 ENTAO
CAND2:=CAND2+1
SENAO
SE VOTO=3 ENTAO
CAND3:=CAND3+1
SENAO
NULO:=NULO+1
FIMSE
FIMSE
FIMSE
FIMPARA
LIMPATELA
ESCREVAL("--------------------------------------")
ESCREVAL("O NUMERO DE ELEITORES É: ",QTDELEITOR)
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 1 RECEBEU: ",CAND1,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 2 RECEBEU: ",CAND2,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("O CANDIDATO 3 RECEBEU: ",CAND3,"VOTOS")
ESCREVAL("--------------------------------------")
ESCREVAL("HOUVERAM: ",NULO," VOTOS NULOS")
Fimalgoritmo
38. Anacleto tem 1,50m e cresce 2 centímetros por ano, enquanto Felisberto tem 1,10 e cresce 3 centímetros por ano. Construa um programa que calcule e apresente quantos anos serão necessários para que Felisberto seja maior que Anacleto.
Algoritmo "semnome"
Var
altura1,altura2:real
c:inteiro
inicio
altura1<-1.50
altura2<-1.10
c<-0
enquanto (altura1>altura2) faca
altura1<-altura1+0.02
altura2<-altura2+0.03
c<-c+1
fimenquanto
Escreval("Daqui a",c," anos Felisberto será maior que Anacleto.")
fimalgoritmo
39. Construa um programa que exiba a tabuada de 1 até N.
algoritmo "Exercício"
var
 i, n, b: inteiro
inicio
I<-1
 escrevaL("Informe o valor de N: ")
 leia(n)
ENQUANTO I<=N faca
 escreva(i, " x ", n, " = ", i * n)
i<-i+1
 fimenquanto
fimalgoritmo
40. Fazer um algoritmo para calcular e escrever a seguinte soma: 
37x38/1 + 36x37/2 + 35x36/2 + ... + 1x2/37
algoritmo "Exercicio 40"
var
i, s, ns:real
x: caracter
inicio
escreval ("Digite para Iniciarmos a soma")
leia (x)
ns<-0
i<-0
enquanto (i<37) faca
s<-(37-i)*(38-i)/(1+i)
ns<-s+ns
i<-i+1
fimenquanto
escreva (ns)
fimalgoritmo
41. Tem-se um conjunto de dados contendo a altura e o sexo (masculino, feminino) de 50 pessoas. Fazer um algoritmo que calcule e escreva: 
•-a maior e a menor altura do grupo; 
•-a média de altura das mulheres; 
•-o número de homens;
•-A porcentagem de homens e de mulheres.
algoritmo "semnome"
var
S1 :caracter
HH, HM, HTM, HTH, I, NH, NM :REAL
inicio
I<-1 NH<-0 NM<-0
ENQUANTO (I<=3)FACA
ESCREVAL ("ESCOLHA O SEXO, MASCULINO OU FEMININO")
LEIA (S1)
SE (S1="FEMININO")ENTAO
ESCREVAL ("DIGITE A ALTURA")
LEIA (HM)
 HTM<-HTM+HM
 NM<-NM+1
SENAO
ESCREVAL("DIGITE A ALTURA")
LEIA (HH)
HTH<-HH+HTH
NH<-NH+1
FIMSE
I<-I+1
FIMENQUANTO
ESCREVAL ("A ALTURA MÉDIA FEMININA SERÁ DE ",(HTM/NM) )
ESCREVAL ("O NÚMERO DE HOMENS SERÁ", NH )
fimalgoritmo
42. Escreva um algoritmo que armazene o valor 10 em uma variável A e o valor 20 em uma variável B. A seguir (utilizando apenas atribuições entre variáveis) troque os seus conteúdos fazendo comque o valor que está em A passe para B e vice-versa. Ao final, escrever os valores que ficaram armazenados nas variáveis.
Escreva um algoritmo para ler um valor (do teclado) e escrever (na tela) o seu antecessor.
algoritmo "Exercicio 42"
 var
 a, b, c : inteiro
 inicio
 leia(a)
 leia(b) 
 c <- a
 a <- b
 b <- c
 escreval ("variavel a: ",a)
 escreval ("variavel b: ",b)
 fimalgoritmo
43. Escreva um algoritmo para ler as dimensões de um retângulo (base e altura), calcular e escrever a
área do retângulo.
algoritmo "semnome"
var
base, altura, area:real
inicio
escreval("digite a medida da base do retangulo")
leia(base)
escreval("digite a altura do retangulo")
leia(altura)
area<- altura*base
escreval("area do retangulo",area)
44. Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e escreva a idade
dessa pessoa expressa apenas em dias. Considerar ano com 365 dias e mês com 30 dias.
Algoritmo "IDADE"
Var
A,M,D,X :REAL
INICIO
escreval("DIGITE O ANO DE SEU NASCIMENTO")
leia(A)
escreval("DIGITE O MEÊS DE SEU NASCIMENTO")
leia(M)
escreval("DIGITE O DIA DO SEU NASCIMENTO")
leia(D)
X<-(D+((2019-A)*365)+((12-M)*30))
escrevaL("Sua idade em dias é:",X)
fimalgoritmo
45. Escreva um algoritmo para ler o número total de eleitores de um município, o número de votos
brancos, nulos e válidos. Calcular e escrever o percentual que cada um representa em relação ao total
de eleitores.
Algoritmo "porcentagem de votos"
Var TotalEleitores, VotoBranco, VotoValido, VotoNulo, PorcBranco, PorcNulo, PorcValido :real
Inicio
Escreval("Digite o número total de eleitores do município:")
Leia (TotalEleitores)
Escreval ("Digite o número de votos brancos:")
Leia (VotoBranco)
Escreval ("Digite o número de votos nulos")
Leia (VotoNulo)
Escreval ("Digite o número de votos válidos:")
Leia(VotoValido)
PorcBranco<-(100*VotoBranco)/TotalEleitores
PorcNulo<-(100*VotoNulo)/TotalEleitores
PorcValido<-(100*VotoValido)/TotalEleitores
Escreval ("Votos Brancos:", PorcBranco, "%")
Escreval ("Votos Nulos:", PorcNulo, "%")
Escreval ("Votos Válidos", PorcValido, "%")
fimalgoritmo
46 Escreva um algoritmo para ler o salário mensal atual de um funcionário e o percentual de reajuste. Calcular e escrever o valor do novo salário.
algoritmo "novo salario"
var
 salarioatual, percreajuste, novosalario :real
inicio
 escreval("Digite o sálario atual: ")
 leia(salarioatual)
 escreval("Digite o Reajuste: 1")
 leia(percreajuste)
 novosalario<- (salarioatual*percreajuste)
 escreval("O novo salario é: ",novosalario+salarioatual,)
fimalgoritmo
47 O custo de um carro novo ao consumidor é a soma do custo de fábrica com a porcentagem do distribuidor e dos impostos (aplicados ao custo de fábrica). Supondo que o percentual do distribuidor seja de 28% e os impostos de 45%, escrever um algoritmo para ler o custo de fábrica de um carro, calcular e escrever o custo final ao consumidor. 
Algoritmo "Custo Do Carro"
Var X,Y,Z:REAL
Inicio
ESCREVAL ("DIGITE O VALOR DE FÁBRICA DO CARRO")
LEIA (X)
Y<-X*0.28
Z<-X*0.45
ESCREVAL ("O CUSTO DO CONSUMIDOR SERÁ DE",X+Y+Z)
Fimalgoritmo
48 Uma revendedora de carros usados paga a seus funcionários vendedores um salário fixo por mês, mais uma comissão também fixa para cada carro vendido e mais 5% do valor das vendas por ele efetuadas. Escrever um algoritmo que leia o número de carros por ele vendidos, o valor total de suas vendas, o salário fixo e o valor que ele recebe por carro vendido. Calcule e escreva o salário final do vendedor.
Ler um valor e escrever a mensagem É MAIOR QUE 10! se o valor lido for maior que 10, caso contrário escrever NÃO É MAIOR QUE 10!
algoritmo "Exercício"
var
numcarrosvend, totalvenda, salariofixo, comissao, salariofinal :real
inicio
escreva("Salário fixo: ")
leia(salariofixo)
escreval("Total de vendas em Reais: ")
leia(totalvenda)
escreval("Número de carro vendidos: ")
leia(numcarrosvend)
escreval("Comissão em Reais:")
leia(comissao)
salariofinal<-(numcarrosvend*comissao)+(totalvenda*0.05)+salariofixo
escreval("Salário final: ",salariofinal)
se numcarrosvend>10 entao
escreval ("É MAIOR QUE 10")
senao
escreval ("NÃO É MAIOR QUE 10")
fimse
fimalgoritmo
49 Ler um valor e escrever se é positivo ou negativo (considere o valor zero como positivo).
algoritmo "semnome"
var
X :REAL
inicio
ESCREVAL ("DIGITE UM NÚMERO")
LEIA (X)
Se Numero =>0 ENTAO
ESCREVAL("O número é positivo")
Senao
escreval("O número é negativo")
FimSe
fimalgoritmo
50 As maçãs custam R$ 1,30 cada se forem compradas menos de uma dúzia, e R$ 1,00 se forem compradas pelo menos 12. Escreva um programa que leia o número de maçãs compradas, calcule e escreva o custo total da compra.
algoritmo "Exercicio 50"
var
m, x:real
inicio
escreval ("Quantas maças foram compradas?")
leia(m)
se(m<12) entao
x<-m*1.3
senao
x<-m*1
fimse
escreval ("Foram Compradas",m," Maças e o Custo total foi de ",x," Reais")
fimalgoritmo
51 Ler as notas da 1a. e 2a. avaliações de um aluno. Calcular a média aritmética simples e escrever uma mensagem que diga se o aluno foi ou não aprovado (considerar que nota igual ou maior que 6 o aluno é aprovado). Escrever também a média calculada.
algoritmo "Aluno"
var
na,disc,nc:caractere
n1,n2,n3,m:real
f:inteiro
inicio
escreval ("Nome do aluno: ")
leia (na)
escreval ("Nome da disciplina: ")
leia (disc)
escreval ("Curso: ")
leia (nc)
escreval ("Nota da N1: ")
leia (n1)
escreval ("Nota da N2: ")
leia (n2)
escreval ("Nota da N3: ")
leia (n3)
escreval ("Quantidade de faltas: ")
leia (f)
m <- (n1+n2+n3)/3
se (m<6) ou (f>20) entao
 escreval ("Nome: ",na," Disciplina: ",disc," Quantidade de faltas: ",f," Reprovado",m)
senao
 escreval ("Nome: ",na," Disciplina: ",disc," Quantidade de faltas: ",f," Aprovado",m)
fimse
fimalgoritmo
52 Ler o ano atual e o ano de nascimento de uma pessoa. Escrever uma mensagem que diga se ela poderá ou não votar este ano (não é necessário considerar o mês em que a pessoa nasceu).
Algoritmo "IDADE"
Var
anos, meses, dias: inteiro
inicio
escreval("Digite os anos: ")
leia (anos)
escreval("Digite os meses: ")
leia (meses)
escreval("Digite os dias: ")
leia (dias)
anos <-(anos*360)
meses <-(meses*30)
dias <-(dias+meses+anos)
Escreva("A sua idade em dias é de",dias)
Fimalgoritmo
53 Ler dois valores (considere que não serão lidos valores iguais) e escrever o maior deles.
algoritmo "MAIOR VALOR"
var
num1, num2 : inteiro
inicio
escreval("Digite o primeiro numero.")
leia(num1)
escreval("Digite o segundo numero.")
leia(num2)
se (num1 < num2) entao
escreval(num1, ", ",num2)
senao
escreval(num2, ", ",num1)
fimse
fimalgoritmo
54 Ler dois valores (considere que não serão lidos valores iguais) e escrevê-los em ordem crescente.
algoritmo "Crescente"
var
num1, num2 : inteiro
inicio
escreval("Digite o primeiro numero.")
leia(num1)
escreval("Digite o segundo numero.")
leia(num2)
se (num1 < num2) entao
escreval(num1, ", ",num2)
senao
escreval(num2, ", ",num1)
fimse
fimalgoritmo
55 Ler a hora de início e a hora de fim de um jogo de Xadrez (considere apenas horas inteiras, sem os minutos) e calcule a duração do jogo em horas, sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.
 algoritmo "semnome"
var
dur,hi,hf:inteiro
inicio
Escreva("Hora inicio: ")
Leia(hi)
Escreva("Hora final: ")
Leia(hf)
dur <- hf - hi
se (hi > hf ) entao
dur <- (24 - hi ) + hf
fimse
Escreva("Total de horas: ",dur)
Fimalgoritmo
56 A jornada de trabalho semanal de um funcionário é de 40 horas. O funcionário que trabalhar mais de 40 horas receberá hora extra, cujo cálculo é o valor da hora regular com um acréscimo de 50%. Escreva um algoritmo que leia o número de horas trabalhadas em um mês, o salário por hora e escreva o salário total do funcionário, que deverá ser acrescido das horas extras, caso tenham sidotrabalhadas
(considere que o mês possua 4 semanas exatas).
algoritmo "SALÁRIO"
var
salario_hora, horas_trabalhadas, horas_extras, salario_hora_extra :real
salario_extra, salario_final:real
inicio
escreval("Horas trabalhadas no mês: ")
leia(horas_trabalhadas)
escreval("Salário por hora de trabalho: ")
leia(salario_hora)
horas_extras <- horas_trabalhadas - 160
salario_hora_extra <- salario_hora * 1.5
salario_extra <- salario_hora_extra * horas_extras
salario_final <- (salario_hora_extra * horas_extras) + (160 * salario_hora)
escreval("Salário : ", 160*salario_hora)
escreval("Salário das horas extras : ", salario_extra)
escreval("Salário final : ",salario_final)
fimalgoritmo
57 Para o enunciado a seguir foi elaborado um algoritmo em Português Estruturado que contém erros, identifique os erros no algoritmo apresentado abaixo:
Enunciado: Tendo como dados de entrada o nome, a altura e o sexo (M ou F) de uma pessoa, calcule e mostre seu peso ideal, utilizando as seguintes fórmulas:
- para sexo masculino: peso ideal = (72.7 * altura) - 58
- para sexo feminino: peso ideal = (62.1 * altura) - 44.7
algoritmo "peso ideal"
var
 idealmulher, idealhomem, altura: Real
 sexo :caracter
Inicio
 escreva "Escreva a altura:"
 leia(altura)
 escreva "Escreva o sexo:"
 leia(sexo)
se (sexo=masculino) entao
 idealhomem<-(72.7*altura)
 escreva ("O peso ideal é" , idealhomem)
senão se (sexo = feminino) entao
 idealmulher<-(62.1*altura)
 escreva ("O peso ideal é" , idealmulher)
Fimalgoritmo
58 Ler o salário fixo e o valor das vendas efetuadas pelo vendedor de uma empresa. Sabendo-se que ele recebe uma comissão de 3% sobre o total das vendas até R$ 1.500,00 mais 5% sobre o que ultrapassar este valor, calcular e escrever o seu salário total.
Algoritmo "salario"
var
salario,vendas,a,b,c:real
inicio
escreva("Digite o seu salario")
leia(salario)
escreva("total de vendas")
leia(vendas)
se vendas>1500 entao
a<- vendas*0.05
b<- salario+a
escreva("Salario total ",b)
senao
a<- vendas*0.03
b <- salario+a
escreva("Salario total ",b)
fimse
fimalgoritmo
59 Faça um algoritmo para ler: número da conta do cliente, saldo, débito e crédito. Após, calcular e escrever o saldo atual (saldo atual = saldo - débito + crédito). Também testar se saldo atual for maior ou igual a zero escrever a mensagem 'Saldo Positivo', senão escrever a mensagem 'Saldo Negativo'.
algoritmo "saldo"
 var conta, saldo, debito, credito, saldo_atual :real
 inicio
 escreval("informe conta, saldo, debito e credito do cliente")
 leia(conta, saldo, debito, credito)
 saldo_atual<- (saldo - debito)+credito
 se saldo_atual >= 0 entao
 escreval("Saldo Positivo")
 senao
 escreval("Saldo Negativo")
 fimse
 fimalgoritmo
60 Faça um algoritmo para ler: quantidade atual em estoque, quantidade máxima em estoque e quantidade mínima em estoque de um produto. Calcular e escrever a quantidade média ((quantidade média = quantidade máxima + quantidade mínima)/2). Se a quantidade em estoque for maior ou igual a quantidade média escrever a mensagem 'Não efetuar compra', senão escrever a mensagem 'Efetuar compra'.
algoritmo "somas"
VAR
QE, QMAX, QMIN:INTEIRO
QME:REAL
 inicio
 escreval ("quantidade atual em estoque")
 leia (QE)
ESCREVAL ("quantidade máxima em estoque")
 leia (QMAX)
ESCREVAL ("quantidade mínima em estoque")
 leia (QMIN)
QME<- ((QMAX+QMIN)/2)
ESCREVAL("QUANTIDADE MÉDIA", QME )
SE QE>=QME ENTAO
ESCREVAL ("Não efetuar compra")
SENAO
ESCREVAL ("Efetuar compra")
FIMSE
fimalgoritmo
61 Ler um valor e escrever se é positivo, negativo ou zero.
algoritmo "Exercicio 61"
var
x:real
inicio
escreval ("Digite um numero")
leia (x)
se (x=0) entao
escreval ("Numero digitado é igual a zero")
senao
se (x>0) entao
escreval ("Numero Positivo")
senao
se (x<0) entao
escreval ("Numero Negativo")
fimse
fimse
fimse
fimalgoritmo
62 Ler 3 valores (considere que não serão informados valores iguais) e escrever o maior deles.
algoritmo "3 VALORES"
var
 valor1, valor2, valor3 :inteiro
INICIO
 escreval("Digite o valor 1: ")
   leia(valor1)   
escreval("Digite o valor 2: ")
   leia(valor2)   
escreval("Digite o valor 3: ")
   leia(valor3)
   se ((valor1) > (valor2) e (valor3)) entao
      escreval ("Maior valor é ", valor1)
      senao 
     se ((valor2) > (valor1) e (valor3)) entao
       escreval("Maior valor é ", valor2)     
 senao
       se ((valor3) > (valor2) e (valor1)) entao
       escreval("Maior valor é ", valor3)     
 fimse     
 fimse
      fimse             
Fimalgoritmo
63 Ler 3 valores (considere que não serão informados valores iguais) e escrever a soma dos 2 maiores.
algoritmo "2 MAIORES VALORES"
var
a, b, c: inteiro
inicio
leia(a)
leia(b)
leia(c)
se (a<b e a<c) entao
escreva(b+c)
senao
se (b<a e b<c) entao
escreva(a+c)
senao
escreva(a+b)
fimse
fimse
Fimalgoritmo
64 Ler 3 valores (considere que não serão informados valores iguais) e escrevê-los em ordem crescente.
 algoritmo "semnome"
var
num1, num2, num3 : inteiro
inicio
escreval("Digite o primeiro numero.")
leia(num1)
escreval("Digite o segundo numero.")
leia(num2)
escreval("Digite o terceiro numero.")
leia(num3)
se (num1 < num3)entao
escreval(num1, ", ",num3)
senao
escreval(num3, ", ",num1)
fimse
fimalgoritmo
65 Ler 3 valores (A, B e C) representando as medidas dos lados de um triângulo e escrever se formam ou não um triângulo. OBS: para formar um triângulo, o valor de cada lado deve ser menor que a soma dos outros 2 lados.
  algoritmo "semnome"
var
a,b,c:real
inicio
escreval (" Digite A B C")
leia (a,b,c)
se (a < b + c) ou (b < a + c) ou (c < a + b) então
escreval ("É triângulo")
senao
escreval ("Não é triangulo")
fimse
66 Ler o nome de 2 times e o número de gols marcados na partida (para cada time). Escrever o nome do vencedor. Caso não haja vencedor deverá ser impressa a palavra EMPATE.
Algoritmo "ValidadorDePartida"
Var
 golstime1, golstime2:inteiro
 nometime1, nometime2 :caracter
Inicio
escreval("Digite o nome do time 1")
leia(nometime1)
escreval("Digite o numero de gols feitos (time 1)")
leia(golstime1)
escreval("Digite o nome do time 2")
leia(nometime2)
escreval("Digite o numero de gols feitos (time 2)")
leia(golstime2)
se (golstime1 > golstime2) entao
escreval(nometime1," ganhou")
fimse
se (golstime1 < golstime2) entao
escreval(nometime2," ganhou")
fimse
se (golstime1 = golstime2) entao
escreval("empate")
fimse
Fimalgoritmo
67 Ler dois valores e imprimir uma das três mensagens a seguir:
‘Números iguais’, caso os números sejam iguais
‘Primeiro é maior’, caso o primeiro seja maior que o segundo;
‘Segundo maior’, caso o segundo seja maior que o primeiro.
Algoritmo "semnome"
Var
numero1, numero2 :INTEIRO
Inicio 
escreval("Digite o primeiro numero") 
leia(numero1) 
escreval("Digite o segundo numero") 
leia(numero2) 
se numero1=numero2 ENTAO
escreval("Numeros iguais") 
SENAO 
se numero1>numero2 ENTAO
escreval("O primeiro e maior") 
SENAO 
escreval("O sgundo e maior") 
FIMSE
FIMSE 
Fimalgoritmo
68 Um posto está vendendo combustíveis com a seguinte tabela de descontos:
até 20 litros, desconto de 3% por litro Álcool acima de 20 litros, desconto de 5% por litro até 20 litros, desconto de 4% por litro Gasolina acima de 20 litros, desconto de 6% por litro Escreva um algoritmo que leia o número de litros vendidos e o tipo de combustível (codificado da seguinte forma: A-álcool, G-gasolina), calcule e imprima o valor a ser pago pelo cliente sabendo-se que o preço do litro da gasolina é R$ 3,30 e o preço do litro do álcool é R$ 2,90.
algoritmo "posto de gasolina e alcool"
var
litro,precoA,precoG,total:real
combustivel:inteiro
inicio
precoA<-2.9
precoG<-3.3
Repita
 escreval("Tipo de combustivel")
 escreval("1 - Álcool")
 escreval("2 - Gasolina")
 leia(combustivel)
ate((combustivel = 1) ou (combustivel = 2))
escreval("QuantosLitros:")
leia(litro)
se (litro > 20)então
se (combustivel = 1)entao
 total <- (precoA * litro)*0.95
 senao
 total <- (precoG * litro)*0.94
 fimse
senao
 se (combustivel = 1)entao
 total <- (precoA * litro)*0.97
 senao
 total <- (precoG * litro)*0.96
 fimse
fimse
escreva("Tipo de Combustivel : ")
se(combustivel = 1)entao
 escreval("Álcool : R$ ",precoA)
senao
 escreval("Gasolina : R$ ", precoG)
fimse
escreval("Litros : ",litro)
escreval("Total a pagar : ",total)
fimalgoritmo
69 Escreva um algoritmo que leia as idades de 2 homens e de 2 mulheres (considere que as idades dos homens serão sempre diferentes entre si, bem como as das mulheres). Calcule e escreva a soma das idades do homem mais velho com a mulher mais nova, e o produto das idades do homem mais novo com a mulher mais velha.
algoritmo "idade homem e mulher"
var
somahv_mn, prod_hn_mv, mulher1, mulher2, homem1, homem2: inteiro
mulhern, mulherv, homemn, homemv: inteiro
inicio
// Seção de Comandos
 escreval ("Este programa compara a idade entre 4 pessoas")
 escreval ("Digite a idade da 1ª mulher")
 leia(mulher1)
 escreval ("Digite a idade da 2ª mulher")
 leia(mulher2)
 escreval ("Digite a idade do 1º homem")
 leia (homem1)
 escreval ("Digite a idade do 2º homem")
 leia (homem2)
 se (mulher1 < mulher2) entao
 mulhern:=mulher1
 mulherv:=mulher2
 senao
 mulherv:= mulher1
 mulhern:= mulher2
 fimse
 se (homem1< homem2) entao
 homemn:= homem1
 homemv:= homem2
 senao
 homemv:= homem1
 homemn:= homem2
 fimse
 somahv_mn:= homemv+ mulhern
 prod_hn_mv:= homemn*mulherv
 escreval ("A soma das idadades do homem mais velho com a mulher mais nova é ")
 escreval (somahv_mn)
 escreval ("O produto das idades do homem mais novo com a mulher mais velha é ")
 escreval (prod_hn_mv)
 FIMALGORITMO
70 Uma fruteira está vendendo frutas com a seguinte tabela de preços:
Até 5 Kg			 Acima de 5 Kg
Morango 	R$ 2,50 Kg 			R$ 2,20 por Kg
Maçã 		R$ 1,80 Kg 			R$ 1,50 por Kg
Se o cliente comprar mais de 8 Kg em frutas ou o valor total da compra ultrapassar R$ 25,00, receberá ainda um desconto de 10% sobre este total. Escreva um algoritmo para ler a quantidade (em Kg) de morangos e a quantidade (em Kg) de maças adquiridas e escreva o valor a ser pago pelo cliente.
algoritmo "frutas"
var
Qkgmor, Qkgmaca, Ttlkg, Vttlmor, Vttlmaca, Vfinal, Vfdesc, Desc10:real
mor250, mor220, maca180, maca150: real
inicio
// Seção de Comandos
escreva ("Digite a quantidade de morangos, e maçãs: ")
leia(Qkgmor, Qkgmaca)
Ttlkg<- Qkgmor+Qkgmor
mor250<- 250
maca180<- 180
mor220<- 220
maca150<- 150
se(Ttlkg <= 5) e (Vfinal < 25) entao
Vttlmor<- mor250*Qkgmor
Vttlmaca<- maca180*Qkgmaca
Vfinal<- Vttlmor+Vttlmaca
escreval ("O valor total dos morangos é: ", Vttlmor)
escreval ("O valor total das maçãs é: ", Vttlmaca)
se(Ttlkg > 7) entao
Desc10<- Vfinal*10/100
Vfdesc<- Vfinal-Desc10
escreva ("Você ganhou um desconto por levar mais de 8kg, pagará: ", Vfdesc)
senao
escreval ("Totalizando: ", vfinal)
fimse
senao
Vttlmor<- mor220*Qkgmor
Vttlmaca<- maca150*Qkgmaca
Vfinal<- Vttlmor+Vttlmaca
escreval ("O valor total dos morangos é: ", Vttlmor)
escreval ("O valor total das maçãs é: ", Vttlmaca)
escreval ("Totalizando: ", Vfinal)
Desc10<- Vfinal*10/100
Vfdesc<- Vfinal-Desc10
escreva ("Você ganhou um desconto de 10%, pagará: ", Vfdesc)
fimse
fimalgoritmo
71 Faça um algoritmo para ler um número que é um código de usuário. Caso este código seja diferente de um código armazenado internamente no algoritmo (igual a 1234) deve ser apresentada a mensagem ‘Usuário inválido!’. Caso o Código seja correto, deve ser lido outro valor que é a senha. Se esta senha estiver incorreta (a certa é 9999) deve ser mostrada a mensagem ‘senha incorreta’. Caso a senha esteja correta, deve ser mostrada a mensagem ‘Acesso permitido’.
algoritmo "Exercicio 71"
var
x,y:real
inicio
escreval("USUÁRIO")
leia (x)
se (x<>1234) entao
escreval ("USUARIO INVALIDO !!!")
senao
escreval ("SENHA")
leia (y)
se (y=9999) entao
escreval ("Acesso Permitido")
senao
escreval ("SENHA INCORRETA !!!")
fimse
fimse
fimalgoritmo
72 Faça um algoritmo para ler: a descrição do produto (nome), a quantidade adquirida e o preço unitário. Calcular e escrever o total (total = quantidade adquirida * preço unitário), o desconto e o total a pagar (total a pagar = total - desconto), sabendo-se que:
- Se quantidade <= 5 o desconto será de 2%
- Se quantidade > 5 e quantidade <=10 o desconto será de 3%
- Se quantidade > 10 o desconto será de 5%
algoritmo "decsontos"
var
produto:caracter
quantidade:inteiro
preco,total,total_a_pagar,desc_menor_5,desc_menor_10,desc_maior_10,desconto:real
inicio
 desc_menor_5 <- 0.02
 desc_menor_10 <- 0.03
 desc_maior_10 <- 0.05
 escreval("Nome do Produto:")
 leia(produto)
 escreval("Quantidade :")
 leia(quantidade)
 escreval("Preco Unitario:")
 leia(preco)
 total <- quantidade * preco
 se (quantidade <= 5) entao
 desconto <- total * desc_menor_5
 fimse
 se (quantidade > 5) e (quantidade <= 10) entao
 desconto <- total * desc_menor_10
 fimse
 se(quantidade > 10) entao
 desconto <- total * desc_maior_10
 fimse
 escreval("Produto : ",produto)
 escreval("Preco unitário : ",preco)
 escreval("Total : ",total)
 escreval("Desconto: ",desconto)
 escreval("Total a pagar: ",total - desconto)
fimalgoritmo
73 Uma empresa quer verificar se um empregado está qualificado para a aposentadoria ou não. Para estar em condições, um dos seguintes requisitos deve ser satisfeito:
- Ter no mínimo 65 anos de idade.
- Ter trabalhado no mínimo 30 anos.
- Ter no mínimo 60 anos e ter trabalhado no mínimo 25 anos.
Com base nas informações acima, faça um algoritmo que leia: o número do empregado (código), o ano de seu nascimento e o ano de seu ingresso na empresa. O programa deverá escrever a idade e o tempo de trabalho do empregado e a mensagem 'Requerer aposentadoria' ou 'Não requerer'.
algoritmo "tempo de trabalho"
var
ano,idade,tempoTrabalho,codigo:inteiro
inicio
ano <- 2019
escreval("digite seu codigo: ")
leia(codigo)
escreval("digite o ano de nascimento: ")
leia(idade)
escreval("Entre com o Ano de ingresso na empresa: ")
leia(tempoTrabalho)
se( ano-idade >= 16 )entao
se(ano-idade >= 65)entao
escreval("Requerer Aposentadoria ")
senao
se(ano-tempoTrabalho >= 30)entao
escreval("Requerer Aponsentadoria ")
senao
se((ano-idade >= 60) e (ano-tempoTrabalho >= 25) )entao
escreval("Requerer Aponsentadoria ")
senao
escreval("Nao Requerer Aponsentadoria ")
fimse
fimse
fimse
senao
escreval("Voce não tem idade para trabalhar ")
fimse
fimalgoritmo
74 Seja o seguinte algoritmo:
inicio
ler a, b, c
se (a < b+c) e (b <a+c) e (c <a+b) então
se (a=b) e (b=c) então
mens _ 'Triângulo Equilátero'
senão
se (a=b) ou (b=c) ou (a=c) então
mens _ 'Triângulo Isósceles'
senão
mens _ 'Triângulo Escaleno'
fim_se
fim_se
senão
mens _ 'Não e possível formar um triângulo'
fim_se
escrever mens
fim
Faça um teste de mesa e complete o quadro a seguir para os seguintes valores das variáveis:
Algoritmo "teste do triângulo"
Var 
a, b, c :real
inicio
escreval ("digite a b c")
leia (a)
leia (b)
leia (c)
 se (a=b) e (b=c) entao
 escreval("Triângulo Equilátero")
 senao
 se (a=b) ou (b=c) ou (a=c) entao
 escreval("Triângulo Isósceles")
 senao
 se (a < b+c) e (b <a+c) e (c <a+b) entao
 escreval("Triângulo Escaleno")
 senao
 escreval("Não é possível formar um triângulo")
 fimse
 fimse
 fimse
fimalgoritmo
Variáveis
A	 b	 C	 Mens
1	 2	 3 Não é possível formarum triângulo
3	 4	 5 	Triângulo Escaleno
2	 2	 4 	Triângulo Isósceles
4	 4	 4	Triângulo Equilátero
5	 3	 3	Triângulo Isósceles
75 Escreva um algoritmo para ler 2 valores e se o segundo valor informado for ZERO, deve ser lido um novo valor, ou seja, para o segundo valor não pode ser aceito o valor zero e imprimir o resultado da divisão do primeiro valor lido pelo segundo valor lido. 
Acrescente uma mensagem 'NOVO CÁLCULO (S/N)?' Se for respondido 'S' deve retornar e executar um novo cálculo, caso contrário deverá encerrar o algoritmo.
Algoritmo "divisão"
var
n1, n2, nt :real
r, s, n :caracter
inicio
r<-s
enquanto (r<>"não") faca
 escreval("digite 1º numero ")
 leia(n1)
 escreval("digite 2º numero ")
 leia (n2)
enquanto (n2=0) faca
 escreval("digite 2º numero ")
 leia (n2)
fimenquanto
nt <- n1/n2
escreval (nt)
escreval ("novo cálculo ? sim ou não ")
leia (r)
fimenquanto
fimalgoritmo
76 Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.
algoritmo "crescente 10"
var X:inteiro
inicio
x<-1
Enquanto X < 11 faca
Escreval("Numero Atual é:" , x)
x<-x+1
FimEnquanto
 FIMALGORITMO
77 Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem decrescente.
algoritmo "decrescente 10"
var X:inteiro
inicio
x<-10
Enquanto X > 0 faca
Escreval("Numero Atual é:" , x)
x<-x-1
FimEnquanto
 FIMALGORITMO
78 Escreva um algoritmo para imprimir os 10 primeiros números inteiros maiores que 100.
algoritmo "primeios 10"
var X, Y :inteiro
inicio
X <- 1
Y <- 100
Enquanto X <= 10 faca
Escreval("Numero inteiro é: ", (Y + X))
X <- X + 1
FimEnquanto
 FIMALGORITMO
79 Escreva um algoritmo para ler 10 números e ao final da leitura escrever a soma total dos 10 números lidos.
algoritmo "Exercicio 79"
var
ns,i,s: real
inicio
escreval("digite dez para realizarmos a contagem")
ns<-0
i<-0
enquanto (i<10) faca
leia (s)
ns<-s+ns
i<-i+1
fimenquanto
escreval (ns, " É o valor da somatoria")
fimalgoritmo
80 Escreva um algoritmo para ler 10 números. Todos os números lidos com valor inferior a 40 devem ser somados. Escreva o valor final da soma efetuada.
algoritmo "soma"
var
num, soma, i: inteiro
inicio
soma <- 0 i<-1
enquanto i<=10 faca
leia (num)
se (num < 40) entao
soma <- soma + num
fimse
i<-i+1
fimenquanto
escreval ("Soma: ", soma)
fimalgoritmo
81 Uma loja está levantando o valor total de todas as mercadorias em estoque. Escreva um algoritmo que permita a entrada das seguintes informações: a) o número total de mercadorias no estoque; b) o valor de cada mercadoria. Ao final imprimir o valor total em estoque e a média de valor das mercadorias.
algoritmo "semnome"
var
valor,media,soma:real
num:inteiro
inicio
num:=0
soma:=0
media:=0
repita
escreval("Para sair digite 0")
escreval("Informe o valor: ")
leia(valor)
soma:=(soma+valor)
num:=(num+1)
ate (valor=0)
num:=num-1
media:=soma/num
escreval("Valor total em estoque R$", soma)
escreval("Média de valor das mercadorias R$", media)
escreval("Número total de mercadorias é", num)
fimalgoritmo
82 O mesmo exercício anterior, mas agora não será informado o número de mercadorias em estoque. Então o funcionamento deverá ser da seguinte forma: ler o valor da mercadoria e perguntar ‘MAIS MERCADORIAS (S/N)?’. Ao final, imprimir o valor total em estoque e a média de valor das mercadorias em estoque.
algoritmo "semnome"
var
valor, media, soma:real
num:inteiro
R:CARACTER
inicio
num:=0
soma:=0
media:=0
enquanto (r<>"NÃO")FACA
escreval("Informe o valor: ")
leia(valor)
soma<-(soma+valor)
num<-(num+1)
num<-num-1
escreval ("MAIS MERCADORIAS ? SIM OU NÃO ?:")
LEIA (R)
FIMENQUANTO
escreval("Valor total em estoque R$", soma)
fimalgoritmo
83 Faça um programa que leia 100 valores e no final, escreva o maior e o menor valor lido.
Algoritmo "ler valores "
var
numero, maior, menor,i : inteiro
inicio
 i<-2
escreva("Entre com o 1º numero: ")
leia(numero)
menor<-numero
maior<-numero
enquanto (i<=100) faca
escreva("Entre com o ",i,"º numero: ")
leia(numero)
se numero>maior entao
maior<-numero
fimse
se numero<menor entao
menor<-numero
fimse
 i<-i+1
fimenquanto
escreval("O maior numero é:",maior)
escreval("O menor numero é:",menor)
84 Faça um algoritmo para ler o código e o preço de 15 produtos, calcular e escrever:
- o maior preço lido
- a média aritmética dos preços dos produtos
  algoritmo "semnome"
var
codigo,controle:inteiro
preco,maiorpreco,soma:real
inicio
controle<- 1
escreva("Codigo do produto: ")
leia(codigo)
escreva("Preço do produto: ")
leia(preco)
maiorpreco<-preco
soma<-preco
85 A prefeitura de uma cidade deseja fazer uma pesquisa entre seus habitantes. Faça um algoritmos para coletar dados sobre o salário e número de filhos de cada habitante e após as leituras, escrever:
a) Média de salário da população
b) Média do número de filhos
c) Maior salário dos habitantes
d) Percentual de pessoas com salário menor que R$ 150,00
algoritmo "somas"
VAR
filhos:inteiro
I:inteiro
salario:real
media:real
soma:real
dividir:real
INICIO
para I de 1 ate 5 faca
escreval("Informe o n° de filhos")
leia(filhos)
escreval("Informe o seu salário")
leia(salario)
soma <-salario+salario
dividir <- filhos+filhos/2
fimpara
escreval("A média do salário da população é",soma)
escreval("A média do n° de filhos é",dividir)
escreval("O maior salário",salario)
fimalgoritmo
86 Escreva um algoritmo que imprima as seguintes seqüências de números: (1, 1 2 3 4 5 6 7 8 9 10) (2, 1 2 3 4 5 6 7 8 9 10) (3, 1 2 3 4 5 6 7 8 9 10) (4, 1 2 3 4 5 6 7 8 9 10) e assim sucessivamente, até que o primeiro número (antes da vírgula), também chegue a 10.
algoritmo "NUMERO VIRGULA"
var
W,I:real
inicio
I<-1
ESCREVAL ("DIGITE QUALQUER NÚMERO PARA INICIAR")
LEIA (W)
enquanto (I<=10)FACA
escreval( I, " , 1 2 3 4 5 6 7 8 9 10")
I<-I+1
FIMENQUANTO
Fimalgoritmo