O modelo de criação de algoritmo

VAR

custo,aumento,venda:real

INICIO

escreva ("Digite o valor do produto: ")

leia (custo)

escreva ("Digite a porcentagem do produto: ")

leia (aumento)

aumento<- aumento/100

venda<- custo + (aumento * custo)

escreva ("O preço de Venda do Produto é: ",venda)

fimalgoritmo

VAR

idade,numero:inteiro

INICIO

para num de 1 ate 15 faca

escreval ("Entre coma idade:")

leia (idade)

se (idade >=18) entao

escreval ("Maior de idade")

senao

se (idade < 18) entao

escreval ("Menor de idade")

fimse

fimse

fimpara

fimalgoritmo

VAR

num:inteiro

INICIO

para num de 1 ate 100 faca

se (num mod 3=0) ou (num mod 5=0) entao

escreval (“Múltiplo”,num)

fimse

fimpara

fimalgoritmo

VAR

num,i,soma,total:inteiro

INICIO

para i de 1 ate 20 faca

escreva ("Entre com o ”, i , “º Número”)

leia (num)

se num >= 0 entao

soma <- soma + num

senao

se num < 0 entao

total <- total + 1

escreval ("A soma dos números Positivos é: ",soma)

escreval ("O total de números Negativos é: ",total)

fimpara

fimse

fimse

fimse

fimalgoritmo

VAR

i,numero,resultado:inteiro

INICIO

Para i de 1 ate 30 faca

Escreva ("Entre com as horas trabalhadas:")

Leia (numero)

resultado<-num*30

escreval ("O total de horas trabalhadas são:",resultado)

fimpara

fimalgoritmo

VAR

opcao:caractere

numero,contador:inteiro

INICIO

escreval("Deseja entrar com algum número?")

leia(opcao)

enquanto (opcao<>"não") faca

escreval("Entre com o número:")

leia(numero)

se numero 0 entao

contador<-contador+1

fimse

fimenquanto

Escreval ("A quantidade de números menores que 0 é:", contador)

fimalgoritmo

VAR

nota1,nota2,i:inteiro

media:real

INICIO

Para i de 1 ate 10 faca

escreval ("Entre com as duas notas do aluno:")

leia (nota1,nota2)

media<-(nota1+nota2)/2

escreval ("A nota do aluno é:",media)

fimpara

fimalgoritmo

VAR

num: vetor [1..10] de inteiro

i:inteiro

total:inteiro

INICIO

para i de 1 ate 10 faca

escreval ("Digite o ",i,"º Número")

leia (num [i])

total<- total + num [i]

escreva ("A soma de todos os números é: ",total)

fimpara

fimalgoritmo

VAR

num:inteiro

total:inteiro

INICIO

repita

escreval ("Digite um número")

leia (num)

total<- total + num

ate num < 1

escreva ("A soma de todos os número é: ",total)

fimalgoritmo

VAR

i:inteiro

total,qtd,media:real

INICIO

repita

escreva ("Entre com um NÚMERO: ")