sinta-se a vontade em colocar duvidas e soluções.
Programa para o estudo de Algoritmos: Portugol Viana
Link http://orion.ipt.pt/~manso/Portugol/download.html
Última edição por marcos20 em Qui 30 Jun 2011, 5:41 pm, editado 1 vez(es)
Você não está conectado. Conecte-se ou registre-se
Última edição por marcos20 em Qui 30 Jun 2011, 5:41 pm, editado 1 vez(es)
//Programa Calculadora
inicio
// declaração de variaveis
inteiro a , b , res
caracter operador
//Entrada de dados
escrever "Valor 1: "
ler a
escrever "Operador: "
ler operador
escrever "Valor 2: "
ler b
//Processamento
escolhe operador
caso "+":
res <- a + b
caso "-":
res <- a - b
caso "*":
res <- a * b
caso "/":
res <- a / b
defeito:
escrever "\n\nOperador invalido!!!\n\n"
fimescolhe
// Saída dos dados
escrever "Resultado: " , a , " " , operador , " " , b , " = " , res
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:16 am, editado 1 vez(es)
inicio
inteiro a , c , div , div2 , div3 , soma , d
escrever "Valor de 0 a 999: "
ler a
a <- a
d <- a / 10
c <- d
div <- c % 10
div2 <- c / 10
div3 <- a % 10
soma <- div + div2 + div3
escrever "\n Digito: " , div2
escrever "\n Digito: " , div
escrever "\n Digito: " , div3
escrever "\n Resultado final: " , soma
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:16 am, editado 1 vez(es)
inicio
inteiro cont
cont<-1
enquanto cont <= 10 faz
escrever " " , cont
cont <- cont + 1
fimenquanto
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:16 am, editado 2 vez(es)
inicio
inteiro a
inteiro b
inteiro soma
escrever "valor 1: "
ler a
escrever "valor 2: "
ler b
soma <- a + b
escrever "resultado:" , soma
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:17 am, editado 1 vez(es)
inicio
inteiro vetor [ 5 ]
inteiro cont , soma
para cont de 1 ate 5 passo 1
escrever "Digite o valor" , cont , ": "
ler vetor [cont-1]
proximo
soma <- 0
para cont de 1 ate 5 passo 1
soma <- soma + vetor[cont-1]
proximo
escrever "resultado: " , soma
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:17 am, editado 1 vez(es)
inicio
inteiro valor
escrever "valor :"
ler valor
se valor = 1 entao
escrever "hum"
senao
se valor = 2 entao
escrever "dois"
senao
se valor = 3 entao
escrever "tres"
senao
se valor = 4 entao
escrever "quatro"
senao
se valor = 5 entao
escrever "cinco"
senao
escrever "fora da faixa"
fimse
fimse
fimse
fimse
fimse
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:17 am, editado 1 vez(es)
inicio
inteiro i
para i de 1 ate 10 passo 1
escrever " ", i
proximo
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:18 am, editado 1 vez(es)
inicio
inteiro cont
cont<- 1
faz
cont <- cont + 1
escrever " ", cont
enquanto cont < 10
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:20 am, editado 3 vez(es)
inicio
inteiro cont <- 0
repete
escrever " " , cont
cont <- cont + 1
ate cont > 10
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:21 am, editado 1 vez(es)
inicio
inteiro num
escrever "valor :"
ler num
se num = 18 entao
escrever "maior de idade"
fimse
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:21 am, editado 1 vez(es)
inicio
inteiro num
escrever "valor :"
ler num
se num = 18 entao
escrever "maior de idade"
senao
escrever "menor de idade"
fimse
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:19 am, editado 1 vez(es)
inicio
real nota1
real nota2
real media
escrever "Nota 1:"
ler nota1
escrever "Nota 2:"
ler nota2
media <- ( nota1 + nota2 ) / 2
escrever media
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:19 am, editado 1 vez(es)
inicio
inteiro a , b , c , d
inteiro maior
escrever "valor 1: "
ler a
escrever "valor 2: "
ler b
escrever "valor 3: "
ler c
escrever "valor 4: "
ler d
maior <- a
se maior < b entao
maior <- b
fimse
se maior < c entao
maior <- c
fimse
se maior < d entao
maior <- d
fimse
escrever "Maior Numero: " , maior
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:18 am, editado 1 vez(es)
inicio
inteiro vet [ 2 ] [ 2 ]
inteiro i , j
inteiro k <- 1
escrever "Entrada de dados da Matriz\n\n"
//entrada dos dados
para i de 1 ate 2 passo 1
para j de 1 ate 2 passo 1
escrever "Digite o " , k , "º valor " , "da matriz:"
ler vet [ i - 1 ] [ j - 1 ]
k <- k + 1
proximo
proximo
//saida dos dados escritos da matriz
escrever "\n"
escrever "Essa é a matriz digitada:\n"
para i de 1 ate 2 passo 1
para j de 1 ate 2 passo 1
escrever " " , vet [ i - 1 ] [ j - 1 ]
proximo
escrever "\n"
proximo
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:18 am, editado 1 vez(es)
inicio
inteiro cont<-0
faz
escrever " " , cont
cont <- cont + 1
enquanto cont < 10
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:15 am, editado 1 vez(es)
inicio
inteiro vetor [ 5 ]
inteiro i
inteiro k <- 1
escrever "Entrada dos dados: "
escrever "\n"
escrever "\n"
para i de 0 ate 4 passo 1
escrever "Digite o valor " , k , ":"
ler vetor [ i ]
k <- k + 1
proximo
inteiro maior <- 0
inteiro menor <- vetor [ 0 ]
inteiro soma <- 0
para i de 0 ate 4 passo 1
se maior < vetor [ i ] entao
maior <- vetor [ i ]
fimse
se menor > vetor [ i ] entao
menor <- vetor [ i ]
fimse
soma <- soma + vetor [ i ]
proximo
real media <- soma / 5
escrever "\n"
escrever "Saida dos dados: "
escrever "\n"
escrever "\n"
escrever "Maior numero:" , maior
escrever "\n"
escrever "Menor numero: " , menor
escrever "\n"
escrever "Resultado da soma: " , soma
escrever "\n"
escrever "Resultado da media: " , media
fim
Última edição por marcos20 em Seg 13 Fev 2012, 9:14 am, editado 1 vez(es)
inicio
real nota [ 4 ]
inteiro i
inteiro k <- 1
para i de 0 ate 3 passo 1
escrever "Digite a nota " , k , ":"
ler nota [ i ]
k <- k + 1
proximo
inteiro soma <- 0
para i de 0 ate 3 passo 1
soma <- soma + nota [ i ]
proximo
real media <- soma / 4
escrever media
fim
algoritmo "mediaalunos"
// Função : Definir notas de alunos
// Autor : Matheus Pompeu
// Data : 02/03/2013
var // declaração de variáveis
nota1, nota2, nota3, nota4, media: real
nummatricula: inteiro
inicio
// Seção de Comandos
escreva ("insira o número de matrícula: ")
leia (nummatricula)
enquanto nummatricula <> 0 faca //laço de repetição
escreva ("insira nota da primeira avaliação: ")
leia (nota1)
escreva ("insira nota da segunda avaliação: ")
leia (nota2)
escreva ("insira nota da terceira avaliação: ")
leia (nota3)
escreva ("insira nota da quarta avaliação: ")
leia (nota4)
media <- (nota1+nota2+nota3+nota4)/4 // cálculo da média aritmética
escreva ("a média desse aluno é ")
escreval (media)
se media <6 entao //condicional
escreval ("aluno reprovado.")
senao
escreval ("aluno aprovado!")
fimse // fim da condicional
escreva ("insira número de matrícula: ")
leia (nummatricula) // releitura do número de matrícula
fimenquanto // fim do laço
fimalgoritmo
// Essa é uma das repostas existe outras forma como a estrutura Escolha
// mas espero que Ajude
// Autor : Marcos20 - programacaoitb@forumeiros.com
// Funcao: escreve na tela por extenso a sigla do estado civil escolhido
inicio
caracter estado_civil
escrever "Siglas do Estado civil : S = Solteiro , C= Casado , D: Divorciado , A = Amasiado\n\n\n"
escrever "Digite a sigla do seu estado civil: "
ler estado_civil
se estado_civil = "s" ou estado_civil = "S" entao
escrever "solteiro"
fimse
se estado_civil = "c" ou estado_civil = "C" entao
escrever "Casado"
fimse
se estado_civil = "d" ou estado_civil = "D" entao
escrever "Divorciado"
fimse
se estado_civil = "a" ou estado_civil = "A" entao
escrever "Amasiado"
senao
escrever "Entrada Invalida"
fimse
fim
//Funcao : Escreve o valor por extenso dos numeros digitado de 0 a 20
// Autor: Marcos20 - programacaoitb@forumeiros.com
inicio
inteiro numero
escrever "Digite um valor de 0 á 20: "
ler numero
escolhe numero
caso 0 :
escrever "ZERO"
caso 1 :
escrever "UM"
caso 2 :
escrever "DOIS"
caso 3 :
escrever "TRÊS"
caso 4 :
escrever "QUATRO"
caso 5 :
escrever "CINCO"
caso 6 :
escrever "SEIS"
caso 7 :
escrever "SETE"
caso 8 :
escrever "OITO"
caso 9 :
escrever "NOVE"
caso 10 :
escrever "DEZ"
caso 11 :
escrever "ONZE"
caso 12 :
escrever "DOZE"
caso 13 :
escrever "TREZE"
caso 14 :
escrever "QUATORZE"
caso 15 :
escrever "QUINZE"
caso 16 :
escrever "DEZESSEIS"
caso 17 :
escrever "DEZESSETE"
caso 18 :
escrever "DEZOITO"
caso 19 :
escrever "DEZENOVE"
caso 20 :
escrever "VINTE"
defeito :
escrever "Valor Invalido!!!"
fimescolhe
fim
//ate 23 proposicoes nao da problema, apos isso da erro
inicio
inteiro qvl
inteiro vvf
inteiro qp
inteiro qtdeproposicao
inteiro i <- 0
inteiro k <- 1
inteiro res
inteiro valordaproposicao
texto resp
qvl <- 2
vvf <- 2
faz
escrever "\n\nDigite a quantidade de proposicoes: "
ler qp
se qp <= 23 entao
escrever "Para montar a tabela verdade faça seguido essas instruções: \n\n"
//escreve na tela o resultado os resultados de cada conta feita ate ser menor que o valor de'qp', pois 'i' inicia em zero
enquanto i < qp faz
// realiza o calculo enquanto o numero digitado nao atingir 0
enquanto qp =/= 0 faz
qtdeproposicao <- ( qvl ^ qp ) / vvf
valordaproposicao <- qvl ^ qp
res <- qtdeproposicao
escrever "Você tem na " , k , "ª coluna:" , valordaproposicao , " valores , " , "isso quer dizer que voce precisa de : " , res , "V e " , res , "F" , " na " , k , "ª" , " coluna da tabela verdade\n"
//numeras as colunas
k <- k + 1
//decremente qp
qp <- qp - 1
fimenquanto
i <- i + 1
fimenquanto
senao
escrever "Esse programa suporta sem erro até 23 proposicoes!!!"
fimse
//verifica se o valor de resp é s para voltar a fazer o calculo
escrever "\n\ndeseja digitar outra proposicao? s ou n ?: "
ler resp
enquanto resp = "s"
fim
//algoritmo bolo simples
inicio
inteiro indice
texto resp
texto saiulimpo
inteiro quantxicaraacucar
inteiro quantxicarafarinha
inteiro quantcolhermargarina
inteiro quantovos
real quantxicaraleite
inteiro quantcolhersopafermento
escrever "Ingredientes: \n" , "2 xicaras de acucar\n" , "3 xicaras de farinha de trigo\n" , "4 colheres de margarina bem cheias\n" , "3 ovos\n" , "1 e 1/2 xicara de leite aproximadamente\n" , "1 colher ( sopa ) de fermento em pó bem cheia\n\n\n"
escrever "Você possui todos esses ingredientes (s ou n)?"
ler resp
se ( resp = "s" ) entao
escrever "verificando os ingredientes: \n\n"
escrever "Coloque as xicaras de acucar: "
ler quantxicaraacucar
escrever "Coloque as xicaras de farinha de trigo: "
ler quantxicarafarinha
escrever "Coloque a quantidade de colheres de margarina: "
ler quantcolhermargarina
escrever "Coloque a quantidade de ovos: "
ler quantovos
escrever "Coloque a quantidade de xicara de leite: "
ler quantxicaraleite
escrever "coloque a quantidade de colheres de fermento: "
ler quantcolhersopafermento
escrever "Modo de Preparo:"
escrever "\n\nBata as claras em neve , reserve , bata bem as gemas com a margarina e o acucar\n"
escrever "Por último agregue as claras em neve e o fermento coloque em forma grande de furo central untada e enfarinhada\n"
escrever "Asse em forno médio , pré – aquecido , por aproximadamente 40 minutos.\n\n\n"
escrever "Espete o bolo com um palito , o palito saiu limpo(s ou n)?\n\n"
ler saiulimpo
se ( saiulimpo = "s" ) entao
escrever "O bolo esta pronto!!!"
senao
escrever "O bolo nao esta pronto!!!"
fimse
fimse
fim
Algoritmos e Programação » clique para ver os topicos » Tópicos » Programas feitos no portugol viana
Tópicos semelhantes
Permissões neste sub-fórum
Não podes responder a tópicos
|
|