Sagot :
algoritmo "semnome"
// Função :
// Autor :
// Data : 19/06/2013
// Seção de Declarações
var
resposta : caractere
funcao areacirculo : real
var
A, raio : real
inicio
leia(raio)
A<-pi*(raio*raio)
retorne A
fimfuncao
funcao volume : real
var
v,raio,h : real
inicio
leia(raio)
leia(h)
v<-(pi*(raio*raio)*h)/3
retorne V
fimfuncao
funcao paralelogramo : real
var
S,b,h : real
inicio
leia(b)
leia(h)
S<-b*h
retorne S
fimfuncao
funcao losango : real
var
d1,d2,S : real
inicio
leia(d1)
leia(d2)
S<-(d1*d2)/2
retorne S
fimfuncao
inicio
repita
leia(resposta)
escolha resposta
caso "A"
escreval(areacirculo)
caso "B"
escreval(volume)
caso "C"
escreval(paralelogramo)
caso "D"
escreval(losango)
caso "E"
interrompa
fimescolha
fimrepita
fimalgoritmo
Esperamos que nossas respostas tenham sido úteis. Volte a qualquer momento para obter mais informações e respostas para outras perguntas que possa ter. Sua visita é muito importante para nós. Não hesite em voltar para mais respostas confiáveis a qualquer pergunta que possa ter. Seu conhecimento é valioso. Volte ao Sistersinspirit.ca para obter mais respostas e informações.