Известно, что в электронных таблицах Excel столбцы обозначаются латинскими заглав?
Известно, что в электронных таблицах Excel столбцы обозначаются
латинскими заглав??ыми буквами и их комбинациями A, B, …, Z, AA, AB, …,
AZ, BA, BB, …, BZ, …, ZZ, AAA, AAB, …, XVD. Каждому столбцу
соответствует номер 1, 2, …, 26, 27, 28, …, 52, 53, 54, …, 78, …, 702, 703, 704,
…, 16384 соответственно. Необходимо составить программу, которая по
имени столбца определят его номер.
Гость
Ответ(ы) на вопрос:
Гость Var
s:string;
n,i,cn,k:integer;
begin
Write('Введите имя столбца: '); Read(s);
n:=Length(s);
cn:=0;
k:=1;
for i:=n downto 1 do begin
s[i]:=UpCase(s[i]);
cn:=cn+k*(Ord(s[i])-64);
k:=k*26
end;
Writeln('Номер колонки равен ',cn)
end.
Пример
Введите имя столбца: XFD
Номер колонки равен 16384
Не нашли ответ?
Похожие вопросы