Resolvendo algoritmos

[$c0rp1on_x 0]

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif Alguém consegue resolver estes dois problemas?

 

1º Uma máquina de biscoito está com problemas. Quando ligada, após 1 hora ela quebra 1 biscoito, na segunda hora ela quebra 3 biscoitos, na hora seguinte ela quebra 3 vezes a quantidade de biscoitos quebrados na hora anterior, e assim por diante. Faça um algoritmo que calcule quantos biscoitos são quebrados no final de cada dia (a máquina opera 16 horas por dia).

 

 

 

2º Faça um algoritmo para calcular o valor de S dado por:

S = 3/2 + 5/6 + 7/12 + 9/20 + 11/30 + ...

 

Considere os 20 primeiros termos da série.

 

 

As primeiras 3 pessoas que resolverem, ganharão 3 meses de hospedagem na GCM HOST

Plano Standart = 100MB de espaço em disco e 1GB de tráfego mensal, recursos ilimitados.

 

Aproveitem a promoção!!!

 

GCM Tecnology & Internet Ltda.

[Vergil 15]

Utilizando Portugol com o Visualg http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

 

1)

algoritmo "semnome"// Função :// Autor : Vergil// Data : 14/11/2006// Seção de Declarações var   quebrados, horas : inteiroinicio   // Seção de Comandos   quebrados <- 1   para horas <- 2 ate 16 faca	   quebrados <- quebrados + (3 * quebrados)   fimpara   escreva("Biscoitos quebrados por dia: ", quebrados)fimalgoritmo

2)

algoritmo "semnome"// Função :// Autor : Vergil// Data : 14/11/2006// Seção de Declarações var   dividendo, divisor, contar, variacao : inteiro   S : realinicio	  // Seção de Comandos	  dividendo <- 3	  divisor   <- 0	  variacao  <- 2	  para contar <- 1 ate 20 faca		   divisor   <- divisor + variacao		   variacao <- variacao + 2		   S <- S + (dividendo / divisor)		   dividendo <- dividendo + 2	  fimpara	  escreva("Valor de S considerando os 20 primeiros termos da serie: ", S)fimalgoritmo