Кодировка какая? Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта Строка: 60 символов по 16 бит = 960 бит 60 символов по 2 байта = 120 байт Страница: 40 строк по 960 бит = 38400 бит 40 строк по 120 байт 4800 байт Учебник: 288 страниц по 38400 бит = 11059200 бит 288 страниц по 4800 байт = 1382400 байт ответ: 11059200 бит, 1382400 байт
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт Строка: 60 символов по 8 бит = 480 бит 60 символов по 1 байту = 60 байт Страница: 40 строк по 480 бит = 19200 бит 40 строк по 60 байт = 2400 байт Учебник: 288 страниц по 19200 бит = 5529600 бит 288 страниц по 2400 байт = 691200 байт ответ: 5529600 бит, 691200 байт
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.
если эта загагулина это а тогда
влево
вниз
нц
пока сверху стена в право
кц
верх
верх
нц
пока право свободно и сверху стена
красть
кц
пока справа стена с верху свободно
верх
кц
и так далее до конца
P.S Из-за того,что обычно 1клетка и+давно ваш это кумир трогал мог что-то напутать,но думаю суть уловил
старайся использовать нц и кц,чтобы сократить себе работу и количество строк)
Объяснение: