Algoritmos tabuada

Exercicios de algoritmios

1)
Numero: inteiro
Contador: inteiro
R: Inteiro inicio // Seção de Comandos escreva("Tabuada de um numero: ") leia(numero) contador<- -1 repita contador<- Contador + 1
R<-(Numero * Contador)
Escreval(Numero," X",Contador,"=",R) ate contador =10 fimalgoritmo 2) algoritmo "semnome"
// Função :
// Autor :
// Data : 17/09/2012
// Seção de Declarações var i: inteiro s: caractere inicio enquanto (s<>"t") faca escreval("Digite a letra correspondente ao seu sexo: ´M´ ou ´F´.") escreval("Ou se desejar sair pressione a tecla ´T.´") leia(s) limpatela se (s="m") ou (s="f") entao escreval("Digite sua idade:") leia(i) se (i>=21) entao escreval("Voçe é um adulto.") senao escreval("Voçe não é um adulto.") fimse fimse se (s<>"t") e (s<>"m") e (s<>"f") entao limpatela escreval("Voçe digitou um valor incorreto! Por favor tente novamete!") fimse fimenquanto

fimalgoritmo

3) a: algoritmo "semnome"
// Função :
// Autor :
// Data : 21/09/2012
// Seção de Declarações var n,n2,cont:inteiro inicio
// Seção de Comandos enquanto (n mod 2=0) faca escreva(" Digite um numero.: ") leia(n) escreva(" Digite outro numero.: ") leia(n2) se (n=0) ou (n2=0) ou (n mod 2<>0) ou (n2 mod 2<>0) entao escreva(" O numero 0 ou um numero impar foi digitado.") fimalgoritmo senao escreval(" A Soma e.: ",n+n2) fimse cont<-(cont+1) fimenquanto fimalgoritmo

fimalgoritmo

B; algoritmo "semnome"
// Função :
// Autor :
// Data : 21/09/2012
// Seção de Declarações var n,n2,cont : inteiro inicio // Seção de Comandos cont<-0 enquanto (cont<10) faca escreva(" Digite um numero.: ") leia(n) escreva(" Digite outro numero.: ") leia(n2) se (n=0) ou (n1<0) ou (n mod 2=0) ou (n2 mod <0) entao escreva(" O numero 0 ou um numero par foi digitado.") fimalgoritmo senao escreval(" A Subtracao e.: ",n-n2) fimse fimenquanto fimalgoritmo c;