Algoritimos com portugol

ALGORÍTIMOS COM PORTUGOL

Lista de exercícios: Algoritmos

1) Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.

Programa "Exercicio 1"

inicio

var X

Enquanto X < 10 X = X + 1 Escrever("Numero Atual é: " + X) FimEnquanto
Fim

2) Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem decrescente.

Programa "Exercicio 2"

inicio var X X = 10 Enquanto X > 1 X = X – 1 Escrever("Numero Atual é: " + X) FimEnquanto
Fim

3) Escreva um algoritmo para imprimir os 10 primeiros números inteiros maiores que 100.

Programa "Exercicio 3"

inicio var X,Y

X = 0 Y = 100 Enquanto X < 10 X = X + 1 Escrever("Numero inteiro é: " + (Y + X)) FimEnquanto fim 4) Ler um valor N e imprimir todos os valores inteiros entre 1 (inclusive) e N (inclusive). Considere que o N será sempre maior que ZERO.
Programa "Exercicio 4"

inicio

var X,Y X = 0

Escrever("Entre com o valor") Ler(Y) Enquanto X < Y X = X + 1 Escrever("Numero inteiro é: " X) FimEnquanto fim 5) Modifique o exercício anterior para aceitar somente valores maiores que 0 para N. Caso o valor informado (para N) não seja maior que 0, deverá ser lido um novo valor para N.

Programa "Exercicio 5"

inicio

var X,Y

X = 0 Y = 0 Escrever("Entre com o valor")

Enquanto Y <= 0 Ler(Y) FimEnquanto

Enquanto X < Y X = X + 1 Escrever("Numero inteiro é: " X) FimEnquanto fim 6) Escreva um algoritmo que calcule e imprima a tabuada apartir de um numero inserido pelo usuário.