во всех выражениях первые 3 столбца одинаковы я их только в 1 и во 2 примере написал их но их надо во всех выражениях писать
1) x∧y∧z
x y z x ∧ y ∧ z
0 0 0 0
0 0 1 0
0 1 0 0
0 1 1 0
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1
2) x∧¬y∧z
x y z ¬ у x ∧ ¬y ∧ z
0 0 0 1 0
0 0 1 1 0
0 1 0 0 0
0 1 1 0 0
1 0 0 1 0
1 0 1 1 1
1 1 0 0 0
1 1 1 0 0
3) x∧y∧¬z
¬z x∧y∧¬z
1 0
0 0
1 0
0 0
1 0
0 0
1 1
0 0
4) ¬x∧¬y∧¬z;
¬x ¬ у ¬z ¬x∧¬y∧¬z
0 1 1 1
0 1 0 0
0 0 1 0
0 0 0 0
1 1 1 0
1 1 0 0
1 0 1 0
1 0 0 0
в остальных примерах я не буду писать столбцы ¬x ¬y ¬z
если что сам их запишешь все их значения есть в 4 выражении всех их значение во всех выражениях одинаковые
5) x∨y∨z
x∨y∨z
0
1
1
1
1
1
1
1
6) x∨¬y∨z
¬y x∨¬y∨z
1
1
0
1
1
1
1
1
7) x∨y∨¬z
¬z x∨y∨¬z
1
0
1
1
1
1
1
1
8) ¬x∨¬y∨¬z;
¬x ¬y ¬z ¬x∨¬y∨¬z
1
1
1
1
1
1
1
0
9) ¬( x∧y∧z )
x∧y∧z ¬( x∧y∧z )
0 1
0 1
0 1
0 1
0 1
0 1
0 1
1 0
10) ¬(x∧¬y∧z)
¬y x∧¬y∧z ¬(x∧¬y∧z)
0 1
0 1
0 1
0 1
0 1
1 0
0 1
0 1
11) ¬(x∨y∨z)
x∨y∨z ¬(x∨y∨z)
0 1
1 0
1 0
1 0
1 0
1 0
1 0
1 0
12) ¬( x∨¬y∨z)
¬y x∨¬y∨z ¬( x∨¬y∨z)
1 0
1 0
0 1
1 0
1 0
1 0
1 0
1 0
Program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7;
var a,s,h,rv,ro,p:real;
n:integer;
begin
clrscr;
Writeln('Укажите номер пункта:');
writeln('1. Дана сторона треугольника.');
writeln('2. Дана площадь треугольника.');
writeln('3. Дана высота треугольника.');
writeln('4. Дан радиус вписанной окружности треугольника.');
writeln('5. Дан радиус описанной окружности треугольника.');
read(n);
case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end;
else
begin
write('Такого номера пункта нет.');
goto a7;
end;
end;
a1: rv:=a/2;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a2: a:=sqrt(4*s/sqrt(3));
h:=2*s/a;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a3: a:=2*h/sqrt(3);
s:=a*h/2;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a4: a:=2*rv;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a5: a:=sqrt(3)*ro;
s:=(a*a*a)/(4*ro);
h:=2*s/a;
rv:=a/2;
a6: writeln('a=',a:2:2);
writeln('s=',s:2:2);
writeln('h=',h:2:2);
writeln('R=',ro:2:2);
writeln('r=',rv:2:2);
a7: readkey;
end.