Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2 - Pascal ABC

Формулировка задачи:

1.Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2 и распечатать в виде таблицы х1, х2, у с шапкой.
Program z1;
uses crt;
var y,x1,x2:boolean;
begin
clrscr;
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.


textual

Код к задаче: «Вычислить значения функции у= х1 and x2 для всех сочетаний аргументов х1, х2 - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.182 из 5

Источник