[Resolvido]Duvida num If pascal

[perez]

Boas, hoje surgiu-me esta duvida:

eu tenho este programa:

Program Exemplo;
uses crt;
var
x:string[40];
Begin
     ClrScr;
     WriteLn('Palavra de honra??');
     ReadLn(x);
     ClrScr;
     If x = 'Programador' then WriteLn('Tu és Programador ')            <-|
     Else WriteLn('Tu não és programador');
     ReadKey;
End.

como é que faço para no If apontado pela seta se o user escrever 'programador' sem o primeiro 'P' maiúsculo ele também aceite?

[softklin]

Na condição do teu if, incluis mais um elemento, com a respectiva palavra em minúscula, através da expressão 'Or', que significa 'ou'. Fica algo do género:

If x = 'Programador' Or x = 'programador' then WriteLn('Tu és Programador ')

Ao usares o operador Or na condição do if, estás a indicar que pretendes imprimir "Tu és programador", se x for igual a 'Programador' ou se x for igual a 'programador' (disjunção lógica), ou seja, basta uma condição ser verdadeira.

A propósito, também existe o operador 'And', que significa 'e' (um e outro), que exige que ambas as condições sejam verdadeiras para entrar no if (conjunção lógica).

Fica aqui para veres uns exemplos um texto do Wikilivros:

http://pt.wikibooks.org/wiki/Pascal/Estrutura_Condicional

[perez]

está a dar erro ao compilar, estou a usar o FPS.

EDIT: no turbo pascal o erro é: 'ERROR 41: Operand types do not match operator'

[softklin]

Já não programo à Pascal faz anos, por isso penso que seja por falta de parêntesis, segundo a wikilivros a lógica está correcta. Tenta:

If ((x = 'Programador') Or (x = 'programador')) then WriteLn('Tu és Programador ')

[perez]

Obrigado, já funciona 😄

Podem fechar