Алгоритм нахождения периметра
1) Вводим a и b
2) Решаем по формуле P=a+b
3) Выводим Р
4) Конец
Определение импликации:
A → B == ~A + B
~(A + ~B) + (B * C * D) = 1
По закону де Моргана:
(~A * B) + (B * C * D) = 1
Группируем:
B * (~A + C * D) = 1
Можем записать решения:
A B C D
0 1 0 0
0 1 0 1
0 1 1 0
0 1 0 1
1 1 1 1
<em>PascalABC.NET 3.2</em>
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.
200 850 байт = 196,14 КБ = 0,19 МБ
4-ре бита так как 2 в 4 степени 16 то 16 бит