Introdução computação

Exercícios de algoritmos de tomada de decisões resolvidos

1) Efetuar a leitura de três valores (variáveis A, B e C) e apresentar os valores dispostos em ordem crescente.

Descrição Narrativa:

A) Entrada de dados:
- Obter o primeiro valor e armazena-lo na variável intNumero1;
- Obter o segundo valor e armazena-lo na variável intNumero2;
- Obter o terceiro valor e armazena-lo na variável intNumero3;

B) Processamento de dados:
- Colocar os valores em ordem crescente;

C) Saída de dados:
- Apresentar os valores ordenados.

PseudoCódigo:

programa OrdemCrescente

var intNumero1, intNumero2, intNumero3, intAuxiliar: inteiro

início

//Entrada de dados escreva 'Número 1: ' leia intNumero1 escreva 'Número 2: ' leia intNumero2 escreva 'Número 3: ' leia intNumero3

//Processamento de dados se (intNumero1 > intNumero2) ou (intNumero1 > intNumero3) então se (intNumero3 > intNumero2) então intAuxiliar = intNumero1 intNumero1 = intNumero2 intNumero2 = intAuxiliar senão intAuxiliar = intNumero1 intNumero1 = intNumero3 intNumero3 = intAuxiliar fim-se fim-se se (intNumero2 > intNumero3) então intAuxiliar = intNumero2 intNumero2 = intNumero3 intNumero3 = intAuxiliar fim-se

//Saída de dados escreva //Deixa uma linha em branco escreva 'Número 1: ', intNumero1 escreva 'Número 2: ', intNumero2 escreva 'Número 3: ', intNumero3 fim

Pascal:

program OrdemCrescente;

var intNumero1, intNumero2, intNumero3, intAuxiliar: integer;

begin

//Entrada de dados write('Número 1: '); readln(intNumero1); write('Número 2: '); readln(intNumero2); write('Número 3: '); readln(intNumero3);

//Processamento de dados

if (intNumero1 > intNumero2) or (intNumero1 > intNumero3) then if (intNumero3 > intNumero2) then begin intAuxiliar := intNumero1; intNumero1 :=