Полине нужно перевести цену из национальной валюты африканской страны в валюту Казахстана - 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.

Объяснение кода листинга программы

  1. В первой строке объявлен массив 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.
  2. Далее объявлены три переменные: s, n и i. Переменная s будет использоваться для хранения строки, которую вводит пользователь. Переменная n будет использоваться как коэффициент для пересчета цен. Переменная i будет использоваться как счётчик в цикле.
  3. После этого объявлена переменная m, которая будет использоваться для хранения результата пересчёта.
  4. Пользователю предлагается ввести строку и коэффициент.
  5. Далее происходит цикл по всем символам входной строки.
  6. Для каждого символа выполняется следующая операция: результат умножается на коэффициент, затем к нему добавляется значение символа, которое получается через функцию pos, и из результата вычитается 1.
  7. Полученный результат записывается в переменную m.
  8. В конце программы выводится значение переменной m.

Оцени полезность:

6   голосов , оценка 5 из 5
Похожие ответы