Final de semana inteira postando neste topico.

[pedro_bb7 0]

Acabei de comecar um curso.

Entao tem varios exercicios dificeis para fazer.

Preciso de que membros me ajudem postando onde estou errando nos algoritmos.

O que estou errando nesse exercicio?

Ainda falta validar as variaveis.

 

 

 

 

 

algoritmo "Exercicios de funções"

// Função : Fazer operações matemáticas

// Autor : Pedro Bermudez

// Data : 12/03/2009

// Seção de Declarações

funcao comp_circ (var raio : real) : real

inicio

raio <- 2 * pi * raio

retorne raio

fimfuncao

 

funcao area_ret (var lado1, lado2 : real) : real

var

area1 : real

inicio

area1 <- lado1 * lado2

retorne area1

fimfuncao

 

funcao area_tri (var lado1, lado2 : real) : real

var

area1 : real

inicio

area1 <- (lado1 * lado2)/2

retorne area1

fimfuncao

 

funcao vol_cubo (var lado1 : real) : real

inicio

lado1 <- lado1^3

retorne lado1

fimfuncao

 

funcao vol_esf (var raio : real) : real

inicio

raio <- 4/3 * pi * raio^3

retorne raio

fimfuncao

 

 

var

lado1, lado2, raio, result : real

opcao : inteiro

 

inicio

// Seção de Comandos

escreval ("---------------------------------------------------------")

escreval ("Digite 1 para calcular o comprimento de uma circuferencia:")

escreval ("Digite 2 para calcular a area de um retângulo:")

escreval ("Digite 3 para calcular a area de um triângulo retângulo:")

escreval ("Digite 4 para calcular o volume de um cubo:")

escreval ("Digite 5 para calcular o volume de uma esfera:")

escreval ("Digite 0 para sair!")

escreval ("---------------------------------------------------------")

leia (opcao)

enquanto (opcao <> 0) faca

escolha (opcao)

caso 1

escreval ("Digite o comprimento do raio da circuferencia:")

leia (raio)

result <- comp_circ (raio)

escreval ("O comprimento dessa circuferência é:", result)

 

caso 2

escreval ("Digite um dos lados do retângulo:")

leia (lado1)

escreval ("Digite o outro lado do retângulo:")

leia (lado2)

result <- area_ret (lado1 , lado2)

escreval ("A área desse retângulo é:", result)

 

caso 3

escreval ("Digite a base do triângulo:")

leia (lado1)

escreval ("Digite a altura desse triângulo:")

leia (lado2)

result <- area_tri (lado1 , lado2)

escreval ("A área desse triângulo retângulo é:", result)

 

caso 4

escreval ("Digite o lado desse cubo:")

leia (lado1)

result <- vol_cubo (lado1)

escreval ("O volume desse cubo é:", result)

 

caso 5

escreval ("Digite o raio da esfera:")

leia (raio)

result <- vol_esf (raio)

escreval ("O volume dessa esfera é:", result)

 

 

outrocaso

escreval ("Opção inválida")

 

fimenquanto

fimalgoritmo

[quitZAUMMM 18]

primeiro idente o codigo.

depois primeiro você precisa saber as coisas do lado matematico..

você rodo o algoritmo da algum erro??? em alguma parte ele naum ta mosntrando o resultado esperado?

 

[]s