Pascal Zim! Usando estruturas de decisão (If)

Respondendo a uma dúvida que um usuário do Orkut me colocou, vou criar um pequeno programa Pascal, que pode ser rodado no Pascal Zim, que mostra o uso de If, uma estrutura de decisão.A estrutura de decisão é usada em programação, quando o programa deve executar algo de acordo com alguma condição. Podemos ver os seguintes exemplos na vida prática:

  • Se está a chover, não vou a praia, caso contrário, vou!
  • Ou como bananas, ou como laranjas, ou não como nada!

O problema do usuário era exactamente com a segunda forma, pois o exercício pedia para que o programa apresenta-se um Menu, e executasse algumas instruções quando pressionado 1 ou 2, mas não executa-se nada quando pressionado 3.Uma possivel resolução para o Problema seria o seguinte:

Program Pascalzim;Var opcao,soma:integer;Begin    Writeln(‘Introduza a opcao:’);    Writeln(1. Soma);    Writeln(2. Produto);    Writeln(3. sair);    Readln(opcao);    If opcao=1 then        Soma:=1+1    Else        If opcao=2 then            soma:=2*2    Else        Writeln(‘Pressione qualquer tecla para sair’);Readln();End.

O programa é bem básico, pois o objectivo era de mostrar o último else, que não faz praticamente nada, senão mostrar a mensagem de despedida. Os outros ifs, podiam até ser blocos de instruções fazendo coisas mais complexas, mas como era para mostrar o básico…

Receba nossas actualizações por email

Ver Campanhas anteriores.

(Visited 1.175 times, 1 visits today)
Share