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…
Comentários Recentes