Uses GraphABC; procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer); begin Draw(x, y, l, u, t); x := x + l*cos(u); y := y - l*sin(u);end; begin if t > 0 then beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1); Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end else Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end; begin SetWindowSize(425,500); SetWindowCaption('Фракталы: Снежинка Коха'); Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4); Draw(210, 8, 400, -pi/3, 4);end.
procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end;
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
№1)
16 бит = 16 / 8 байт = 2 байта
64 байта = 64 * 8 байта = 512 бит
1 Кб = 1024 байт = 8 * 1024 бит = 8192 бит
2560 байт = 2560 / 1024 Кб = 2,5 Кб ≈ 0,00241 Мб
2 Гб = 1024 * 2 Мб = 2048 Мб
№2)
200 байт ≈ 0,1953 Кб
0,1953 Кб > 0,25 Кб => 200 байт > 0,25 Кб
1536 байт = 1,5 Кб
1,5 Кб = 1,5 Кб => 1536 байт = 1,5 Кб
3 байта = 3*8 бит = 24 бит
24 бит = 24 бит => 3 байта = 24 бита
1000 бит = 125 байт = 0,122 Кб
0,122 Кб < 1 Кб => 1000 бит < 1 Кб
№3)
1) 2 Мб = 2048 Кб
2048 / 100 ≈ 20 файлов можно разместить на дискете
2) 4 Мб = 4096 Кб
4096 / 100 ≈ 40 файлов можно разместить на дискете