Aula 12 18.05.2011 Logica e Algoritmos Hoje a aula foi somente com exercicios para a primeira prova, o professor passou como exercicios a prova da turma do ano anterior.1)Faca um programa que recebe um numero positivo e maior que zero, calcule e mostre:a) o numero digitado ao quadrado;b) o numero digitado ao cubo;c) a raiz quadrada do numero digitado;d) a raiz cubica do numero digitado.algoritmo "aula12_01"varnum:inteiroquad,cubo,r_quad,r_cubo:realinicioescreva("Digite um numero: ")leia(num)quad<-(num^2)cubo<-(num^3)r_quad<-(num^(1/2))r_cubo<-(num^(1/3)) escreval("O numero",num," elevado ao quadrado e",quad,".") escreval("O numero",num," elevado ao cubo e",cubo,".") escreval("A raiz quadrada do",num," e",r_quad,".") escreval("A raiz cubica do",num," e",r_cubo,".")fimalgoritmo2)Faca um programa para verificar se um inteiro positivo lido e par ou impar (mostre por escrito se e par ou impar). Se o numero for impar, multiplique por 2 e mostre o resultado, caso contrario multiplique por 12 e mostre o resultado.(OBS: Par: x mod 2 = 0)algoritmo " aula12_02"varnum:inteirox_par,x_impar:realinicioescreva("Digite um numero: ")leia(num)se (num mod 2 = 0) entao escreval("O numero e Par!")x_par<-(num*(1/2)) escreval("O resultado de",num," multiplicado por 1/2 e",x_par,".")senao escreval("O numero e Impar!")x_impar<-(num*2)escreval(num," multiplicado por 2 e",x_impar,".")fimsefimalgoritmo3) Faca um programa que receba o custo total de um espetaculo teatral e o preco do convite desse espetaculo. Esse programa devera calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetaculo seja alcancado.algoritmo " aula12_03"varcusto,valor,total:realinicioescreval("Digite qual foi o custo total da peca: ")leia(custo)escreva("Digite o valor do ingresso: ")leia(valor)total<-custo/valorescreval("Para pagar o custo da peca voce deve vender no minimo",total," ingressos.")fimalgoritmo4) Faca um programa que receba tres numeros e mostre-os em ordem decrescente.algoritmo "aula12_04"varn1,n2,n3:inteiroinicioescreval("Digite 3 numeros diferentes")leia(n1)leia(n2)leia(n3)se (n1>n2) e (n2>n3) entao escreva("A ordem decrecente e:",n1,",",n2,",",n3,".")senaose (n1>n3) e (n3>n2) entao escreva("A ordem decrecente e:",n1,",",n3,",",n2,".")senaose (n2>n1) e (n1>n3) entao escreva("A ordem decrecente e:",n2,",",n1,",",n3,".")senaose (n2>n3) e (n3>n1) entao escreva("A ordem decrecente e:",n2,",",n3,",",n1,".")senaose (n3>n1) e (n1>n2) entao escreva("A ordem decrecente e:",n3,",",n1,",",n2,".")senaose (n3>n2) e (n2>n1) entao escreva("A ordem decrecente e:",n3,",",n2,",",n1,".")senaofimsefimsefimsefimsefimsefimsefimalgoritmo5)Faca um programa que receba a hora do inicio de um jogo e a hora final (cada hora e composta por duas variaveis inteiras: hora e minuto). Calcule e mostre a duracao do jogo (horas e minutos), sabendo-se que o tempo maximo de duracao do jogo e de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.6)Faca um programa que receba cem numeros, calcule e mostre a soma dos numeros pares e a media dos numeros primos.Outra, alem de nao saber como resolve la nem ao menos sabia o que erra numeros primos. algoritmo "semnome"varnum, cont, soma, soma2, X, y, prim, parcial:inteiromedia: realiniciocont := 0parcial := 0soma := 0Para X := 01 ate 10 facaescreval (" Informe um numero")leia (num)Se (num mod 2 = 0) entaoescreval ("O numero que voce digitou e par")soma := soma + numfimseprim := 0para y := 01 ate num facase (num mod y = 0) entaoprim := prim + 1fimsefimparase (prim <= 2) entaoescreval ("O numero que voce digitou e primo")parcial := parcial + numcont := cont + 1fimsefimparamedia := parcial/contescreval ("A media dos numeros primos digitados e ", media)escreval ("A soma dos numeros pares e ", soma)fimalgoritmo 7)Faca um programa que receba a idade e o peso de 75