algoritmo "Tabuada" var i,j: inteiro opcao:caractere procedimento somar() inicio para i de 1 ate 10 faca escreval("---------TABUADA DE ",i,"--------") para j de 1 ate 10 faca escreval(i," + ",j," = ",i+j) fimpara fimpara fimprocedimento procedimento multiplicar() inicio para i de 1 ate 10 faca escreval("---------TABUADA DE ",i,"--------") para j de 1 ate 10 faca escreval(i," x ",j," = ",i*j) fimpara fimpara fimprocedimento procedimento dividir() inicio para i de 1 ate 10 faca escreval("---------TABUADA DE ",i,"--------") para j de 1 ate 10 faca escreval(i," / ",j," = ",i/j:2:2) fimpara fimpara fimprocedimento procedimento subtrair() inicio para i de 1 ate 10 faca escreval("---------TABUADA DE ",i,"--------") para j de 1 ate 10 faca escreval(i," - ",j," = ",i-j) fimpara fimpara fimprocedimento procedimento executar() inicio escreval("MINHA TABUADA") escreva("Favor digite a operação a ser realizada [ + - x / ]: ") leia(opcao) escreval() escolha opcao caso "+" somar() caso "x" multiplicar() caso "/" dividir() caso "-" subtrair() outrocaso escreval("Operação inválida!") fimescolha fimprocedimento inicio executar() fimalgoritmo
Free Web Hosting