Profº Piva - Algoritmos - Exercícios Capítulo 2.15) Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calculo area circulo"

var

  r, area:real

inicio

  escreval ("Calculo para descobrir a area do circulo")

  escreval ("Digite o valor do raio do circulo")

  leia (r)

  area <- 3.14*r^2

  escreval ("A area desse circulo é igual a ",area,".")

  escreval ("****FIM****")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.14) Escreva um algoritmo que calcule a quantidade de latas de tinta necessárias e o custo para pintar tanques cilíndricos de combustível, onde são fornecidos (o algoritmo lê) a altura (h ) e o raio ) e o raio ( r ) desse cilindro. Sabe-se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5 litros e cada litro pinta 3 metros quadrados na média. Para que fique bem coberto de tinta, há necessidade de 2 demãos.

algoritmo "Cálculo da quantidade de lata de tinta necessária"

var

  h,r,areat,qt,lata,qtdet,pt:real

inicio

  escreval("Cálculo da quantia necessária de tinta para pintar tanques cilíndricos")

  escreva("Digite quanto tanque sera pintado")

  leia(qt)

  escreva("Digite a altura correspondente do tanque em metros ")

  leia(h)

  escreva("Digite o raio correspondente do tanque em metros   ")

  leia(r)

  areat <- (2*3.14*r*h) + (2*3.14*r^2)

  escreval("A área correspondente a um tanque é ",areat," metros.")

  lata <- (areat*qt)*2/15

  pt   <- lata*40

  escreval("Será necessário ",lata:5:2," lata(s) de tinta, para pintar os tanques.")

  escreval("O preço total da tinta é de R$",pt:5:2,".")

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.13) Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

an = a1 x q (2.5)


onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.

Resposta:

algoritmo "Calculo da progressão geometrica"

var

  a1,q,n,an:real

inicio

  escreval("Calculo da progressão geometrica")

  escreva("Digite o valor de a1 ")

  leia(a1)

  escreva("Digite o valor de q  ")

  leia(q)

  escreva("Digite o valor de n  ")

  leia(n)

  an <- a1*(q^(n-1))

  escreval("O valor de an é igual a ",an)

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Capitulo 2.12) Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

Resposta:

algoritmo "Cálculo da progressão aritmétrica"

var

  a1,an,r,sn,n:real

inicio

  escreval("Calculo da progressão aritmétrica")

  escreva("Digite o valor de a1 ")

  leia (a1)

  escreva("Digite o valor de an ")

  leia (an)

  escreva("Digite o valor de r  ")

  leia (r)

  n  <-((an-a1)/r)+1

  sn <-((a1+an)/2)*n

  escreval("A soma Sn dos n primeiros termos da progressão aritmétrica é      igual a ",Sn,".")

  escreval("*** F I M ***")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.11) Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,

algoritmo "Calculo Conta"

var

  tul,pizzagde,cobt,qtdepessoas,txgarcom,vlrpessoa,vlrped,vlrtt:real

inicio

  escreval ("Digite a quantidade de tulipa consumidas")

  leia (tul)

  escreval ("Digite a quantidade de pizzas consumidas")

  leia (pizzagde)

  escreval ("Digite a quantidade de coberturas consumidas")

  leia (cobt)

  escreval ("Digite a quantidade de pessoas na mesa")

  leia (qtdepessoas)

  vlrped <- (tul*2.80)+(pizzagde*20)+(cobt*1.5)

  txgarcom <- vlrped*0.1

  vlrtt <- vlrped+txgarcom

  vlrpessoa <- (vlrtt/qtdepessoas)

  escreval ("O valor total da conta com os 10% do garcom eh igual a", vlrtt)

  escreval ("O valor a ser pago por pessoa eh igual a R$:", vlrpessoa:5:2, " para cada")

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.8) No seguinte algoritmo existem erros de sintaxe? Em caso afirmativo, onde ?

01. altoritmo “Teste” - 1º erro
02. var
03. marca: literal       - 2º erro
04. idade: numérico  
05. letra: literal
06. marca : numérico
07. início
08. leia(idade)  - 3º erro
09. escreva(idade)
10. idade = 678  - 4º erro
11. leia(“letra”)
12. leia(ABC) - 5º erro
13. escreva (letra)
14. letra <- 4  - 6º erro
15. fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.10) Escreva um algoritmo que leia o nome de um piloto, uma distância percorrida em quilômetros e o tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em km/h, e exibir a seguinte frase:

A velocidade média do <nome do piloto> foi
<velocidade média calculada> km/h

Resposta:

algoritmo "Nome Piloto e Velocidade Media em Km/h"

var

  nomepiloto:literal

  dpkm,tm,vkm:real

inicio

  escreval ("Qual o nome do piloto")

  leia (nomepiloto)

  escreval ("Qual a distancia percorrida em km/h")

  leia (dpkm)

  escreval ("Tempo para realizar o percurso")

  leia (tm)

  vkm <- dpkm*tm // calculo vkm

  escreva ("A velocidade media de -", nomepiloto, " foi - ", vkm, " km/h")

 

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.18) Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.

algoritmo "Calculo salario do vendedor"

var
  nomevendedor:literal
  salarioInicial,salarioFinal,salarioComissao,Comissao,totalcarros, porcentagem:real
inicio
  escreval ("Digite o nome do vendedor")
  leia (nomevendedor)
  escreval ("Digite o valor de seu salario")
  leia (salarioInicial)
  escreval ("Digite o valor da comissão por carro vendido")
  leia (comissao)
  escreval ("Digite a quantidade de carros vendidos no mes")
  leia (totalcarros)
  salarioComissao <- (comissao*totalcarros)
  salarioFinal <- salarioComissao*0.04
  escreva (" O vendedor," nomevendedor "vendeu," totalcarros " e seu salario sera de R$: " salarioFinal)

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 2.6) Assinale com um X os comandos de atribuição considerados inválidos:

var
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM: numérico
1. (X) NOME <- 5
2. ( ) SOMA <- NUM + 2*X
3. (X)TESTE <- SOMA
4. ( ) NUM <- SOMA
5. ( ) COR <- “PRETO”
6. ( ) X <- X + “1”
7. (X) NUM <- “ABC”
8. ( ) DIA<- “seGUNDA”
9. (X) SOMA + 2 <- NUM
10. (X) X <- (NOME = COR)
11. (X) “ABC” <- NOME
12. (X) NOME <- DIA + COR

Profº Piva - Algoritmos - Exercícios Capítulo 2.7) Escreva um algoritmo que calcule o valor de base (expoente). O algoritmo deve ler o valor da base e do expoente. Após, ele deve escrever o valor de base (expoente).

algoritmo "Calculo da base e expoente"

var

  base,expoente,baseexpoente:real

inicio

  escreval ("Qual o valor da base")

  leia (base)

  escreval ("Qual o valor do expoente")

  leia (expoente)

  baseexpoente <- base^expoente

  escreval ("O valor da base e expoente eh igual", baseexpoente)

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 3.11) Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias transcorridos no ano.

algoritmo "Dias Corridos"

var

  dia,mes,ano,dc:inteiro

inicio

  escreva ("Entre com o dia")

  leia (dia)

  escreva ("Entre com o mes")

  leia (mes)

  escreva ("Entre com o ano")

  leia (ano)

  se ((ano%4)= 0) entao

      dc <- 366

  senao

      dc <- 365

  fimse

       se (mes=12) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=11) entao

           dc <- dc - 30

           dc <- dc + dia

       senao

           dc <- dc + dia

       fimse

       se (mes=10) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=9) entao

          dc <- dc - 30

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=8) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=7) entao

          dc <- dc - 30

          dc <- dc + dia

       senao

         dc <- dc + dia

       se (mes=6) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=5) entao

          dc <- dc - 30

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=4) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=3) entao

          dc <- dc - 30

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

       se (mes=2) entao

          se ((ano%4)=0) entao

             dc <- dc - 29

             dc <- dc + dia

          senao

            dc <- dc - 28

            dc <- dc + dia

          fimse

       senao

         dc <- dia

       fimse

       se (mes=1) entao

          dc <- dc - 31

          dc <- dc + dia

       senao

         dc <- dc + dia

       fimse

    

fimalgoritmo

Profº Piva - Algoritmos - Exercícios Capítulo 3.17) Escreva um algoritmo que leia a quantia R$ em dinheiro que uma pessoa tem para enviar cartas, o preço PE de um envelope, o preço PS de um selo, a quantidade QS de selos que a pessoa jáo preço PE de um envelope, o preço PS de um selo, a quantidade QS de selos que a pessoa já dispõe e a quantidade de envelopes QE que a pessoa também já dispõe. O algoritmo deve calcular e informar quantas cartas a pessoa pode enviar.

algoritmo "Cartas"

var

  rs,pe,ps,ce:real

  qs,qe,qer,qce,qca,qsa,qea:inteiro

inicio

  leia (rs,pe,ps,qs,qe)

  ce <- pe+ps

  se (qe > qs) entao

      qer <- qe - qs

        se (qer*ps) <= rs)

          qce <- qs

          qca <- rs div ce

          qce <- qce + qca

        senao

          qsa <- rs div ps

          qce <- qs + qsa

        fimse

  senao

    se (qs>qe) entao

        qer <- qs - qe

        se ((qer*pe) < = rs) entao

           rs <- rs - (qer*pe)

           qce <- qe

           qca <- rs div ce

           qce <- qce + qca

        senao

           qea <- rs div pe

           qce <- qe + qea

        fimse

    senao

       qce <- qs

       qca <- rs div ce

       qce <- qce <- qca

    fimse

  fimse

  escreva (" A quantidade de cartas enviadas eh", qce)

fimalgoritmo

Profº Piva - Algoritmos - Capitulo 2.5) Assinale com um X os nomes de variáveis válidos:

1. (X) abc
2. ( )3abc
3. (X)a
4. ( )123ª
5. ( )-a
6. ( )acd1
7. ( )-_ad
8. ( )A&a
9. ( ) prim-nom
10. ( ) A123
11. (X)Aa
12. ( ) prim_nom
13. ( ) ABC DE
14. ( ) etc.
15. (X) E
16. (X)”nome”

Profº Piva - Algoritmos - Exercícios Capítulo 2.9) Um representante comercial realizará uma viagem de vários dias com um automóvel, e, após, deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que, a partir desses dados, informe a quilometragem média por litro de gasolina.

algoritmo "Quilometragem media por litro de gasolina"
var
  kmInicial,kmFinal,gasolina,kmMedia,litroporkm:numerico
inicio
  escreva ("Qual a quilometragem inicial: ")
  leia (kmInicial)
  escreva ("Qual a quilometragem final: ")
  leia (kmFinal)
  escreva ("Qual o valor em litros de gasolina durante a viagem: ")
  leia (gasolina)
  kmMedia <- kmFinal-kmInicial
  escreval ("Total de Quilometros percorridos",KmMedia)
  litroporkm <- kmMedia/gasolina
  escreval ("A quilometragem media por litro de gasolina eh: ",litroporkm)
fimalgoritmo

Profº Piva - Exercícios Capitulo 3.6) Um sistema de equações lineares do tipo:

 a x X + b x y = c
 d x X + e x y = f

pode ser resolvido da seguinte forma:


x =  c x e  - b x f
a x e - b x d

y = a x f – c x d
a x e – b x d

Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

Resposta:

algoritmo "Exercicio 3.6"
var   vA,vB,vC,vD,vE,vF,x,y:real
inicio   escreval("Informe o valor de 'a':")
   leia(vA)
  
   escreval("Informe o valor de 'b':")
   leia(vB)
  
   escreval("Informe o valor de 'c':")
   leia(vC)
  
   escreval("Informe o valor de 'd':")
   leia(vD)
  
   escreval("Informe o valor de 'e':")
   leia(vE)
  
   escreval("Informe o valor de 'f':")
   leia(vF)

   se (vA=0 ou vE=0) entao
      escreva("O valor de 'a' e 'e' não podem ser igual a 0(zero)")
   senao
      x<- ((vC*vE)-(vB*vF))/((vA*vE)-(vB*vD))
      y<- ((vA*vF)-(vC*vD))/((vA*vE)-(vB*vD))
   fimse
fimalgoritmo

Profº Piva - Exercícios Capitulo 3.5) Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo " São múltiplos ou não múltiplos"var
  x,y:real
inicio
  escreval(" São múltiplos ou não múltiplos.")
  escreva(" Digite o primeiro número = ")
  leia(x)
  escreva(" Digite o segundo  número = ")
  leia(y)
  se ((x>y e ((x mod y)= 0)) entao
  escreva ("São múltiplos.")
  senao
  escreva("Não são múltiplos.")
  fimse
  fimalgoritmo

Profº Piva - Exercícios Capitulo 3.4) Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.

 algoritmo "Cálculo" var area,raio:real inicio      
 escreva ("Digite o valor de raio: ")
  leia (raio)
  Se ((raio>0) ou (raio=0)) entao
  area <- pi*(raio^2)
  escreva ("Área igual a ",area:5:2)
  senao
  escreval ("O raio precisa ser >=0 ")
  escreval ("*** F IM ***")
  fimse
  fimalgoritmo

Profº Piva - Exercícios Capitulo 3.3) Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo, supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”, FALSO e VERDADEIRO? 1. NOME <- DIA / 2. SOMA <- (NUM^2/X) + (X + 1) / 3. TUDO <- não ((TESTE ou COD) e (X <> NUM))

1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F^2/X) + (X + 1)

Profº Piva - Exercícios Capitulo 3.2) Avalie (forneça o resultado da expressão lógica) (((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0)) mostrando todos os passos utilizados para obtenção da solução.

Resposta:

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))
        V         e         V          ou       V      e        F
                        V                         ou               F
                                      =  F

Profº Piva - Exercícios Capitulo 3.1) Resolva as expressões lógicas:

 1.    2 >3 - Falso

 2.   (6 < 8) ou (3 > 7) - Verdadeiro

 3.   não (2 <> 2.0) - Verdadeiro

 4.   5 >= 6 ou  6 < 7 ou não ( a+ 5 – 6 = 8) - Verdadeiro

 5.    ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29 - Falso

Profº Piva - Algoritmos - Capítulo 2.4) Classifique os valores das constantes abaixo, de acordo com seu tipo, assinalando com N os dados numéricos e com L os literais:

1. (N) 0
2. (L) “abc”
3. (L) “João”
4. (L) “FALSO”
5. (L) 1012
6. (L) “V”
7. (N) -49
8. (N) +342
9. (L) 569
10. (L) “Zé”
11. (N) 5. 7
12. (N)0.00001
13. (N) 3.1415
14. (N)-545
15. (L)”444”
16. (N) “1+2”

Profº Piva - Algoritmos - Exercício 5) Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano, P (x1, y1) e P (x2, y2), escreva a distancia entre eles. A formula que efetua tal cálculo é: d= (raizq (x2-x1)/2 + (y2-y1)/2).

algoritmo "Cálculo de distância"

var
  x1,x2,y1,y1,d:real
inicio
  escreval("Calculo de distância entre dois pontos P(x1,y1) e P(x2,y2).")
  escreva("Digite o primeiro valor do primeiro ponto -")
  leia(x1)
  escreva("Digite o segundo  valor do primeiro ponto -")
  leia (y1)
  escreva("Digite o primeiro valor do segundo  ponto - ")
  leia (x2)
  escreva("Digite o segundo  valor do segundo  ponto - ")
  leia (y2)
  d <- raizq(x2-x1)^2+(y2-y1)^2
  escreval("Distância entre os dois pontos é igual ",d)
  escreva (d)
 
fimalgoritmo

Profº Piva - Algoritmos - Exercício 10) Faça um algoritmo que leia o tempo de duração de um evento de uma fábrica expressa em segundos e mostre-o em horas, minutos e segundos.

algoritmo "CALCULO DO TEMPO"

var
  s,m,h,rs,rm,sobra:inteiro
inicio
  escreval("Cálculo de tempo do evento")
  escreva("Digite o tempo do eventos em segundos ")
  leia(s)
  m  <- s div 3600
  h  <- m div 60
  rs <- s - (m*3600)
  rm <- m - (h*60)
  escreval("O evento durou, ",h," hora(s), ",rm," minuto(s), ",rs," segundo(s).")
  escreva("*** F I M ***")

  fimalgoritmo

Prof° Piva - Algoritmos - Exercício 12) Faça um fluxograma que receba duas notas, calcule a média e mostre uma das seguintes mensagens: Média maior que 5 Mensagem - Aprovado/ Média menor que 5 Mensagem - Reprovado.

Profº Piva - Algoritmos - Exercício 11) Qual o peso ideal de uma pessoa? Calcule isso utilizando o IMC. O IMC ideal é 25. IMC= p sobre h elevado a 2. Faça um fluxograma que receba a altura de uma pessoa e informe seu peso ideal.

algoritmo "Peso ideal"

var
  h, p:real
inicio
  escreval ("Calculo de peso ideal")
  escreva ("Digite sua altura")
  leia (h)
  p <- 25*(h^2)
  escreval ("Seu peso ideal eh")
  escreva (p)
fimalgoritmo

Profº Piva - Algoritmos - Exercício 9) Faça um algoritmo que leia as 3 notas de um aluno e calcule a média final deste aluno. Considerar que a média é ponderada e que o peso das notas é: 2, 3 e 5, respectivamente:

algoritmo "Calculo Média Ponderada"

var
  n1, n2, n3, media:real
inicio
  escreval ("Calculo de media ponderada com notas de peso, 2,3 e 5")
  escreva ("Digite o valor da primeira nota?")
  leia (n1)
  escreva ("Digite o valor da segunda nota?")
  leia (n2)
  escreva ("Digite o valor da terceira nota?")
  leia (n3)
  media <- (n1*2)+(n2*3)+(n3*5)/10
  escreval ("O valor da media eh igual a")
  escreva (media)
fimalgoritmo

Profº Piva - Algoritmos - Exercício 7) Faça um algortimo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-se expressa apenas em DIAS.

algoritmo "Idade expressa em DIAS   "

var
  a, m, d:real
inicio
  escreval ("Calculo idade em anos, meses e expressa em dias")
  escreva ("digite quantos anos voce tem")
  leia (a)
  escreva ("digite quantos meses voce tem")
  leia (m)
  d <- a*365+m*30+d*1
  escreval ("Sua idade em dias eh igual a")
  escreva (d)
 
fimalgoritmo

Profº Piva - Algoritmos - Exercício 6) Escreva um algoritmo que leia três números inteiros e positivos (A, B, C) e calcule a seguinte expressão: D= R+S sobre 2, onde R=(A+B) elevado a 2 e S=(B+C) elevado a 2.

algoritmo "Leia três números inteiros e positivos "

var
  a, b, c, R, S, D:real
inicio
  escreval ("Cálculo da expressão: d=R+S/2, onde R=(a+b)² e S=(b+c)².")
  escreval ("Qual o valor de a=")
  leia (a)
  escreval ("Qual o valor de b=")
  leia (b)
  escreval ("Qual o valor de c=")
  leia (c)
  R <- (a+b)^2
  S <- (b+c)^2
  D <- (R+S)/2
  escreval ("O valor das notas inteiras e positivas eh igual a")
  escreva (D)

fimalgoritmo

Profº Piva - Algoritmos - Exercício 4) Você possui dois gatos e acabou de comprar um pacote de ração (kg). Você deve dividir as porções de rações levando em consideração o peso de cada gato. Sabendo que para cada 1 kg de gato deverá ser servido 50 g de ração diariamente. Faça um algoritmo que solicite o peso de cada gato e

algoritmo "Porção diária e sobra do pacote ração"

var
  pgato1,pgato2,pdosgatos,quandiaria,quanrestante,ppacoteracao:real
inicio
  escreval("Digite o peso do primeiro gato ")
  leia(pgato1)
  escreval("Digite o peso do segundo gato ")
  leia(pgato2)
  escreval("Digite o peso do pacote de ração ")
  leia(ppacoteracao)
  pdosgatos<-pgato1+pgato2
  quandiaria<-pdosgatos*0.50
  quanrestante<-ppacoteracao-(quandiaria*5)
  escreval("A quantidade diaria que os gatos comem é  ",quandiaria, "Kg")
  escreval("A quantidade restante do pacote de ração é  ",quanrestante,"Kg")

fimalgoritmo

Profº Piva - Algoritmos - Exercício 3) Tendo o lado de um Triângulo Equilatero (lados iguais). Descubra qual a sua área?

algoritmo "Calculo Area Triangulo Equilatero"

var
  a, h, area:real
inicio
  escreval ("Calculo Area Triangulo Equilatero")
  escreva ("Qual e o valor do lado?")
  leia (a)
  h <- (a*(raizq(3)/2))
  escreva ("Qual e o valor da altura?")
  leia (h)
  escreval ("A area desse triangulo eh igual a:")
  area <- (a*h)/2
  escreva (area)
 
fimalgoritmo