UCMA 1.1 - Githubissues

algoritmo "UCMA_1.1" var qtd: inteiro sub: real raiz: inteiro resposta: inteiro area: real medida: caractere lado: real largura: real comprimento: real base: real altura: real apotema: real c: inteiro p: inteiro vp: real raio: real ang: real sang: real r2: real inicio EscrevaL("[ U C M A ]") escreval("O UCMA é uma criação com a proposta de ajudar em calculos de áreas no geral") escreval("Se caso os calculos não estejam corretos, é porque ainda está em desenvolvimento. Desde já, agradeço a sua compreensão.") escreval("Criado e desenvolvido por Gustavo Araújo Ferreira") Escreval("") Escreval("=======================================================================================================================") EscrevaL("") Escreval("[ Para iniciar, digite qual tipo de poligono iremos trabalhar. Segue a tabela abaixo: ]") Escreval(" [ 1 ] Para Quadrado ") Escreval(" [ 2 ] Para Triangulo ") Escreval(" [ 3 ] Para Retângulo ") Escreval(" [ 4 ] Para Hexágono ") Escreval(" [ 5 ] Para Outros tipos de polígono ") EscrevaL(" [ 6 } Para Círculos ") leia(resposta) EscrevaL("[ Digite o tipo de medida a ser usado (metros, centimetros, etc): ]") leia(medida) Se(resposta = 1) entao Escreval("[ Digite o tamanho do lado: ]") leia(lado) area <- lado^2 Escreval("[ A área do Quadrado será de: ", area:5:2, " " ,medida, "² ]") Escreval("") senao Se(resposta = 2) entao Escreval("[ Digite o tamanho da base: ]") leia(base) Escreval("[ Digite o tamanho da altura ]") leia(altura) area <- (basealtura)/2 Escreval("[ A área do Triangulo será de: ", area:5:2, " " ,medida, "² ]") Escreval("") senao Se(resposta = 3) entao Escreval("[ Digite o tamanho da largura: ]") leia(largura) Escreval("[ Digite o tamanho do comprimento: ]") leia(comprimento) area <- larguracomprimento Escreval("[ A área do Triangulo será de: ", area:5:2, " " ,medida, "² ]") Escreval("") senao Se(resposta = 4) entao Escreval("[ Antes de continuar, informe se a raiz quadrada de 3 será substituída por algum valor ]") Escreval("[ 1 para sim ] [ 2 para não ]") leia(raiz) Se(raiz = 1) entao Escreva("[ Digite o tamanho do lado: ]") leia(lado) Escreva("[ Digite o valor a ser colocado no lugar de raíz de 3: ]") leia(sub) area <- 6(((lado^2)sub)/4) Escreval("[ A área do Hexágono será de: ", area:5:2, " " ,medida, "² ]") Escreval("") senao Se(raiz = 2) entao Escreva("[ Digite o tamanho do lado: ]") leia(lado) area <- 6((lado^2)/4) Escreval("[ A área do Hexágono será de: ", area:5:2, " x raíz de 3 ", medida, "² ]") Escreval("") Fimse Fimse senao Se(resposta = 5) entao Escreva("[ Digite quantos lados o polígono tem: ]") leia(qtd) Escreva("[ Digite o tamanho do lado do poligono: ]") leia(lado) Escreva("[ Digite o tamanho da apótema: ]") leia(apotema) area <- qtd((ladoapotema)/2) Escreval("[ A área do Polígono será de: ", area:5:2, " ", medida, "² ]") Escreval("") senao Se(resposta = 6) entao Escreval("[ Certo, digite 1 para área do circulo, 2 para Area da Coroa, 3 para Comprimento da circunferencia, 4 para a área do segmento circular e 5 para o comprimento do arco. ]") Leia(c) escolha c Caso 1 Escreva("[ Substituir o valor de pí? [1 para SIM] [2 para NÃO] ]") Leia(p) Escolha p Caso 1 Escreval("[ Digite o valor de pí: ]") leia(vp) Escreval("[ Digite o tamanho do raio: ]") leia(raio) area <- vp(raio^2) Escreval("[ A área do Círculo será de: ", area:5:2, " ", medida, "² ]") Escreval("") caso 2 Escreval("[ Digite o tamanho do raio: ]") leia(raio) area <- raio^2 Escreval("[ A área do Círculo será de: ", area:5:2, " pí ", medida, "² ]") Escreval("") FimEscolha Caso 2 Escreva("[ Substituir o valor de pí? [1 para SIM] [2 para NÃO] ]") Leia(p) Escolha p Caso 1 Escreval("[ Digite o valor de pí: ]") leia(vp) Escreval("[ Digite o tamanho do raio maior: ]") leia(raio) Escreval("[ Digite o tamanho do raio menor: ]") leia(r2) area <- (vp(raio^2)) - (vp(r2^2)) Escreval("[ A Area da coroa circular será de: ", area:5:2, " ", medida, "² ]") Escreval("") caso 2 Escreval("[ Digite o tamanho do raio maior: ]") leia(raio) Escreval("[ Digite o tamanho do raio menor: ]") leia(r2) area <- (raio^2) - (r2^2) Escreval("[ A area da coroa circular será de: ", area:5:2, " pí ", medida, "² ]") Escreval("") FimEscolha Caso 3 Escreva("[ Substituir o valor de pí? [1 para SIM] [2 para NÃO] ]") Leia(p) Escolha p Caso 1 Escreval("[ Digite o valor de pí: ]") leia(vp) Escreval("[ Digite o tamanho do raio: ]") leia(raio) comprimento <- vpraio2 Escreval("[ O comprimento da cincunferencia será de: ", comprimento:5:2, " ", medida, " ]") Escreval("") caso 2 Escreval("[ Digite o tamanho do raio: ]") leia(raio) comprimento <- raio2 Escreval("[ O comprimento da cincunferencia será de: ", comprimento:5:2, " pí ", medida, " ]") Escreval("") FimEscolha Caso 4 Escreval("[ Digite o valor de pí: ]") leia(vp) Escreval("[ Digite o tamanho do raio: ]") leia(raio) Escreval("[ Digite o valor do angulo, em graus: ]") leia(ang) Escreval("[ Digite o valor do seno do angulo: ]") leia(sang) area <- ((vp(raio^2)ang)/360) - (((raio^2)sang)/2) Escreval("[ A área do Segmento circular será de: ", area:5:2, " ", medida, "² ]") Escreval("") Caso 5 Escreva("[ Substituir o valor de pí? [1 para SIM] [2 para NÃO] ]") Leia(p) Escolha p Caso 1 Escreval("[ Digite o valor de pí: ]") leia(vp) Escreval("[ Digite o tamanho do raio: ]") leia(raio) Escreval("[ Digite o valor do angulo, em graus: ]") leia(ang) comprimento <- (vpraioang2)/360 Escreval("[ O comprimento do arco será de: ", comprimento:5:2, " ", medida, " ]") Escreval("") caso 2 Escreval("[ Digite o tamanho do raio: ]") leia(raio) Escreval("[ Digite o valor do angulo, em graus: ]") leia(ang) comprimento <- (raio2ang)/360 Escreval("[ O comprimento do arco será de: ", comprimento:5:2, " pí ", medida, " ]") Escreval("") FimEscolha FimEscolha FimSe Fimse Fimse Fimse Fimse Fimse Escreval("=======================================================================================================================") Escreval("") escreval("Obrigado por utilizar o programa!") Escreval("Consideraçoes finais: ") Escreval("- Eu tive a ideia de fazer isso em uma aula de matematica") Escreval("- Esse é o codigo mais caprichado que já fiz") Escreval("- Esse é o meu primeiro código de 100 linhas codificadas") Escreval("- Pretendo em refaze-lo em outras linguagens como java e php") Escreval("- Atualizações virao caso vejo que precise") Escreval("- Nessa snapshot, o codigo passou de 200 linhas") Escreval("") Escreval("=======================================================================================================================") fimalgoritmo

Funciona no Visualg

GustaafBR / UCMA

UCMA 1.1 #1