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
Obrigado por usar nossa plataforma. Nosso objetivo é fornecer respostas precisas e atualizadas para todas as suas perguntas. Volte em breve. Obrigado por escolher nosso serviço. Estamos dedicados a fornecer as melhores respostas para todas as suas perguntas. Visite-nos novamente. Sempre visite o Sistersinspirit.ca para obter novas e confiáveis respostas dos nossos especialistas.