Валя и вера на своем садовом участке собрали а кг клубники. из них в кг собрала вера. кто из девочек собрал клубники больше и на сколько? составить блок-схему 50
Для начала давайте определим, сколько бит выделяется на один символ в пароле.
Каждый символ пароля может принимать 9 различных значений, то есть для кодирования одного символа необходимо как минимум 4 бита:
Тремя битами можно закодировать максимум = 8 символов.
Четырьмя битами можно закодировать максимум = 16 символов.
Длина пароля — 9, то есть объем одного пароля в битах равен:
9*4 = 36 бит.
Пароли кодируются минимально возможным целым количеством байт, то есть:
36 : 8 = 5 байт (вообще-то получается 4,5, но количество байт должно быть целым, в 4 байт поместится максимум 32 бит, а для хранения 36-ти бит нужно как минимум 5 байт).
Кроме пароля в системе хранятся дополнительные сведения. Нам нужно узнать объем этих самых сведений.
На 20 пользователей выделяется 400 байт, то есть на одного пользователя выделено 775:25 = 31 байт.
Из этих 31-ти байт 5 уходит на пароль, а остальное — дополнительные сведения. То есть объем доп. сведений равен:
Var dat:DateTime; myForm:Form; myButton:Button; myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs); begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле} dat:=datetime.Now; myTextBox.Text:=dat.ToString; end; begin myForm:=new Form; //создание объекта - формы myform.Left:=500; myform.top:=500; myform.AutoSize:=true; myform.Width:=300; myform.Height:=100; myTextBox:=new TextBox; //создание объекта - текстового поля myTextBox.Left:=80; myTextBox.Top:=40; myTextBox.Enabled:=true; myTextBox.Width:=105; myTextBox.Height:=100; myTextBox.MaxLength:=16; myTextBox.ReadOnly:=false; myTextBox.Visible:=true; myButton:=new Button; //создание объекта - кнопки myButton.Text:='Now'; myButton.Left:=80; myButton.top:=80; myButton.AutoSize:=true; myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле myForm.Controls.Add(myTextBox); myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку Application.Run(myForm); end.
Для начала давайте определим, сколько бит выделяется на один символ в пароле.
Каждый символ пароля может принимать 9 различных значений, то есть для кодирования одного символа необходимо как минимум 4 бита:
Тремя битами можно закодировать максимум
= 8 символов.
Четырьмя битами можно закодировать максимум
= 16 символов.
Длина пароля — 9, то есть объем одного пароля в битах равен:
9*4 = 36 бит.
Пароли кодируются минимально возможным целым количеством байт, то есть:
36 : 8 = 5 байт (вообще-то получается 4,5, но количество байт должно быть целым, в 4 байт поместится максимум 32 бит, а для хранения 36-ти бит нужно как минимум 5 байт).
Кроме пароля в системе хранятся дополнительные сведения. Нам нужно узнать объем этих самых сведений.
На 20 пользователей выделяется 400 байт, то есть на одного пользователя выделено 775:25 = 31 байт.
Из этих 31-ти байт 5 уходит на пароль, а остальное — дополнительные сведения. То есть объем доп. сведений равен:
31 - 5 = 26 байт
ответ: 26 байт
uses
system,system.Windows.Forms;
Var
dat:DateTime;
myForm:Form;
myButton:Button;
myTextBox:TextBox;
procedure MyButtonClick(sender:Object;e:EventArgs);
begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле}
dat:=datetime.Now;
myTextBox.Text:=dat.ToString;
end;
begin
myForm:=new Form; //создание объекта - формы
myform.Left:=500;
myform.top:=500;
myform.AutoSize:=true;
myform.Width:=300;
myform.Height:=100;
myTextBox:=new TextBox; //создание объекта - текстового поля
myTextBox.Left:=80;
myTextBox.Top:=40;
myTextBox.Enabled:=true;
myTextBox.Width:=105;
myTextBox.Height:=100;
myTextBox.MaxLength:=16;
myTextBox.ReadOnly:=false;
myTextBox.Visible:=true;
myButton:=new Button; //создание объекта - кнопки
myButton.Text:='Now';
myButton.Left:=80;
myButton.top:=80;
myButton.AutoSize:=true;
myForm.Controls.Add(myButton); //вешаем на форму кнопку и поле
myForm.Controls.Add(myTextBox);
myButton.click+=MyButtonClick; //присваиваем событие при нажатии на кнопку
Application.Run(myForm);
end.