Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата

Она возвращает TRUE, если значение x нечетное, и FALSE, если оно четное. Логические значения можно выводить процедурой WRITE, но вводить логические переменные процедурой READ нельзя. Теперь попробуем записать программу, использующую логические данные.

      VAR a,b,c,d : INTEGER;

      BEGIN WRITELN('Введите 4 целых числа, a,b,c и d, среди ',

                       'которых должно быть 2 и только 2 одинаковых!');

             WRITE('a='); READ(a); WRITELN;

             WRITE('b='); READ(a); WRITELN;

             WRITE('c='); READ(a); WRITELN;

             WRITE('d='); READ(a); WRITELN;

             WRITELN('Вашу понятливость можно оценить как ',

                        (a=b)AND(a<>c)AND(a<>d)AND(c<>d)OR

                        (a=c)AND(a<>b)AND(a<>d)AND(b<>d)OR

                        (a=d)AND(a<>b)AND(a<>c)AND(b<>c)OR

                        (b=c)AND(b<>a)AND(b<>d)AND(a<>d)OR

                        (b=d)AND(b<>a)AND(b<>c)AND(a<>c)OR

                        (c=d)AND(c<>a)AND(c<>b)AND(a<>b));

             READLN;

       END.

Программа выведет TRUE, если введенные данные удовлетворили условию, и FALSE - в противном случае.

Рассмотрим теперь битовые операции: AND, OR, XOR, ShL и ShR, которые определены для целочисленных операндов (операции AND,OR и XOR совпадают по написанию с логическими операциями, но последние определены только для логических операндов). Операции AND, OR и XOR выполняются над каждой парой соответствующих битов операндов по тем же правилам, что и логические операции, если нулевой бит считать ложным, а единичный - истинным. Приведем простой пример:

VAR a,b : BYTE;

BEGIN a:=100;

        b:=200;

        WRITELN(a AND b,' ',a OR b,' ',a XOR b);

END.

Программа выведет числа 64, 236, 172. Каким образом они получены? Двоичное представление числа 100 равно 0110 0100, двоичное представление числа 200 равно 1100 1000. Выполним над этими числами, например, операцию XOR :

Рекомендуем скачать другие рефераты по теме: краткий реферат, доклад по обж.





Предыдущая страница реферата | 1  2  3  4 | Следующая страница реферата