Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2 - Pascal ABC
Формулировка задачи:
1.Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2 и распечатать в виде таблицы х1, х2, у с шапкой.
Решение задачи: «Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2»
textual
Листинг программы
program z1; uses crt; var y, x1, x2: boolean; begin clrscr; writeln('x1':10, 'x2':10, 'y':10); for x1 := false to true do //организуем цикл перебора всех возможных значений х1 for x2 := false to true do //организуем цикл перебора всех возможных значений х2 begin y := x1 and x2; //вычисляем зн-ие функции writeln(x1:10, x2:10, y:10); end; readln end.
Объяснение кода листинга программы
- В программе используется две переменные: x1 и x2, которые представляют собой булевые значения (true или false).
- В цикле перебираются все возможные значения x1 от false до true.
- Для каждого значения x1 выполняется второй цикл, в котором перебираются все возможные значения x2 от false до true.
- Внутри циклов вычисляется значение переменной y с помощью операции
and
(логическое И) значений x1 и x2. - Вычисленное значение y записывается в вывод.
- После окончания циклов программа завершается, и пользователю предлагается ввести данные для следующей пары значений x1 и x2.