Паскаль. Можно ли как-то модернизировать программу (именно модернизировать), чтоб можно было
Паскаль. Можно ли как-то модернизировать программу (конкретно модернизировать), чтоб можно было работать и с 10+ СС? К примеру, вводишь число 1F (в 16 СС), программка в строке обретает F, приравнивает её к 15, позже уже работает с этим числом. Пробовал, но успехом не увенчалось. Пожалуйста, постарайтесь расписать досконально.
Задать свой вопрос
Анатолий Римкевич
Желанно бы текст программки получить, а не картину.
Kolja Kablukov
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 нужна, но можно и больше, если всё позволяет.
Вадим Заець
Охото модернизацию, поэтому что я её сам писал. А отыскать в вебе готовый вариант любой же может...
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.
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.
Аделина Визинберг
Если же делать по-иному, то там же абсолютно всё переписывать? Либо остается что-то похожее?
Любовь
Схожее, окончательно, останется. )
Владислав Чечелов
Как бы меня и таковой вариант устраивает. Но хотелось бы осознать, что делает a:=pos(x[i],s)+9.
Kamilla
pos(s1,s2) - определяет номер позиции подстроки s1 в строке s2. В нашем случае - определяет порядковый номер буквы в строке s. Можно это, конечно, и через коды знаков делать, но, вроде бы, так нагляднее.
Вячеслав Мизгер
Понял, спасибо. А можно ли сделать больше, чем 36 СС? (0-9 + 26 букв алфавита = 36 СС)
Елизавета
Можно и больше. Надо только найти - какие знаки использовать после Z.
Олег Искяндяров
А можно их как-то использовать по типу Excel? AA, AB, AC, AD, ..., ZZ, AAA, AAB, ...
Илюша Штерего
А как Вы будете распознавать, например, AA? Это две числа "A" либо одна цифра "АА"?
Вова Цевелев
А, ну да, здесь я не помыслил. Всё, вопросов больше нет. Спасибо за уделённое время.
Карина Грызлова
:)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов