Известно, что в электронных таблицах Excel столбцы обозначаются латинскими заглавными...

Question

Известно, что в электронных таблицах 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 соответственно. Необходимо составить программу, которая по

имени столбца определят его номер.

Answer 1

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

Comments

от души так понятнее