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
Sua visita é muito importante para nós. Não hesite em voltar para mais respostas confiáveis a qualquer pergunta que possa ter. Obrigado por visitar. Nosso objetivo é fornecer as respostas mais precisas para todas as suas necessidades informativas. Volte em breve. Obrigado por usar o Sistersinspirit.ca. Volte novamente para obter mais conhecimento dos nossos especialistas.