Exercícios de programação portugol em Visual G

Lista de 5 exercícios autorais

1 Criar um exercício para ler um número inteiro e dizer se ele é igual a 1 usando a estrutura se senao

algoritmo "exerc1"

var

i : inteiro

inicio

escreval("digite um numero inteiro")

leia(i)

se i=1 entao

escreval("o seu numero e igual a 1 ")

escreval("")

senao

escreval("o seu numero e diferente de um ")

fimse

fimalgoritmo

2 - Pedir dois números ao usuário e não parar de pedir os números até a soma ser superior a 20 se o número de tentativas não exceder 4x usando Repita

algoritmo "exer2"

var

i, n1, n2, soma : inteiro

inicio

// Seção de Comandos

i<-2

escreval("A soma deve dar 20 ou mais")

repita

escreval("digite o primeiro numero para soma")

leia(n1)

escreval("digite o segundo numero para a soma")

leia(n2)

soma <- n1 + n2

escreval ("o resultado e", soma)

i<-i+1

ate(soma>=20)

limpatela

escreval ("o resultado e", soma)

escreval("Parabens numero maior ou superior que 20")

fimalgoritmo

3 – falar quanto o consumidor vai pagar se ele escolher gasolina ou álcool levando em consideração que o álcool custa R$1,20 e a gasolina R$ 3,85 e dar a opção de nova consulta usando o Enquanto

algoritmo "exer3"

var

n1,q : inteiro

l1,l2,total : real

inicio

// Seção de Comandos

escreval("digite 1 para gasolina e 2 para alcool")

leia(n1)

escreval("")

q<-1

enquanto q<>0 faca

se(n1=1)entao

escreval("digite quantos litros de gasolina (R$3,85) quer")

leia(l1)

total<-l1*3.85

fimse

se(n1=2)entao

escreval("digite quantos litros de alcool (R$1,20) quer ")

leia(l2)

total<-l1*1.20

fimse

escreval("A sua conta é de ", total)v

escreval("digite 0 para sair ou qualquer numero para nova consulta")

leia(q)

limpatela

fimenquanto

escreval("volte sempre ao nosso posto")

fimalgoritmo

4 – Calcular o preço de porcentagem e ou acréscimo para uma loja com a opção de nova consulta usando enquanto

algoritmo "exer4"

var

q,