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.\r\n\r\nA 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:\r\n

    \r\n

    \r\n
    \r\n\r\n
  • Se está a chover, não vou a praia, caso contrário, vou!
  • \r\n

\r\n

    \r\n

  • Ou como bananas, ou como laranjas, ou não como nada!
  • \r\n

\r\nO 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.\r\n\r\nUma possivel resolução para o Problema seria o seguinte:\r\n

Program Pascalzim;\r\n\r\nVar opcao,soma:integer;\r\n\r\nBegin\r\n\r\n    Writeln(‘Introduza a opcao:’);\r\n\r\n    Writeln(1. Soma);\r\n\r\n    Writeln(2. Produto);\r\n\r\n    Writeln(3. sair);\r\n\r\n    Readln(opcao);\r\n\r\n    If opcao=1 then\r\n\r\n        Soma:=1+1\r\n\r\n    Else\r\n\r\n        If opcao=2 then\r\n\r\n            soma:=2*2\r\n\r\n    Else\r\n\r\n        Writeln(‘Pressione qualquer tecla para sair’);\r\n\r\nReadln();\r\n\r\nEnd.

\r\nO 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…

\r\n\r\n\r\n
\r\n
\r\n
\r\n

Receba nossas actualizações por email

\r\n
\r\n \r\n \r\n
\r\n

Ver Campanhas anteriores.

\r\n
\r\n \r\n \r\n
\r\n
\r\n
\r\n
\r\n
\r\n
\r\n
(Visited 658 times, 2 visits today)
Share