Algoritmo para calcular a tabuada [Outros]

Algoritmo para calcular a tabuada

Publicado por Rodrigo Zanuzzo (última atualização em 10/06/2010)

[ Hits: 29.749 ]

Homepage: @rodrigozanuzzo

Download tabuada.alg

0 0

Denuncie Favoritos Indicar

Algoritmo simples que solicita um número e calcula a tabuada deste.

Esconder código-fonte

algoritmo "tabuada"
// Função :Solicita um numero e calcula a tabuada deste numero
// Autor :Rodrigo Zanuzzo
// Data : 9/6/2010
var
n,calc:inteiro
inicio
leia "Digite um numero para a tabuada",n
calc<-n*0
escreva n," X 0 =",calc
calc<-n*1
escreva n," X 1 =",calc
calc<-n*2
escreva n," X 2 =",calc
calc<-n*3
escreva n," X 3 =",calc
calc<-n*4
escreva n," X 4 =",calc
calc<-n*5
escreva n," X 5 =",calc
calc<-n*6
escreva n," X 6 =",calc
calc<-n*7
escreva n," X 7 =",calc
calc<-n*8
escreva n," X 8 =",calc
calc<-n*9
escreva n," X 9 =",calc
calc<-n*10
escreva n," X 10 =",calc
fimalgoritmo

Scripts recomendados

Crivo de Eratóstenes Simples em Fortran 95

Octave - Calcular raiz pelo método de Newton

Octave - Método de Euler-Melhorado para solução de EDO

Octave - Sistemas lineares por Jacobi

Octave - Sistemas lineares por Gauss-Seidel

Comentários

[1] Comentário enviado por landex em 10/06/2010 - 08:31h

Bem Legal este algoritmo. Muito Bom cara.

0 0

[2] Comentário enviado por eldermarco em 10/06/2010 - 11:51h

Mas eu não poderia criar um laço indo de 0 a 10 que deixaria a coisa mais clara e pouco repetitiva no código? Não sei a lógica desse pseudo-código, mas acho que dá pra entender o que está abaixo:

----------------------------------------------------------------------
para i igual a 0; i menor ou igual a 10; incremente i; faça:
...calc<-n*i
...escreva n," X", escreva i, " = ",calc
pronto
-----------------------------------------------------------------------

Esses "..." não existem, é só para ficar clara a indentação.

Isso reduziria o tamanho do código e deixaria a coisa mais elegante, creio.

2 0