Nuanrad
6 год назад
Известно, что в электронных таблицах 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 соответственно. Необходимо составить программу, которая по
имени столбца определят его номер.
ОТВЕТЫ
Voadtolfa
Aug 5, 2019
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
217
