uses drawman;
{Рисует одну вишенку по часовой стрелке, начиная с верхней линии}
procedure Berry();
begin
onvector(1, 0);
onvector(1, -1);
onvector(0, -1);
onvector(-1, -1);
onvector(-1, 0);
onvector(-1, 1);
onvector(0, 1);
onvector(1, 1);
end;
{Рисует сразу оба листка}
procedure Leaf();
begin
onvector(2, 0);
onvector(2, -2);
onvector(-2, 0);
onvector(-4, 4);
onvector(-2, 0);
onvector(2, -2);
onvector(2, 0);
end;
begin
field(15, 12);
topoint(6, 10);
pendown;
Leaf;
onvector(-3, -6);
onvector(-1, 0);
Berry;
onvector(1, 0);
onvector(3, 6);
onvector(0, -6);
Berry;
end.
1101100=0*2^0+0*2^1+1*2^2+1*2^3+0*2^4+1*2^5+1*2^6=4+8+32+64=108(10)
10000010000,01001 (2)=(целая часть по принципу примера б) 1*2^4+1*2^10+(далее дробная часть)0*2^-1+1*2^-1+0*2^-3+0*2^-4+1*2^-5=16+1024+0,25+0,03125=1040,2813
1110010100,001(по аналогии с предыдущим примером)=1*2^2+1*2^4+1*2^7+1*2^8+1*2^9+1*2^-3=4+16+128+256+512+0.125=916.125
1714,2(8)=4*8^0+1*8^1+7*8^2+1*8^3+2*8^-1=4+8+448+512+0.125=972.25
dd,3=13*16^0+13*16^1+3*16^-1=13+208+3*0.0625=221.1875 (d(16)=13(10)
#исправлен последний пример
-1 все просто