Um bom dia a todos os programadores, como vocês estão? Hoje estou aqui para compartilhar com vocês um código que escrevi em portugol. É um programa que calcula o número de diagonais existentes em um polígono. Se você não sabe o que é isto, recomendo que assista ao vídeo abaixo antes de continuar a leitura.
Link do vídeo: https://www.youtube.com/watch?v=uKD1Ryg30Do&list=PLf1lowbdbFIC_wrnGEOSULrtaifeU4b66&index=7
Então fica o desafio. Criar um programa para calcular quantas diagonais existem em um polígono. Não deixem de compartilhar o código aqui nos comentários. O meu é este aqui:
algoritmo “calculadora-de-diagonais”
// Função : Calcular o número de diagonais existentes em um polígono regular.
// Autor : XikuGuarana
// Data : 26/03/2016
// Seção de Declarações
var
x, ladPol, total: real
resp: caractere
inicio
// Seção de Comandos
x <- 1
Enquanto x = 1 faca
LimpaTela
EscrevaL("================== C A L C U L A D O R A D E D I A G O N A I S =================")
EscrevaL(“Digite o número de lados do polígono:”)
Leia(ladPol)
LimpaTela
total <- (ladPol * (ladPol - 3)) / 2
EscrevaL("================== C A L C U L A D O R A D E D I A G O N A I S =================")
EscrevaL(“Este polígono possui” , total ," diagonais.")
EscrevaL(“Deseja realizar uma nova operação? [s/n]:”)
Leia(resp)
Se (resp = “s”) entao
total <- 0
ladPol <- 0
senao
x <- x + 1
FimSe
FimEnquanto
LimpaTela
Escreva(“Créditos: XikuGuarana”)
fimalgoritmo
E o seu? Um forte abraço a todos.