Дано: текст 3.5 килобайта
Найти: количество символов в тексте
Решение: Итак, текста у нас 3.5 килобайта
Переведём в байты:
3.5 кбайта * 1024 байт\килобайте = 3584 байт.
Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас
3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа
ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки.
Задача 2
Дано:
Два текста - одинаковое количество символов.
У первого алфавит мощностью 32 символа,
у второго алфавит мощностью 64 символа
Найти:
во сколько раз отличаются объемы текстов
найдем объем инфомрации символа первого текста
log2(32) = 5 бит (логарифм двоичный от 32)
для второго текста
log2(64) = 6 бит
Пусть текст имеет длину Х
тогда первый текст имеет объем 5x, а второй 6x.
Разделим: 6x/5x = 6/5 или 1.2
ответ: в 6\5 раз отличаются объемы текстов.
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле
procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.