11. найдите значения выражений: 1) (1 / 1) v (1 v0); 2) v0) v 1) v 1); 3) (0 & 1) & 1; 4) 1 - id1016135320220404 от Inna2404 04.04.2022 04:51

Question

Информатика: 11. найдите значения выражений: 1) (1 / 1) v (1 v0); 2) v0) v 1) v 1); 3) (0 & 1) & 1; 4) 1 & (1 & 1) & 1; 5) (1 v0) & (1 & 1) & (0 у 1); 6) ((1 & 1) v0) & (0 v 1); 7) (0 & 0) v0) & (1 v 1); 8) (av1) v (by 0); 9) ((1 & a) v (b & 0)) v 1; 10) 1va & 0.

Inna2404 · Accepted Answer

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));

var
x,y,L:array[1..4] of real;
begin
Writeln('Введите координаты четырех точек (парами х,y)');
for var i:=1 to 4 do Read(x[i],y[i]);
for var i:=1 to 3 do
L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
L[4]:=Len(x[4],y[4],x[1],y[1]);
var s:=0.0;
for var i:=1 to 4 do s+=L[i];
Writeln('P=',s)
end.

Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041

Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.

Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)

Информатика. паскаль. по заданным декартовым координатам вершин четырехугольника p1(x1,y1),p2(x2,y2)

11. найдите значения выражений: 1) (1 / 1) v (1 v0); 2) v0) v 1) v 1); 3) (0 & 1) & 1; 4) 1 & (1 & 1) & 1; 5) (1 v0) & (1 & 1) & (0 у 1); 6) ((1 & 1) v0) & (0 v 1); 7) (0 & 0) v0) & (1 v 1); 8) (av1) v (by 0); 9) ((1 & a) v (b & 0)) v 1; 10) 1va & 0.

MOGZ ответил

11. найдите значения выражений:
1) (1 / 1) v (1 v0);
2) v0) v 1) v 1);
3) (0 & 1) & 1;
4) 1 & (1 & 1) & 1;
5) (1 v0) & (1 & 1) & (0 у 1);
6) ((1 & 1) v0) & (0 v 1);
7) (0 & 0) v0) & (1 v 1);
8) (av1) v (by 0);
9) ((1 & a) v (b & 0)) v 1;
10) 1va & 0.