Visualg - FAtorial e Fibonacci

[gugaplanura]

algoritmo "semnome"

// Função :

// Autor :

// Data : 16/4/2010

// Seção de Declarações

var

num, op, fat, contador :inteiro //variáveis do fatorial

fibA, fibB, fibC :real //variaveis do fibonacci

cont, numero :inteiro

inicio

// Seção de Comandos

repita

Escreval ("Digite 1 para fatorar")

Escreval ("Digite 2 para calcular o fibonacci de um número")

Escreval ("Digite 3 para fatorar")

Leia (op)

fat:=1

Se (op = 1) então

Escreval ("Digite o número a ser fatorado")

Leia (num)

para contador de 1 ate num faca

fat:=fat*contador

fimpara

Escreval("O número", num, " fatorado é: ", fat)

Senao

Se (op = 2) então

Escreval ("Digite o número para calcular o fibonacci")

Leia (numero)

para cont de 1 ate numero faca

fibA:=1

fibB:=1

fibC:=fibA+fibB

fibA:=fibB+fibC

Escreval (FibB)

fimpara

fimse

fimse

ate (op = 3)

fimrepita

Fimalgoritmo

Eu não sei fazer o fibonacci.

Não sei o que eu coloco pra ler, e não sei se está certo essa conta.

=//////////////

ALGUÉM ME AJUDA.

Abraços.

Agradeço desde já.

[gugaplanura]

Sobre a conta do fibonacci eu já consegui aqui.

Agora eu estou com outra dúvida.

O programa está compilando certinho, fazendo corretamente as equações.

Só que no trabalho, está pedindo, quando digitado letras, ou palavras, aparecer uma mensagem dizendo algo do tipo: LETRAS NÃO PODEM SER DIGITADAS, e voltar ao menu.

Vou deixar aqui o programa do jeito qeu ainda está.

var

num, fat, contador :inteiro

fibA, fibB, fibC :real

cont, numero :inteiro

op : caracter

inicio

// Seção de Comandos

repita

Escreval ("Digite 1 para fatorar")

Escreval ("Digite 2 para calcular o fibonacci de um número")

Escreval ("Digite 3 para fatorar")

Leia (op)

fat:=1

Se (op = 1) então

Escreval ("Digite o número a ser fatorado")

Leia (num)

para contador de 1 ate num faca

fat:=fat*contador

fimpara

Escreval("O número", num, " fatorado é: ", fat)

Senao

Se (op = 2) então

Escreval ("Digite o número para calcular o fibonacci")

Leia (numero)

fibA:=1

fibB:=1

fibC:=0

para cont de 1 ate numero faca

Escreval ("O número", numero, " em fibonatti é: ", fibA)

Escreval

fibA:=fibB+fibC;

fibC:=fibB

fibB:=fibA

fimpara

fimse

fimse

ate (op = 3)

fimrepita

fimalgoritmo

[duda3005]

Você pode fazer um Switch Case... com Default dando a mensagem...

acredito que em VisualG seria o Caso 1, Caso 2, OutroCaso.....

[gugaplanura]

Não posso usar nenhum comando além do. Se, enquanto, para, e repita.

=/

[duda3005]

Só que no trabalho, está pedindo, quando digitado letras, ou palavras, aparecer uma mensagem dizendo algo do tipo: LETRAS NÃO PODEM SER DIGITADAS, e voltar ao menu.

Faça algo do tipo:

Enquanto ele nao digitar números...

comandos.....