Question

Все формулы, полученные при решении предыдущей задачи, запишите в виде логических выражений на Паскале.

Answer 1

program LogicalExpressions;
var   X, Y, Z: Integer;   PredicateA, PredicateB, PredicateC, PredicateD, PredicateE: Boolean;
begin   { Введите значения X, Y и Z }   write('Введите X: ');   readln(X);   write('Введите Y: ');   readln(Y);   write('Введите Z: ');   readln(Z);
  { Вычисляем логические предикаты }   PredicateA := (X = Y) and (Y = Z);   PredicateB := (X = Y) or (Y = Z) or (X = Z);   PredicateC := (X > 0) and (Y > 0) and (Z > 0);   PredicateD := ((X > 0) and (Y <= 0) and (Z <= 0)) or                 ((X <= 0) and (Y > 0) and (Z <= 0)) or                 ((X <= 0) and (Y <= 0) and (Z > 0));   PredicateE := (X < Y) and (Y < Z);
  { Выводим результаты }   writeln('Предикат A: ', PredicateA);   writeln('Предикат B: ', PredicateB);   writeln('Предикат C: ', PredicateC);   writeln('Предикат D: ', PredicateD);   writeln('Предикат E: ', PredicateE);
  readln; end.