Cálculo de Áreas - VisualG

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Área de Figuras
Definição geral e introdução de cálculo de áreas de figuras no visualg.
1
1
DOCENTE – Adriana Carla
Discentes – Anne Marinho, Brenno Miranda, João Paulo Barros, Vanessa Araújo
COMPONENTE CURRICULAR – Introdução à Programação 
UNIVERSIDADE FEDERAL DE CAMPINA GRANDE - UFCG
CENTRO DE CIÊNCIA E TECNOLOGIA AGROALIMENTAR - CCTA
CURSO DE ENGENHARIA CIVIL 
TURMA 2015.2
2
Cálculo de áreas - Definição geral.
Definição geral:
Área do quadrado:
					Área do quadrado = lado . lado
Área do triangulo:
					Área do triangulo = base . altura	
								 2	
3
Cálculo de áreas - Definição geral.
Área do Retângulo:
Área do Losango:
	
Área do Retângulo = base . altura
Área do Losango = diagonal[Maior] . diagonal[Menor]
								 2
4
Cálculo de áreas no VisualG.
Cálculo da área do quadrado:	
funcao quadrado (l:real):real // Área do Quadrado
inicio
retorne l*l
fimfuncao
Cálculo da área do triângulo:	
funcao triangulo (a,b:real):real // Área do Triângulo
inicio
retorne (b*a)/2
fimfuncao
5
Cálculo de áreas no VisualG.
Cálculo da área do retângulo:
funcao retangulo (a,b:real):real // Área do Retângulo
inicio
retorne b*a
fimfuncao
Cálculo da área do losango:	
funcao losango (d1,d2:real):real // Área do Losango
inicio
retorne (d1*d2)/2
fimfuncao
6
Programa no VisualG.
algoritmo "Área de Figuras"
// Função : Calcular a Área de Figuras (Quadrado, Retângulo, Triângulo e Losango)
// Autor : Anne Marinho, Brenno Miranda, João Paulo B. Barros, Vanessa Araújo
// Data : 21/04/2016
// Seção de Declarações
var
opcao: inteiro
a,b,l,d1,d2,area: real
resposta: caractere
(...)
7
Programa no VisualG.
funcao quadrado (l:real):real // Área do Quadrado
inicio
retorne l*l
fimfuncao
funcao triangulo (a,b:real):real // Área do Triângulo
inicio
retorne (b*a)/2
fimfuncao
funcao retangulo (a,b:real):real // Área do Retângulo
inicio
retorne b*a
fimfuncao
funcao losango (d1,d2:real):real // Área do Losango
inicio
retorne (d1*d2)/2
fimfuncao
procedimento imprimaMenu //Criação do Menu de Opções
(...)
8
Programa no VisualG.
inicio
Escreval ("Escolha a figura que deseja calcular a área:")
Escreval ("1 - Para calcular a área do Quadrado.")
escreval ("2 - Para calcular a área do Triângulo.")
escreval ("3 - Para calcular a área do Retângulo.")
escreval ("4 - Para calcular a área do Losango.")
fimprocedimento
Inicio
repita // Processo para repetir o menu de opção e os cálculos do programa
 imprimaMenu
 leia (opcao)
 escolha opcao
 caso 1 //Opção Quadrado
 escreval ("Digite o lado do quadrado em cm: ")
 leia (l)
 area <- quadrado (l)
 escreval ("A área do quadrado é: ", área, ”cm”)
(...)
9
Programa no VisualG.
caso 2 //Opção Triângulo
 escreval ("Digite os valores da base e da altura do triângulo em cm: ")
 leia (b, a)
 area <- triangulo (b, a)
 escreval ("A área do triângulo é: ", área, ”cm”)
caso 3 //Opção Retângulo
 escreval ("Digite o valor da base e da altura do Retângulo em cm: ")
 leia (a, b)
 area <- retangulo (a, b)
 escreval ("O área do retângulo é: ", área, ”cm”)
caso 4 //Opção losango
 escreval ("Digite o valor das diagonais do losango em cm: ")
 leia (d1, d2)
 area <- losango (d1, d2)
 escreval ("A área do losango é: ", área, ”cm”)
 outrocaso // Caso o valor da opção não esteja identificado no Menu
 escreval ("Opção Inválida")
 fimescolha
(...)
10
Programa no VisualG.
escreval ("Você deseja realizar outro cálculo? Responda 'Sim' caso queira ou 'Não' para sair do programa.") //Processo que define continuação ou finalização dos cálculos
 leia (resposta)
 limpatela // Comando para apagar os cálculos anteriores
ate resposta = "Não"
// Saída
escreval ("Você escolheu sair do programa, obrigado por usá-lo.")
fimAlgoritmo
11
12
OBRIGADO!
algoritmo "Área de Figuras"
// Função : Calcular a Área de Figuras (Quadrado, Retângulo, Triângulo e Losango)
// Autor : Anne Marinho, Brenno Miranda, João Paulo B. Barros, Vanessa Araújo
// Data : 21/04/2016
// Seção de Declarações
var
opcao: inteiro
a,b,l,d1,d2,area: real
resposta: caractere
funcao quadrado (l:real):real // Área do Quadrado
inicio
retorne l*l
fimfuncao
funcao triangulo (a,b:real):real // Área do Triângulo
inicio
retorne (b*a)/2
fimfuncao
funcao retangulo (a,b:real):real // Área do Retângulo
inicio
retorne b*a
fimfuncao
funcao losango (d1,d2:real):real // Área do Losango
inicio
retorne (d1*d2)/2
fimfuncao
procedimento imprimaMenu //Criação do Menu de Opções
inicio
Escreval ("Escolha a figura que deseja calcular a área:")
Escreval ("1 - Para calcular a área do Quadrado.")
escreval ("2 - Para calcular a área do Triângulo.")
escreval ("3 - Para calcular a área do Retângulo.")
escreval ("4 - Para calcular a área do Losango.")
fimprocedimento
Inicio
repita // Processo para repetir o menu de opção e os cálculos do programa
 imprimaMenu
 leia (opcao)
 escolha opcao
 caso 1 //Opção Quadrado
 escreval ("Digite o lado do quadrado: ")
 leia (l)
 area <- quadrado (l)
 escreval ("A área do quadrado é: ", area)
 caso 2 //Opção Triângulo
 escreval ("Digite os valores da base e da altura do triângulo: ")
 leia (b, a)
 area <- triangulo (b, a)
 escreval ("A área do triângulo é: ", area)
 caso 3 //Opção Retângulo
 escreval ("Digite o valor da base e da altura do Retâgulo: ")
 leia (a, b)
 area <- retangulo (a, b)
 escreval ("O área do retângulo é: ", area)
 caso 4 //Opção Circunferência
 escreval ("Digite o valor das diagonais do losango: ")
 leia (d1, d2)
 area <- losango (d1, d2)
 escreval ("A área do losango é: ", area)
 outrocaso // Caso o valor da opção não esteja identificado no Menu
 escreval ("Opção Inválida")
 fimescolha
 escreval ("Você deseja realizar outro cálculo? Responda 'Sim' caso queira ou 'Não' para sair do programa.") //Processo que define continuação ou finalização dos cálculos
 leia (resposta)
 limpatela // Comando para apagar os cálculos anteriores
ate resposta = "Não"
// Saída
escreval ("Você escolheu sair do programa, obrigado por usá-lo.")
fimalgoritmo