Решите контрольную «Коммуникационные технологии»

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;

for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;

end;
procedure TForm1.Image1Click(Sender: TObject);
begin

end;

end.

 

 

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :(   )

1. Т.к. все шары разные вероятность того, что вытащат  любой из них равна одной восьмой. Получается, что ровно 3 бита информации несет сообщение, о том что достали красный шар.

2. 512 символов:16 символичный алфавит=32 бита = 4 байта 

512x4=2048 бит

2048 бит = 256 байт

256 байт = 0,25 Кбайта

5.(1:16)*1024*1024*8:4=131072 символов

4.1/25 Мб = 1/25*220*23 = 218 бит это 1/32 Мб в битах

218/8 = 218/23 = 215 = 32768 символов.

6. 1/29М6 = 1:29*220*23 = 214 бит это 1/512 Мбайта в битах

Найдем объем 1 символа  214/2048 = 214/211 = 23 = 8 бит, отсюда получаем что 

28 = 256 символов