Aula 5

 

Estrutura Condicional - simples

Esta estrutura é conhecida também como estrutura de decisão ou de seleção, e é caracterizada por execução de determinados códigos de programação dependendo da veracidade de uma condição. Neste tópico serão apresentadas as estruturas de condição simples, composta, aninhada (uma dentro da outra) e a estrutura Case.

Estrutura Condicional – Simples   (Voltar ao Índice)                                        [Não estamos a utilizar ELSE]

 

Estrutura condicional simples com apenas uma instrução:

Estrutura condicional simples com mais de uma instrução:

 

Sintaxe:

  SE condição

  ENTÃO comando

Nota: O comando só será executado se a condição for verdadeira. Uma condição é uma comparação que possui dois valores possíveis, verdadeiro ou falso.

 

Sintaxe:

  SE condição

  ENTÃO INÍCIO

     comando1               

     comando2

     comando3

        FIM

Nota: Aqui o comando também só será executado se a condição for verdadeira, a diferença dos dois exemplos acima é que, quando o número de instruções a serem executadas forem maior que um, então é necessário colocar as instruções dentro de blocos (Begin = INICIO e End = FIM).

  • SE = IF
  • ENTÃO = THEN
  • INÍCIO = BEGIN

FIM = END

 

Exemplo com apenas uma instrução:

Exemplo com mais de uma instrução:

 

A) Compila o seguinte programa e descreve, por palavras tuas o seu funcionamento

 

Uses Crt;

var X, Y : Integer;

begin

Writeln ('Digite dois Números:'); { Mostra no ecrã a mensagem}

Readln (X, Y); { Lê os dois números }

If (X > Y) Then {Condição - SE X for maior que Y}

Writeln ('X é Maior que Y, e seu valor é = ', X);

end.

 

D) Compila o seguinte programa e descreve, por palavras tuas o seu funcionamento

 

 uses Crt;

   var X, Y : Integer;

    begin

     Writeln ('Entre com dois Números:'); { Mostra no ecrã a mensagem}

     Readln (X, Y); { Lê os dois números }

     If (X = Y) Then {Condição - SE X for igual a Y}

     Begin  {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END}

       Writeln ('X é igual que Y');

       Writeln ('O Valor de X é =', X);

     End; {FIM}

   end.

Para programar é preciso saber inglês

B) Compila o seguinte programa e traduz o enunciado

 

In the following program the user will input his/her age (integer type). The program will check if

the user is able to apply for a driving license. If the user is of legal age (i.e. 18), the program will

encourage the user to apply. Otherwise, the program will calculate the number of years remaining

till the age of 18.

 

Program driving;

Var

age : char;

begin

writeln(‘when to apply for a driving license’);

write(‘Type your age (try to be honest please!) : ‘);

readln(age);

if age < 18

then write(‘CONGRATULATIONS...you can apply’)

end.

E) Compila o seguinte programa e descreve, por palavras tuas o seu funcionamento

Exemplo utilizando operadores Lógicos:

   uses Crt;

   var X, Y : Integer;

   begin

     Writeln ('Entre com dois Números:'); { Mostra no ecrã a mensagem}

     Readln (X, Y); { Lê os dois números }

     If ((X > Y) And (Y <> 0)) Then {Condição - SE X for maior que Y E Y diferente de 0 - Repare no And}

     Begin  {INICIO - Repare abaixo que existe três instruções, três comandos Writeln, por isso estão entre BEGIN = INICIO e END = FIM}

       Writeln ('X é Maior que Y');

       Writeln ('Y é diferente de 0');

       Writeln ('O Valor de X é =', X);

     End; {FIM}

   end.

 

 

c) Compila o seguinte programa e escreve um enunciado para o programa

 

 

write('Introduza um numero real: ');

readln(A);

if (A>=0) then

writeln('Numero positivo ou nulo');

end;

Pré-requisitos: Recordar as tabelas de verdade

Notas: Repare no operador Lógico AND, só serão executados os comandos Writeln, se as duas condições forem verdadeiras. Se a variável X for maior que a variável Y e se a variável Y for diferente de 0 (zero).

F) Compila o seguinte programa e descreve, por palavras tuas o seu funcionamento

Exemplo utilizando operadores Lógicos:

   uses Crt;

    var X, Y : Integer;

    begin

     Writeln ('Entre com dois Números:'{ Mostra no ecrã a mensagem}

     Readln (X, Y); { Lê os dois números }

     If ((X > Y) Or (Y <> 0)) Then {Condição - SE X for maior que Y OU Y diferente de 0 (zero)- Repare no Or}

     Begin  {INICIO - Repare abaixo que existe três instruções, três comandos Writeln, por isso estão entre BEGIN = INICIO e END = FIM}

       Writeln ('X é Maior que Y');

       Writeln ('Y é diferente de 0');

       Writeln ('O Valor de X é =', X);

     End; {FIM}

   end.

Notas: Nesse caso acima utilizando o Operador Lógico OR (OU), serão executados os comandos Writeln, se uma das duas condições forem verdadeira. Se a variável X for maior que a variável Y OU Se a variável Y for diferente de 0 (zero).

 ENVIAR AO PROFESSOR (PROFCARLOS2006@gmail.com)

6- programas (A, B, C, D, E, F)

4- explicações (A, D, E, F)

1- enunciado (C)

1 –tradução (B)

 

(Voltar ao Índice)