Lógica de Programação - Portugol

Prévia do material em texto

Lógica de Programação
Algoritmos são conjuntos de passos finitos e organizados que, quando executados, resolvem um determinado problema.
EX:
Algoritmo atravessar a rua
	Olhar para a direita
	Olhar para a esquerda
	Se estiver vindo carro	
		Não atravesse
	Se não
		Atravesse 
	Fim-se
Fim-algoritmo 
Algoritmo computacionais: são passos a serem seguidos por um módulo processador* e seus respectivos usuários que, quando executados na ordem certa, conseguem realizar determinada tarefa.
*tudo aquilo que pode efetuar processamento;
LÓGICA DE PROG. LINGUAGEM DE PROG. SISTEMA COMPLETO
algoritmo "times"
var
Time: Caractere
inicio
Escreval ("Digite seu time:")
leia (Time)
escolha (Time)
 caso "Sao Paulo", "Corinthians", "Palmeiras", "Santos"
 escreval ("time paulista")
 caso "Flamengo", "Fluminense", "Vasco", "Botafogo"
escreval ("time carioca")
 caso "Atletico mineiro", "Cruzeiro", "America mineiro"
escreval ("time mineiro")
 caso "Gremio", "Internacional"
 escreval ("time gaucho")
 outrocaso
 escreva ("Time de outro estado")
 fimescolha
 fimalgoritmo
______________________________________________________________________
algoritmo "nota e sexo"
var
sexo: caractere
nota: real
inicio
escreval ("digite seu sexo:")
leia (sexo)
escreva ("digite sua nota:")
leia (nota)
se sexo = "F" entao
 se nota >= 7.0 entao
 escreva("aluna aprovada")
 senao
 escreva ("aluna na recuperacao")
 fimse
fimse
se sexo = "M" entao
 se nota >= 7.0 entao
 escreva("aluno aprovado")
 senao
 escreva ("aluno na recuperacao")
 fimse
fimse
fimalgoritmo
______________________________________________________________________
1) algoritmo "maior ou menor"
var
numero: inteiro
inicio
escr
leia (numero)
se numero > 10 entao
 escreva ("maior que 10")
fimse
se numero < 10 entao
 escreva ("menor que 10")
fimse
se numero = 10 entao
 escreva ("igual a 10")
fimse
fimalgoritmo
______________________________________________________________________
2) algoritmo "dias da semana"
var
dia: inteiro // aspas so para caracteres
inicio
 escr
 leia (dia)
 escolha (dia)
 caso 2, 3, 4, 5, 6
 escreval ("dia util")
 caso 1, 7
 escreval ("fim de semana")
 outrocaso
 escreval ("dia invalido")
 fimescolha 
fimalgoritmo
______________________________________________________________________
3) algoritmo "quantos dias tem no ano"
var
mes, ano :inteiro
inicio
 escreval ("digite mes e ano")
 leia (mes, ano)
 escolha mes
 caso 1, 3, 5, 7, 8, 10, 12
 escreval ("31 dias")
 caso 4, 6, 9, 11
 escreval ("30 dias")
 caso 2
 se (ano mod 4 = 0) entao
 escreval ("29 dias neste mes")
 senao
 escreval ("28 dias neste mes")
 fimse
 outrocaso
 escreval ("avacalhe nao")
 fimescolha
fimalgoritmo
______________________________________________________________________ 
Algoritmo "calculadora"
Var
numero1, numero2, resultado : real
operacao : caractere
Inicio
escreval ("Digite o primeiro número:")
leia (numero1)
escreval ("qual é a operação")
leia (operacao)
escreval ("Digite o segundo número:")
leia (numero2)
limpatela
escolha (operacao)
caso "+"
resultado <- numero1 + numero2
escreval ("O resultado é:", resultado)
caso "-"
resultado <- numero1 - numero2
escreval ("O resultado é:", resultado)
caso "*"
resultado <- numero1 * numero2
escreval ("O resultado é:", resultado)
caso "/"
resultado <- numero1 / numero2
escreval ("O resultado é:", resultado)
outrocaso
escreval ("operação invalida")
fimescolha
Fimalgoritmo