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