Работа с массивом/строкой символов, преобразование символа с число. (Pascal, Delphi)

[Савва]

Здравствуйте.
На первом этапе реализации задачи возникла следующая проблема. Суть такова: нужно сделать так, чтобы вводилась строка символов (кириллица, не латиница) и изначально каждому символу была присвоена какая-то цифра в программе. А затем, каждый символ в строке (массиве) преобразовывался в это присвоенное число и находилась сумма всех чисел.
Например:
вводится слово Дом
Д присвоено 14
о присвоено 3
м присвоено 10
(то есть пользователь не вводит значения, они уже запрограммированы)
14+3+10=27
приложение консольное.

как наиболее просто реализовать это?
Копировать свои наработки не буду, ибо там бред. =)

[D@rkD@iver]

я бы на твоем месте завел массив типа такого
a: array[char(0)..char(255)] of integer;
потом присваиваешь нужные значения
a['Д']:= 14;
a['о']:= 3;

а потом просто подставляешь из строки нужные символы типа
a[s[1]]+a[s[2]]+a[s[3]]

[Савва]

Сообщение от D@rkD@iver

я бы на твоем месте завел массив типа такого
a: array[char(0)..char(255)] of integer;
потом присваиваешь нужные значения
a['Д']:= 14;
a['о']:= 3;

а потом просто подставляешь из строки нужные символы типа
a[s[1]]+a[s[2]]+a[s[3]]

что-то массив этот не работает. или я что-то не так делаю.

[ByAlex]

А можно и так сделать - буквы кириллицы забить в массив из 33 элементов в нужной вам последовательности. И потом сравниваешь символы строки с элементами массива. Например -

for i:=1 to length(Str) do
   for j:=1 to 33 do
      if Str[i]=Mas[j] then
         write(j);

[Plague]

const c='БВГДлмноп'; //изначальный набор символов
      d:array [1..9] of integer=(1,5,12,14,11,10,6,3,9); //числа соответствующие каждому символу
var s:string;
    i,k:integer;
begin
  readln(s);
  k:=0;
  for i:=1 to length(s) do
    k:=k+d[pos(s[i],c)];
  writeln(k);
end.

[Савва]

Сообщение от Plague

const c='БВГДлмноп'; //изначальный набор символов
      d:array [1..9] of integer=(1,5,12,14,11,10,6,3,9); //числа соответствующие каждому символу
var s:string;
    i,k:integer;
begin
  readln(s);
  k:=0;
  for i:=1 to length(s) do
    k:=k+d[pos(s[i],c)];
  writeln(k);
end.

спасибо, работает!

[Hacker19_90]

Так по порядку!
По какому принципу символу ставится в соответствие число?
Просто так или по есть какие-то "Предпочтения"?

[Serge_Bliznykov]

сделал так, но в любом случае в ответ выводит 0

НЕ ВЕРЮ!
небось в строчку ввели буковки, которых НЕТ в исходной строке C ?! (учтите, что регистр в данном случае ВАЖЕН!)

да. если Вы данную программу вставляли в Delphi, тогда нужно учитывать ещё и кодировку символов!
например, так:

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

const c='БВГДлмноп'; {//изначальный набор символов}
      d:array [1..9] of integer=(1,5,12,14,11,10,6,3,9); {//числа соответствующие каждому символу}

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToCharBuff(@S[1], @Result[1], Length(S));
end;

var s:string;
    i,k:integer;
begin
  readln(s);
  s := StrOemToAnsi(s);
  k:=0;
  for i:=1 to length(s) do
    k:=k+d[pos(s[i],c)];
  writeln(k);
  Readln;
end.

p.s. к слову сказать, идея решения от D@rkD@iver (см. пост #2) тоже вполне себе достойная. Мне такой подход даже больше нравится, чем с поиском - он эффективней в плане быстродействия.

[Савва]

Спасибо всем, разобрался.
теперь осталось решить ещё проблему.. вот число, которое находится, надо его как-то разбить.
пример: 156=100+50+6
не 1, 5 и 6, а так. то есть чтобы программа могла ЛЮБОЕ число так разбить. и с тысячами... 1893= 1000+800+90+3
суть программы в том, что... для каждого полученного числа будет выводиться интерпретация. а если числа, находящегося в списке интерпретации (то есть там просто будет выводиться текст) нет, то прога разбивает число вышеописанным образом и находит имеющиеся интерпретации среди более маленьких чисел.