Полине нужно перевести цену из национальной валюты африканской страны в валюту Казахстана - Free Pascal
Формулировка задачи:
На выставке «ЭКСПО-2017» состоявшейся в Казахстане у каждой страны был свой павильон, в котором она старалась представить как можно больше особенностей своей страны. В павильоне «Плаза Африка» страны Африки представили огромное количество сувениров, которые могли приобрести все желающие. Полина решила приобрести несколько сувениров из разных стран, но только проблема в том, что каждая страна продает их только за свою валюту или за сумму соответствующую ей в тенге. У каждой страны цены измеряются в своей собственной системе счисления. Чтобы перевести цену сувенира в тенге необходимо перевести цену из n-ичной системы счисления в систему счисления, которой пользуются в нашей стране. Помогите Полине перевести цену из национальной валюты африканской страны в валюту Казахстана.
Формат входных данных
А – цена сувенира в национальной валюте (10 ⩽ a ⩽ 100 000) N – основание системы счисления африканской страны в которой представлена цена. (2⩽n⩽11)
Формат результата
Вывести одно число – цена сувенира в тенге.
Примеры
Входные данные Результат работы
10011 19
2
2314 50
6
Решение задачи: «Полине нужно перевести цену из национальной валюты африканской страны в валюту Казахстана»
textual
Листинг программы
const digit:string[11]='0123456789A'; var s:string; n,i:integer; m:longint; begin readln(s); readln(n); m:=0; for i:=1 to length(s) do m:=m*n+pos(s[i],digit)-1; writeln(m); end.
Объяснение кода листинга программы
- В первой строке объявлен массив digit, который содержит все цифры от 0 до 9 и символы A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y и Z.
- Далее объявлены три переменные: s, n и i. Переменная s будет использоваться для хранения строки, которую вводит пользователь. Переменная n будет использоваться как коэффициент для пересчета цен. Переменная i будет использоваться как счётчик в цикле.
- После этого объявлена переменная m, которая будет использоваться для хранения результата пересчёта.
- Пользователю предлагается ввести строку и коэффициент.
- Далее происходит цикл по всем символам входной строки.
- Для каждого символа выполняется следующая операция: результат умножается на коэффициент, затем к нему добавляется значение символа, которое получается через функцию pos, и из результата вычитается 1.
- Полученный результат записывается в переменную m.
- В конце программы выводится значение переменной m.