1)Ler um valor e escrever a mensagem É MAIOR QUE 10! se o valor lido for maior que 10, caso contrário escrever NÃO É MAIOR QUE 10!
- programa
- funcao inicio()
- inteiro num
- escreva("Digite um numero: ")
- leia(num)
- se (num>10)
- escreva("É maior que 10")
- senao
- escreva("É menor que 10")
2) Ler um valor e escrever se é positivo ou negativo (considere o valor zero como positivo).
- programa
- funcao inicio()
- inteiro num
- escreva("Digite um numero: ")
- leia(num)
- se (num>=0)
- escreva("Positivo")
- senao
- escreva("Negativo")
3) As maçãs custam R$ 1,30 cada se forem compradas menos de uma dúzia, e R$ 1,00 se forem compradas pelo menos 12. Escreva um programa que leia o número de maçãs compradas, calcule e escreva o custo total da compra.
- programa
- funcao inicio()
- inteiro macas
- escreva("Total de Maças: ")
- leia(macas)
- se (macas>=12)
- escreva("As compras custam 1,00 ")
- senao
- escreva("As compras custam 1,30 ")
4) Ler as notas da 1ª e 2ª avaliações de um aluno. Calcular a média aritmética simples e escrever uma mensagem que diga se o aluno foi ou não aprovado (considerar que nota igual ou maior que 6 o aluno é aprovado). Escrever também a média calculada.
- programa
- funcao inicio()
- inteiro nota1, nota2, media
- escreva(" 1° Nota :")
- leia (nota1)
- escreva(" 2° Nota :")
- leia (nota2)
- media = (nota1+nota2)/2
- se (media>=6)
- escreva("Aprovado")
- senao
- escreva("Reprovado")
5) Ler dois valores (considere que não serão lidos valores iguais) e escrever o maior deles.
- programa
- funcao inicio()
- real valor1, valor2
- leia (valor1)
- leia (valor2)
- se (valor1>valor2)
- escreva("O maior valor é :", valor1)
- senao
- se(valor1<valor2)
- escreva("O maior valor é :", valor2)
- se (valor1==valor2)
- escreva("Valores iguais nao permitido")
6) Ler dois valores (considere que não serão lidos valores iguais) e escrevê-los em ordem crescente.
- programa
- funcao inicio()
- inteiro valor1, valor2
- escreva("Digite o 1° valor :")
- leia (valor1)
- escreva("Digite o 2° valor :")
- leia (valor2)
- se (valor1 > valor2)
- escreva("A forma crescente é :", valor2," " ,valor1)
- se (valor1<valor2)
- escreva("A forma crescente é :",valor1," ", valor2)
- senao
- se (valor1==valor2)
- escreva("valores iguais não são lindos")
- programa
- funcao inicio()
- inteiro conta,saldo, debito,credito,saldoatual
- escreva("Digite o numero da conta :")
- leia (conta)
- escreva("Digite o seu saldo :")
- leia (saldo)
- escreva("Digite o debito :")
- leia (debito)
- escreva("Digite o credito :")
- leia (credito)
- saldoatual = saldo - debito + credito
- escreva("O saldo atual é :",saldoatual,"\n")
- se (saldoatual>=0)
- escreva("Saldo positivo\n")
- senao
- escreva("saldo negativo\n")
8) Ler dois valores e imprimir uma das três mensagens a seguir: a) ?Números iguais?, caso os números sejam iguais b) ?Primeiro é maior?, caso o primeiro seja maior que o segundo; c) ?Segundo maior?, caso o segundo seja maior que o primeiro.
- programa
- funcao inicio()
- inteiro valor1, valor2
- escreva("Digite o 1° valor :")
- leia(valor1)
- escreva("Digite o 2° valor :")
- leia(valor2)
- se (valor1==valor2)
- escreva("Numeros iguais")
- se (valor1>valor2)
- escreva("Primeiro valor é maior")
- senao
- se (valor1<valor2)
- escreva("Segundo valor é maior")
9) Ler o nome de 2 times e o número de gols marcados na partida (para cada time). Escrever o nome do vencedor. Caso não haja vencedor deverá ser impressa a palavra EMPATE.
- programa
- funcao inicio()
- cadeia time1, time2
- inteiro gol1,gol2
- escreva("1° time :")
- leia(time1)
- escreva("2° time :")
- leia(time2)
- escreva("Gols do ", time1,":")
- leia (gol1)
- escreva("Gols do ", time2,":")
- leia (gol2)
- se (gol1>gol2)
- escreva("O ",time1," é vencedor")
- se (gol1<gol2)
- escreva("O ",time2," é vencedor")
- senao
- se(gol1==gol2)
- escreva("Empate")
10) Ler três valores (considere que não serão lidos valores iguais) e escrevê-los em ordem decrescente.
- programa
- funcao inicio()
- inteiro valor1, valor2, valor3
- escreva("Digite o 1° valor :")
- leia (valor1)
- escreva("Digite o 2° valor :")
- leia (valor2)
- escreva("Digite o 3° valor :")
- leia (valor3)
- se (valor1>valor2 e valor2>valor3)
- escreva ("A forma decrecente é :", valor1, " ", valor2, " " , valor3)
- se (valor1>valor3 e valor3>valor2)
- escreva ("A forma decrecente é :", valor1, " ", valor3, " " , valor2)
- se (valor2>valor3 e valor3>valor1)
- escreva("A forma decrecente é :", valor2, " ", valor3, " " , valor1)
- se (valor2>valor1 e valor1>valor3)
- escreva("A forma decrecente é :", valor2, " ", valor1, " " , valor3)
- se (valor3>valor1 e valor1>valor2)
- escreva("A forma decrecente é :", valor3, " ", valor1, " " , valor2)
- se (valor3>valor2 e valor2>valor1)
- escreva("A forma decrecente é :", valor3, " ", valor2, " " , valor1)
- senao
- se(valor1==valor2 e valor2==valor3 )
- escreva("Não serão consideradosvalores iguais :")
