Глава 4. • Хог(исключающее «или», которое принимает логиче­ское значение Trueтогда и только тогда, когда лишь один из аргументов имеет значение True);

• Not (логическое отрицание);

• Хог (исключающее «или», которое принимает логиче­ское значение True тогда и только тогда, когда лишь один из аргументов имеет значение True);

• Eqv (операция эквивалентности, которая принимает ло­гическое значение True, когда оба аргумента имеют оди­наковые значения — True или False). Логические операторы могут оперировать с логическими

аргументами True (логическая единица) и False (логиче­ский нуль), а также с логическими переменными типа Boo­lean.

На языке Visual Basic можно составлять программы, кото­рые формируют таблицы истинности логических выраже­ний. Таблицы истинности содержат значения логических функций при всех возможных комбинациях значений аргу­ментов.

Таким образом, задача построения таблицы истинности сводится к перебору всех возможных комбинаций значе­ний аргументов и вычислению значений функции для каж­дой такой комбинации. Это можно реализовать с помощью вложенных циклов со счетчиком, в каждом из которых рас­сматриваются два значения аргументов: True и False.

Однако в цикле со счетчиком переменная Счетчик дол­жна быть обязательно числового типа, логические значения она принимать не может. Поэтому необходимо использовать числовую форму представления логических значений: логи­ческому значению False соответствует число 0, а логиче­скому значению True соответствует 1.

Таким образом, для того чтобы таблица истинности выво­дилась программой в привычном виде, необходимо при вы­воде ее на печать перед аргументами и функцией ставить знак «-».

Составим, например, программу для получения таблицы истинности операции логического умножения.

■ ' Проект «Таблица истинности операции логического ^г умножения»

1. Поместить на форму f rml кнопку cmdl и создать для нее событийную процедуру cradlCl ick (), печатающую таб­лицу истинности на форме:

Dim intA, intB As Integer

Sub cmdl_Click()

For intA = 0 To -1 Step -1

Основы алгоритмизации и программирования

ForintB =	0 To	-1 Step	-1
frml.Print	-mtA;	-intB;	- (mtA And	intB)
NextintB
NextmtA
End Sub

Запустить проект и щелк­нуть по кнопке Таблица ис тинности. На форме будет напечатана таблица истинно­сти операции логического умножения.

0 0 0

0 10

1 0 0 1 1 1

Табпица истинности

В X