Algoritmo e Programação

1 –

var

nome: caracter

nota, nota2, nota3, media, soma : real

cont : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que leia nome e nota e imprima média")

Cont<- 0

Repita

Escreval ("Digite seu nome:")

Leia (nome)

Escreval ("Digite sua primeira nota:")

Leia (nota)

Escreval ("Digite sua segunda nota:")

Leia (nota2)

Escreval ("Digite sua terceira nota:")

Leia (nota3)

Soma <- (nota + nota2 + nota3)

Escreval (nome, "a média das três notas será:", soma/3)

Cont<- cont +1

ate (cont = 3)

fimalgoritmo

2 –

var

Cont : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima todos os números de 100 até 1.")

Cont<- 100

Repita

Escreval (cont)

Cont<- cont - 1

Ate cont = 0

Fimalgoritmo

3 –

var

Cont : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima todos os números de 1 até 200.")

Cont<- 1

Repita

Escreval (cont)

Cont<- cont + 1

Ate cont> 200

Fimalgoritmo

4 –

var

Cont : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima todos os números ímpares de 1 a 100.")

Cont<- 1

Repita

Escreval (cont)

Cont<- cont + 2

Ate cont> 99

Fimalgoritmo

5 –

var

Cont : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima todos os números pares de 300 a 1.")

Cont<- 300

Repita

Escreval (cont)

Cont<- cont - 2

Ate cont< 2

Fimalgoritmo

6 –

var

Cont : inteiro

Acum : real

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima todos os números no intervalo de 1 a 100 e mostre a soma.")

Cont<- 1

Repita

Escreval (cont)

Cont<- cont + 1

Ate cont> 100

Acum<- acum + cont

Escreval ("A soma dos números será:", acum)

Fimalgoritmo

7 –

var

Cont, cont2, idade : inteiro

inicio

// Seção de Comandos

Escreval ("Algoritmo que leia idade de 10 pessoas e mostre quantas são maiores de idade.")

Cont<- 1

Repita

Escreval ("Digite sua idade:")

Leia (idade)

se (idade >= 18) entao

cont2<- cont2 + 1

fimse

Cont<- cont + 1

Ate cont> 10

Escreval (cont2, ", é o número de pessoas maiores de idade.")

Fimalgoritmo

8 –

var

Cont : inteiro

n, tabuada: real

inicio

// Seção de Comandos

Escreval ("Algoritmo que imprima a tabuada de um número.")

Cont<- 0

Escreval ("Digite um número:")

leia(n)

Repita

Escreval(cont * n)