P170808D, Pascal - rextester

P170808D

//fpc 3.0.0

program P170808D;

begin
    writeln('Operações Lógicas');
    writeln('');

// o comando menor verifica se o 8 é menor do que 9. quando verdadeiro informe TRUE e quando falso informa FALSE   
    writeln('Menor');
    write('8 < 9 =');
    writeln( 8 < 9);
    
    write('9 < 8 =');
    writeln( 9 < 8);
    writeln('');
//
// o comando maior verifica se o 6 é maior do que 7. quando verdadeiro informe TRUE e quando falso informa FALSE   
    writeln('Maior');
    write('6 > 7 =');
    writeln( 6 > 7);
    
    write('7 > 6 =');
    writeln( 7 > 6);
    writeln('');
//
// o comando menor e igual verifica se o 1 é menor ou igual ao 2. quando verdadeiro informe TRUE e quando falso informa FALSE   
    writeln('Menor e igual');
    write('1 <= 2 =');
    writeln( 1 <= 2);
    
    write('2 <= 1 =');
    writeln( 2 <= 1);
    
    write('2 <= 2 =');
    writeln( 2 <= 2);
    writeln('');
//
// o comando maior e igual verifica se o 3 é maior ou igual ao 4. quando verdadeiro informe TRUE e quando falso informa FALSE   
    writeln('Maior e igual');
    write('3 >= 4 =');
    writeln( 3 >= 4);
    
    write('4 >= 3 =');
    writeln( 4 >= 3);

write('4 >= 4 =');
    writeln( 4 >= 4);
    writeln('');
//
// o comando Diferente verifica se o 5 não é igual ao 0. quando verdadeiro informe TRUE e quando falso informa FALSE   
    writeln('Diferente');
    write('0 <> 5 =');
    writeln( 0 <> 5);
    
    write('5 <> 5 =');
    writeln( 5 <> 5);
    writeln('');
//
// o comando and verifica se todas operações são verdadeiras e informa TRUE e quando alguma é falsa informa FALSE   
    writeln('e "and"');
    write('(6 <> 7) and ( 8 < 9) =');
    writeln((6 <> 7) and ( 8 < 9));
    
    write('( 6 > 7) and (9 <> 7) =');
    writeln(( 6 > 7) and (9 <> 7));
    writeln('');
//
// o comando or considera verdadeiro quando uma ou mais operações são verdadeiras, caso contrário informa FALSE
    writeln('ou "or"');
    write('(6 <> 7) or ( 3 >= 4) =');
    writeln((6 <> 7) or ( 3 >= 4));
    
    write('(6 <> 6) or (9 <> 9) =');
    writeln(( 6 <> 6) or (9 <> 9));
    writeln('');
//
// o comando not nega o resultado da opração invertando o resultado da mesma, caso a operação resulte em TRUE, ao colocar o not
// o resultado final passará a ser FALSE
    writeln('Negação "not"');
    write('not (91 <> 72) =');
    writeln(not (91 <> 72));
    
    write('not (94 <> 94) =');
    writeln(not (94 <> 94));
    writeln('');
end.


run \| edit \| history \| help	0