Паскаль. Можно ли как-то модернизировать программу (именно модернизировать), чтобы можно...

Question

Паскаль. Можно ли как-то модернизировать программу (именно модернизировать), чтобы можно было работать и с 10+ СС? Например, вводишь число 1F (в 16 СС), программа в строке находит F, приравнивает её к 15, потом уже работает с этим числом. Пробовал, но успехом не увенчалось. Пожалуйста, постарайтесь расписать подробно.

---

Comments

Желательно бы текст программы получить, а не картинку.

---

var x:string;t:real;a,i,n,q:integer;beginreadln(x);readln(q);t:=0;n:=length(x);for i:=1 to n dobegina:=strtoint(x[i]);n:=n-1;t:=t+a*power(q,n);end;writeln(t);end.

---

Как-то хочется не модернизировать, а переписать всё. Но можно и модернизировать. Какая (max) может быть система счисления?

---

Минимум 16 нужна, но можно и больше, если всё позволяет.

---

Хочется модернизацию, потому что я её сам писал. А найти в интернете готовый вариант любой же может...

Answer 1

Можно сделать, например, так (но это всё равно очень-очень корявый вариант):
const s='ABCDEF';
var x:string;
t:real;
a,i,n,q:integer;
begin
readln(x);
readln(q);
t:=0;
n:=length(x);
for i:=1 to n do
begin
 case x[i] of
  '0'..'9' : a:=strtoint(x[i]);
  'A'..'F' : a:=pos(x[i],s)+9;
 end; 
n:=n-1;
t:=t+a*power(q,n);
end;
writeln(t);
end.

Comments

Если же делать по-другому, то там же абсолютно всё переписывать? Или останется что-то похожее?

---

Похожее, конечно, останется. )

---

Как бы меня и такой вариант устраивает. Но хотелось бы понять, что делает a:=pos(x[i],s)+9.

---

pos(s1,s2) - определяет номер позиции подстроки s1 в строке s2. В нашем случае - определяет порядковый номер буквы в строке s. Можно это, конечно, и через коды символов делать, но, вроде бы, так нагляднее.

---

Понял, спасибо. А можно ли сделать больше, чем 36 СС? (0-9 + 26 букв алфавита = 36 СС)

---

Можно и больше. Надо только определить - какие символы использовать после Z.

---

А можно их как-то использовать по типу Excel? AA, AB, AC, AD, ..., ZZ, AAA, AAB, ...

---

А как Вы будете распознавать, например, AA? Это две цифры "A" или одна цифра "АА"?

---

А, ну да, тут я не подумал. Всё, вопросов больше нет. Спасибо за уделённое время.

---

:)