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

@Greschnik · Регистрация: 15.11.2015

Author24 — интернет-сервис помощи студентам

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

Pascal

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.

@ZX Spectrum-128 · 15.11.2015, 21:07

Всё в порядке, добавил шапку.

Pascal

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.

@Greschnik · 15.11.2015, 21:08 **[ТС]**

благодарю)

@Greschnik 1 / 1 / 0 Регистрация: 15.11.2015 Сообщений: 54
	15.11.2015, 21:08 [ТС]	3
	благодарю) 0