Algoritmo. Estrutura de seleção

Algoritmo

Estrutura de seleção

Na linguagem Pascal existem duas estruturas de seleção: if-then-else e case, sendo que a primeira estrutura pode-se apresentar de duas formas (simples ou composta).

IF-THEN-ELSE

a) Forma Simples (sem Else):

if condição then

begin

sequência A de comandos;

end;

onde: if - then - são palavras-chaves

condição - é uma expressão lógica (teste)

A “sequência A de comandos” será executada se a condição for verdadeira; caso contrário, o comando a ser executado será o que vier logo após o end;.

Ao ser mencionada "sequência de comandos" está implícito que ela contém um ou mais comandos e pode conter uma ou mais estruturas.

Quando a sequência A de comandos é constituída por um único comando, o begin e o end podem ser omitidos.

Exemplo1:

program 1_teste_simples;

uses crt;

var A, B, C : real;

begin

clrscr;

write ('Digite um valor para A: ');

readln (A);

write ('Digite um valor para B: ');

readln (B);

write ('Digite um valor para C: ');

readln (C);

if (A + B < C) then

writeln ('A soma de A com B é menor do que C!');

writeln ('Tchau...');

end.

b) Forma Composta (com Else):

if condição then

begin

sequência A de comandos;

end

else

begin

sequência B de comandos;

end;

onde: if - then - else - são palavras-chaves

condição - é uma expressão lógica

Se a condição for verdadeira, a sequência A de comandos é executada e, a seguir, a estrutura é abandonada, passando a execução para o comando que vier logo após o término da estrutura condicional composta e, neste caso, a sequência B de comandos não será executada. Se a condição for falsa, a sequência A de comandos será saltada (e não executada) e a sequência B de comandos será processada.

Quando a sequência A de comandos e/ou a sequência B de comandos forem constituídas por um único comando, o begin e o end, que as contém, podem ser omitidos.

Exemplo1:

program Teste_If_Composto_1;

uses crt;

var

A, B : real;

begin

clrscr;

write ('Digite um valor para A: ');

readln (A);

write ('Digite um valor para B: ');

readln (B);

if (A = B) then

writeln ('A é igual a B')