1) Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
a) o número digitado ao quadrado;
b) o número digitado ao cubo;
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.
algortimo_quad
a) o número digitado ao quadrado;
b) o número digitado ao cubo;
c) a raiz quadrada do número digitado;
d) a raiz cúbica do número digitado.
algortimo_quad
var
nro,quadrado,cubo,r_quadrada,r_cubica:real
inicio
escreval("digite um numero")
leia(nro)
quadrado<-nro*nro
escreval("este numero ao quadrado é =",quadrado)
cubo<-nro*nro*nro
escreval("este numero ao cubo é=",cubo)
r_quadrada<-raizq(nro)
escreval("a raiz quadrada deste numero é=",r_quadrada)
r_cubica<-nro^(1/3)
escreval("a raiz cubica deste numero é =",r_cubica)
fimalgoritmo
nro,quadrado,cubo,r_quadrada,r_cubica:real
inicio
escreval("digite um numero")
leia(nro)
quadrado<-nro*nro
escreval("este numero ao quadrado é =",quadrado)
cubo<-nro*nro*nro
escreval("este numero ao cubo é=",cubo)
r_quadrada<-raizq(nro)
escreval("a raiz quadrada deste numero é=",r_quadrada)
r_cubica<-nro^(1/3)
escreval("a raiz cubica deste numero é =",r_cubica)
fimalgoritmo
2) Faça um programa para verificar se um inteiro positivo lido é par ou ímpar (mostre por escrito se é par ou ímpar). Se o número for ímpar, multiplique por 2 e mostre o resultado, caso contrário multiplique por ½ e mostre o resultado. (OBS: Par: x mod 2 = 0)
algoritmo_par
var
nro:inteiro
resp:real
inicio
escreval("digite um numero")
leia(nro)
se nro mod 2=0 entao
resp<-nro*1/5]
escreval("o numero digitado é par")
escreval("o resultado da multiplicação é",resp)
senao
resp<-nro*2
escreval("o numero digitado é impar")
escreval("o resultado da multipliação é",resp)
fimse
fimalgoritmo
var
nro:inteiro
resp:real
inicio
escreval("digite um numero")
leia(nro)
se nro mod 2=0 entao
resp<-nro*1/5]
escreval("o numero digitado é par")
escreval("o resultado da multiplicação é",resp)
senao
resp<-nro*2
escreval("o numero digitado é impar")
escreval("o resultado da multipliação é",resp)
fimse
fimalgoritmo
3) Faça um programa que receba o custo total de um espetáculo teatral e o preço do convite desse espetáculo. Esse programa deverá calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetáculo seja alcançado.
algoritmo_espetaculo
var
valor_total,valor_conv,resp:real
inicio
escreval("digite o valor do espetaculo")
leia(valor_total)
escreval("digite o valor do convite")
leia(valor_conv)
se valor_conv <> 0 entao
resp<-valor_total/valor_conv
escreval("voce precisa vender",resp," convites")
senao
escreval("você digitou um valor incorreto")
fimse
var
valor_total,valor_conv,resp:real
inicio
escreval("digite o valor do espetaculo")
leia(valor_total)
escreval("digite o valor do convite")
leia(valor_conv)
se valor_conv <> 0 entao
resp<-valor_total/valor_conv
escreval("voce precisa vender",resp," convites")
senao
escreval("você digitou um valor incorreto")
fimse
fimalgoritmo
4) Faça um programa que receba três números e mostre-os em ordem decrescente.
algoritmo_numeros
var
valor_total,valor_conv,resp:real
inicio
escreval("digite o valor do espetaculo")
leia(valor_total)
escreval("digite o valor do convite")
leia(valor_conv)
se valor_conv <> 0 entao
resp<-valor_total/valor_conv
escreval("vc pricesa vender",resp," convites")
senao
escreval("você digitou um valor incoreto")
fimse
fimalgoritmo
var
valor_total,valor_conv,resp:real
inicio
escreval("digite o valor do espetaculo")
leia(valor_total)
escreval("digite o valor do convite")
leia(valor_conv)
se valor_conv <> 0 entao
resp<-valor_total/valor_conv
escreval("vc pricesa vender",resp," convites")
senao
escreval("você digitou um valor incoreto")
fimse
fimalgoritmo
5) Faça um programa que receba a hora do início de um jogo e a hora final (cada hora é composta por duas variáveis inteiras: hora e minuto). Calcule e mostre a duração do jogo (horas e minutos), sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.
algoritmo_hora
var
horaIni, minIni, horaFim, minFim, minDif, horaDif:inteiro
inicio
escreval("Digite hora e minutos do inicio do jogo ")
leia(horaIni, minIni)
escreval("Digite hora e minutos do fim do jogo ")
leia(horaFim, minFim)
se (minIni > minFim) entao
minFim <- minFim + 60
horaFim <- horaFim - 1
fimse
se (horaIni > horaFim) entao
horaFim <- horaFim + 24
fimse
minDif <- (minFim - minIni)
horaDif <- (horaFim - horaIni)
escreval("O jogo durou", horaDif, " horas e ", minDif, " minutos")
fimalgoritmo
algoritmo_hora
var
horaIni, minIni, horaFim, minFim, minDif, horaDif:inteiro
inicio
escreval("Digite hora e minutos do inicio do jogo ")
leia(horaIni, minIni)
escreval("Digite hora e minutos do fim do jogo ")
leia(horaFim, minFim)
se (minIni > minFim) entao
minFim <- minFim + 60
horaFim <- horaFim - 1
fimse
se (horaIni > horaFim) entao
horaFim <- horaFim + 24
fimse
minDif <- (minFim - minIni)
horaDif <- (horaFim - horaIni)
escreval("O jogo durou", horaDif, " horas e ", minDif, " minutos")
fimalgoritmo
6) Faça um programa que receba cem números, calcule e mostre a soma dos números pares e a média dos números primos.
algoritmo_primo
var
x,y,nro,primo:inteiro
cont,media,soma,parcial:real
inicio
soma<-0
para x de 1 ate 100 faca
escreval("digite um numero")
leia(nro)
se (nro mod 2=0) entao
escreval("vc digitou um numero par!")
soma<-soma+nro
fimse
primo<-0
para y de 1 ate nro faca
se (nro mod y =0) entao
primo<-primo+1
fimse
fimpara
cont<-0
se primo<=2 entao
escreval("vc digitou um numero primo")
cont<-cont+1
parcial<-parcial+primo
fimse
fimpara
media<-parcial/cont
escreval(" a soma dor numeros pares é",soma)
escreval("a media dos numero primos é",media)
fimalgoritmo
var
x,y,nro,primo:inteiro
cont,media,soma,parcial:real
inicio
soma<-0
para x de 1 ate 100 faca
escreval("digite um numero")
leia(nro)
se (nro mod 2=0) entao
escreval("vc digitou um numero par!")
soma<-soma+nro
fimse
primo<-0
para y de 1 ate nro faca
se (nro mod y =0) entao
primo<-primo+1
fimse
fimpara
cont<-0
se primo<=2 entao
escreval("vc digitou um numero primo")
cont<-cont+1
parcial<-parcial+primo
fimse
fimpara
media<-parcial/cont
escreval(" a soma dor numeros pares é",soma)
escreval("a media dos numero primos é",media)
fimalgoritmo
07)Foi feita uma estatística em cinco cidades brasileiras para coletar dados sobre acidentes de trânsito, foram obtidos os seguintes dados:
a) Código da cidade;
b) Número de veículos de passeio(em 2010);
c) Número de acidentes de trânsito com vitimas(em 2010).
Deseja-saber:
a) Qual o maior e menor índice de acidentes de trânsito e a que cidades pertencem;
b) Qual a média de veículos nas cinco cidades juntas;
c) Qual a média de acidentes de trânsito nas cidades com menos de 2.000 veículos de passeio.
a) Código da cidade;
b) Número de veículos de passeio(em 2010);
c) Número de acidentes de trânsito com vitimas(em 2010).
Deseja-saber:
a) Qual o maior e menor índice de acidentes de trânsito e a que cidades pertencem;
b) Qual a média de veículos nas cinco cidades juntas;
c) Qual a média de acidentes de trânsito nas cidades com menos de 2.000 veículos de passeio.
algoritmo_cidade
var
cont, cod, num_vei, num_acid, maior, cid_maior, menor, cid_menor: inteiro
media_vei, media_acid: real
soma_vei, soma_acid, cont_acid:inteiro
inicio
soma_vei <-0
soma_acid <-0
cont_acid <- 0
para cont <- 1 ate 5 faca
escreval("Digite o codigo da cidade, o numero de veiculos e o numero de acidentes" )
leia(cod, num_vei, num_acid)
se (cont=1) entao
maior <- num_acid
cid_maior <- cod
menor <- num_acid
cid_menor <- cod
senao
se (num_acid > maior) entao
maior <- num_acid
cid_maior <- cod
fimse
se (num_acid < menor) entao
menor <- num_acid
cid_menor <- cod
fimse
fimse
soma_vei <- soma_vei + num_vei
se (num_vei < 2000) entao
soma_acid <- soma_acid + num_acid
cont_acid <- cont_acid + 1
fimse
fimpara
escreval("O maior indice e ",maior," na cidade ",cid_maior)
escreval("O menor indice e ",menor," na cidade ",cid_menor)
media_vei <- soma_vei / 5
escreval("A media de veiculos e ",media_vei)
se (cont_acid = 0) entao
escreval("Nao foi digitada nenhuma cidade com menos de 2000 veiculos" )
senao
media_acid <- soma_acid / cont_acid
escreval("A media de acidentes em cidades com menos de 2.000 veiculos e ", media_acid)
fimse
fimalgoritmo
Nessa aula o professor nos passou mais exercícios que serviram de revisão para a prova, conforme relatos até a questão 5 foi a prova do ano passado, dessas tem algumas questoes que são bem confusas de resolver. Fiquei em duvida quanto algumas questoes mais após a correção tudo ficou mais simples e lógico.
cont, cod, num_vei, num_acid, maior, cid_maior, menor, cid_menor: inteiro
media_vei, media_acid: real
soma_vei, soma_acid, cont_acid:inteiro
inicio
soma_vei <-0
soma_acid <-0
cont_acid <- 0
para cont <- 1 ate 5 faca
escreval("Digite o codigo da cidade, o numero de veiculos e o numero de acidentes" )
leia(cod, num_vei, num_acid)
se (cont=1) entao
maior <- num_acid
cid_maior <- cod
menor <- num_acid
cid_menor <- cod
senao
se (num_acid > maior) entao
maior <- num_acid
cid_maior <- cod
fimse
se (num_acid < menor) entao
menor <- num_acid
cid_menor <- cod
fimse
fimse
soma_vei <- soma_vei + num_vei
se (num_vei < 2000) entao
soma_acid <- soma_acid + num_acid
cont_acid <- cont_acid + 1
fimse
fimpara
escreval("O maior indice e ",maior," na cidade ",cid_maior)
escreval("O menor indice e ",menor," na cidade ",cid_menor)
media_vei <- soma_vei / 5
escreval("A media de veiculos e ",media_vei)
se (cont_acid = 0) entao
escreval("Nao foi digitada nenhuma cidade com menos de 2000 veiculos" )
senao
media_acid <- soma_acid / cont_acid
escreval("A media de acidentes em cidades com menos de 2.000 veiculos e ", media_acid)
fimse
fimalgoritmo
Nessa aula o professor nos passou mais exercícios que serviram de revisão para a prova, conforme relatos até a questão 5 foi a prova do ano passado, dessas tem algumas questoes que são bem confusas de resolver. Fiquei em duvida quanto algumas questoes mais após a correção tudo ficou mais simples e lógico.