Lekcja 7. Operatory logiczne w Turbo Pascalu
OR - alternatywa - instrukcja się wykona, gdy co najmniej jeden z warunków jest spełniony ("lub").
AND - koniukcja - instrukcja się wykona, gdy wszystkie warunki są spełnione ("i").
NOT - negacja - zaprzeczenie warunku ("nie").
XOR - alternatywa wykluczająca - instrukcja się wykona tylko wtedy, gdy jeden z dwóch warunków jest spełniony ("albo").
Oto przykładowy program korzystający z operatorów logicznych:
program OperatoryLogiczne;
uses CRT;
var
A, B, C : Integer;
begin ClrScr;
WriteLn('Podaj wartość dla A:');
ReadLn(A);
WriteLn('Podaj wartość dla B:');
ReadLn(B);
WriteLn('Podaj wartość dla C:');
ReadLn(C);
if (A = B) and (B = C)
then WriteLn('Podane liczby są równe.') else if (A = B) or (B = C) or (A = C)
then WriteLn('Dwie z podanych liczb są równe') else if not (A = B) and not (B = C)
then WriteLn('Podane liczby są różne.');
Repeat until keypressed;
end.
Program pobiera od użytkownika trzy liczby, a następnie bada, czy są one sobie równe (podano trzy takie same liczby), lub czy przynajmniej dwie z nich są równe, czy jednak wszystkie liczby są różne od siebie.
Zadanie do wykonania: Trzy sposoby= trzy programy.
Napisz program, który zapyta użytkownika o dowolną liczbę z zakresu od 1 do 10. Program ma pokazać, czy wprowadzona liczba jest parzysta czy nie.
-sposób pierwszy każda liczba jest warunkiem (wykorzystać instrukcję warunkową) -sposób drugi wykorzystać operator logiczny Or (tylko dwa warunki parzysta lub nieparzysta) -sposób trzeci wykorzystać warunek if liczba mod 2=0 (sprawdzanie parzystości)