5. определить истинность выражения, если a= {5> 3}; b= {2=3}; c= {4< 2}: (a + b)* c *(a*c) + (b *c) 6. найти максимально простое логическое выражение равносильное данному: _ _ a + a + c*c
1) A1^2)^(1/3) - если возводите в степень в виде выражения (1/3) то берите его в скобки, иначе машина возведет в 1-ю степень и потом разделит на 3 2) ЕСЛИ(И(A1<5;A1>0) убрать лишнюю точка с запятой перед закрывающей скобкой 3) ЕСЛИ(И(A1>=5;(A1+3);0 - здесь или пропущено еще одно условие или не нужна функция И, это уже определите сами 4) слишком много закрывающих скобок в конце. их надо считать очень внимательно
На мой взгляд правильная запись будет выглядеть так: =ЕСЛИ(A1<=0;(A1^2)^(1/3);ЕСЛИ(И(A1<5;A1>0);COS(A1);ЕСЛИ(A1>=5;(A1+3);0)))
Uses graphabc; var x,y,r,x1,y1,i:integer; begin x:=325; y:=225; r:=200; for i:=1 to 360 do begin Setpencolor(clblack); x1:=x+round(r*cos(i*pi/180)); y1:=y-round(r*sin(i*pi/180)); line(x,y,x1,y1); end; end.
uses graphabc; var x,y,r,x1,y1,i:integer; begin x:=325; y:=225; r:=200; for i:=1 to 135 do begin Setpencolor(clblack); x1:=x+round(r*cos(i*pi/180)); y1:=y-round(r*sin(i*pi/180)); line(x,y,x1,y1); end; end.
uses graphabc; var x,y,r,x1,y1,i:integer; begin x:=100; y:=50; r:=200; for i:=1 to 360 do begin Setpencolor(clblack); x1:=x+round(r*cos(i*pi/180))+200; y1:=y-round(r*sin(i*pi/180))+200; line(x,y,x1,y1); end; end.
A = {5>3} = Истина
B = {2=3} = Ложь
C = {4<2} = Ложь
(A + B) * C *(A*C) + (B*C) =
(Истина + Ложь)*Ложь*(Истина*Ложь)+(Ложь*Ложь) =
Истина*Ложь*Ложь + Ложь = Ложь + Ложь = Ложь
6.
A + A + C*C = A + C