Algoritmo para calcular a tabuada

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

[ Hits: 29.461 ]

Homepage: @rodrigozanuzzo

Download tabuada.alg




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

Octave - Decomposição LU

Crivo de Eratóstenes Simples em Fortran 95

Teste de hardware e outros

Função Fatorial Recursiva em Fortran 95

Octave - Sistemas lineares por Jacobi


  

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

Bem Legal este algoritmo. Muito Bom cara.

[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.

[3] Comentário enviado por gpr.ppg.br em 17/02/2011 - 01:58h

usando linux e o programa portugol 2.3
não funciona :-(

mas deve funcionar no visualg.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts