algoritmo “semnome”
// Função :
// Autor :
// Data : 22/5/2010
// Seção de Declarações
var
N1,N2,O:Inteiro
R:Real
inicio
Escreva(“Digite um numero “)
Leia(N1)
Escreva(“Digite outro numero “)
Leia(N2)
Escreval(“Digite uma opção “)
Escreval(” Opção 1:Soma “)
Escreval(” Opção 2:Subtração “)
Leia(O)
Escolha O
caso 1
R<-N1+N2
caso 2
R<-N1-N2
outrocaso
Escreva ("Não existe essa opção ")
R<-0
fimescolha
escreva("O resultado é",r)
fimalgoritmo

algoritmo “semnome”
// Função : Fazer uma calculadora inteligente
// Autor : Guigo Lelles
// Data : 30/6/2009
// Seção de Declarações
var
o:inteiro
n1,n2,r:real
inicio
escreval(“Bem Vindo a Calculadora!”)
escreva(“Digite um número: “)
leia(n1)
escreva(“Digite outro número: “)
leia(n2)
escreval(“Digite uma opção:”)
escreval(“1 – Soma”)
escreval(“2 – Subtração”)
escreval(“3 – Multiplicação”)
escreval(“4 – Divisão”)
escreval(“5 – Divisão Inteira”)
escreval(“6 – Resto da Divisão Inteira”)
escreval(“7 – Expoenciação”)
escreval(“8 – Raiz Quadrada”)
escreval(“9 – Encerrar”)
leia(o)
se o=9 entao
escreva(“O programa será encerrado.”)
senao
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
caso 5
r<-n1\n2
caso 6
r<-n1%n2
caso 7
r<-n1^n2
caso 8
r<n1^0.5
outrocaso
escreval("Sua mula essa opção não existe!!!")
r<-0
fimescolha
escreval("O resultado é",r,".")
fimse
fimalgoritmo

Segue a minha correção se tiver alguma coisa errada é só falar

algoritmo “semnome”
// Função : Fazer uma calculadora inteligente
// Autor : Guigo Lelles
// Data : 30/6/2009
// Seção de Declarações
var
o:inteiro
n1,n2,r:real
inicio
escreval(“Bem Vindo a Calculadora!”)
escreva(“Digite um número: “)
leia(n1)
escreva(“Digite outro número: “)
leia(n2)
escreval(“Digite uma opção:”)
escreval(“1 – Soma”)
escreval(“2 – Subtração”)
escreval(“3 – Multiplicação”)
escreval(“4 – Divisão”)
escreval(“5 – Divisão Inteira”)
escreval(“6 – Resto da Divisão Inteira”)
escreval(“7 – Expoenciação”)
escreval(“8 – Raiz Quadrada”)
escreval(“9 – Encerrar”)
leia(o)
se o=9 entao
escreva(“O programa será encerrado.”)
senao
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
caso 5
r<-n1\n2
caso 6
r<-n1%n2
caso 7
r<-n1^n2
caso 8
r<n1^0.5
outrocaso
escreval("Sua mula essa opção não existe!!!")
r<-0
fimescolha
escreval("O resultado é",r,".")
fimse
fimalgoritmo

algoritmo “Contagem”
// Função :
// Autor :
// Data : 22/5/2010
// Seção de Declarações
var
c:inteiro
inicio
para c<-1 ate 100 faca
escreval(c," – Guanabarainfo é show")
fimpara
fimalgoritmo

VLWW… FUIIIII …

algoritmo “semnome”
// Função : Fazer uma calculadora inteligente
// Autor : Guigo Lelles
// Data : 30/6/2009
// Seção de Declarações
var
o:inteiro
n1,n2,r:real
inicio
escreval(“Bem Vindo a Calculadora!”)
escreva(“Digite um número.”)
leia(n1)
enquanto (o9) faca
escreval(“Digite uma opção.”)
escreval(“1 – Soma”)
escreval(“2 – Subtração”)
escreval(“3 – Multiplicação”)
escreval(“4 – Divisão”)
escreval(“5 – Divisão Inteira”)
escreval(“6 – Resto da Divisão Inteira”)
escreval(“7 – Expoenciação”)
escreval(“8 – Raiz Quadrada”)
escreval(“9 – Encerrar”)
leia(o)
se(o=8)entao
escreval(“O resultado é”,n1^0.5,”.”)
fimalgoritmo
fimse
se(o=9)entao
escreva(“O programa será encerrado.”)
fimalgoritmo
fimse
escreva(“Digite outro número.”)
leia(n2)
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
caso 5
r<-n1\n2
caso 6
r<-n1%n2
caso 7
r<-n1^n2
outrocaso
escreval(“Sua mula essa opção não existe!!!”)
r<-0
fimescolha
escreval(“O resultado é”,r,”.”)
fimenquanto
fimalgoritmo

….obrigado…..

Ta dando erro e ai o que fazer depois?

Cara, tinha a maior dificuldade em acompanhar o desenvolvimento das linguagens atuais.
( quando estudei “processamento de dados” heheh este era o nome: COBOL, RPG, ASSEMBLER, PL1….. tudo era na unha: fluxograma, programar por procedures, perfurar cartões etaus, FAZER “xinês” para ver a concistência do programa, tudo dificil, trabalhoso e inseguro. Computadores eram os mainframes IBM, gigantescos em salas quase secretas com segurança na porta e acesso restrito. Isto foi em 1977, ter acesso a uma maquina destas era um privilegio imenso. Toquei a vida em outros rumos e abandonei a programação.
Agora depois de conhecer este site tô programando de novo

V A L E U galera, parabéns pela iniciativa, os PODCAST´s tecnoligicos são uma ótima sacada.

Início da execução
Escreva um Numero? 3
Escreva outro Numero? 3
Digite uma opção
opção 1 : soma
opção 2 : subtração
1

Fim da execução

Consegui fazer os algoritimos dos episodios passados.
Mas esse não deu certo,quando chega na hora de mostrar o resultado aparece a seguinte mensagem
LINHA 29: ESPERAVA ENCONTRAR FIMALGORITIMO

vo passa o codigo pra vocêis verem se esta certo

algoritmo “semnome”
// Função :
// Autor :
// Data : 24/12/2008
// Seção de Declarações
var
n1,n2,o:inteiro
r:real
inicio
Escreva (“Escreva um Numero? “)
Leia (n1)
Escreva (“Escreva outro Numero? “)
Leia (n2)
Escreval(“Digite uma opção “)
Escreval(” opção 1 : soma “)
Escreval(” opção 2 : subtração “)
Leia (o)
Escolha o
Caso 1
r<- n1+n2
Caso 2
r<- n1-n2
OutroCaso
Escreva (“Sua Mula Não Tem Essa Opção “)
r<-0
Escreva (“o resultado è”,r)
fimalgoritmo

quase 1:00 da manhã e nada?

tenho que dormir, a falta do pod me causa insonia, isso não vai prestar amanhã.

escreva(“digite um número: “)
leia(n1)
escreva(“digite outro número: “)
leia(n2)
escreval(“digite uma opção”)
escreval(“opção1: soma”)
escreval(“opção2:subtração”)
leia(o)

?????????

caso 1
r<-n1+n2
caso 2
r<-n1-n2

Bjkas pra tdos,adoro vcs!!