Для записи номеров столбцов используются 26 латинских букв, причем после исчерпания букв A..Z следует АА..ZZ, затем - ААА. Это всего лишь кодирование чисел в системе счисления по основанию 26, сдвинутой на единицу (потому что нулей нет) с алфавитом А..Z. Тогда запись вида a₁a₂a₃ = a₁·26² + a₂·26 + a₃. Полагаем, что А=1, B=2, ... Z=26
Тогда XVD₂₆ = 24·26² + 22·26 + 5 = 16224 + 572 + 4 = 16800, но никак не 16384. 16384 кодируется как XFD - в условии опечатка.
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var s:=UpperCase(ReadlnString('Введите имя столбца')); var n:=s.Length; var cn:=0; for var i:=1 to n do cn+=(ord(s[n-i+1])-64)*trunc(power(26,i-1)); Writeln('Номер колонки равен ',cn) end.
Примеры Введите имя столбца XFD Номер колонки равен 16384
Введите имя столбца AA Номер колонки равен 27
Функция на VBA Function cln(s As String) As Integer Dim colNumber As Integer, i As Integer s = UCase(s): cn = 0 n = Len(s) For i = 1 To n cn = cn + (Asc(Mid(s, n - i + 1, 1)) - 64) * 26 ^ (i - 1) Next cln = cn End Function
1) 0,5 Кбайт = 512 байт 512-500=12 байт - на столько информационный объём первого сообщения больше объёма второго сообщения 2) 0,5 Кбайт = 512 байт 128 бит = 16 байт 512/16 = 32 - во столько раз информационный объем первого сообщения больше объема второго сообщения 3)N=64 N=2^i i=6 бит K=10*32*64=20 480 символов I=K*i I=20 480*6=122 880 бит=15 360 байт - объем информации 4) I=20 Кбайт=20 480 байт=163 840 бит N=256 N=2^i i=8 бит K=I/i K=163 840/8=20 480 символов 20 480/(64*32)=10 страниц ответ: 10
Тогда запись вида a₁a₂a₃ = a₁·26² + a₂·26 + a₃.
Полагаем, что А=1, B=2, ... Z=26
Тогда XVD₂₆ = 24·26² + 22·26 + 5 = 16224 + 572 + 4 = 16800, но никак не 16384. 16384 кодируется как XFD - в условии опечатка.
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var s:=UpperCase(ReadlnString('Введите имя столбца'));
var n:=s.Length;
var cn:=0;
for var i:=1 to n do
cn+=(ord(s[n-i+1])-64)*trunc(power(26,i-1));
Writeln('Номер колонки равен ',cn)
end.
Примеры
Введите имя столбца XFD
Номер колонки равен 16384
Введите имя столбца AA
Номер колонки равен 27
Функция на VBA
Function cln(s As String) As Integer
Dim colNumber As Integer, i As Integer
s = UCase(s): cn = 0
n = Len(s)
For i = 1 To n
cn = cn + (Asc(Mid(s, n - i + 1, 1)) - 64) * 26 ^ (i - 1)
Next
cln = cn
End Function
512-500=12 байт - на столько информационный объём первого сообщения больше объёма второго сообщения
2) 0,5 Кбайт = 512 байт
128 бит = 16 байт
512/16 = 32 - во столько раз информационный объем первого сообщения больше объема второго сообщения
3)N=64
N=2^i
i=6 бит
K=10*32*64=20 480 символов
I=K*i
I=20 480*6=122 880 бит=15 360 байт - объем информации
4) I=20 Кбайт=20 480 байт=163 840 бит
N=256
N=2^i
i=8 бит
K=I/i
K=163 840/8=20 480 символов
20 480/(64*32)=10 страниц
ответ: 10