Скачать: CL | DM;

Обычная задачка   Найти похожие ветки 

← →
Бандерас   (2005-11-25 21:53) [0]

На входе имеется обычная строка символов:
abcdefghij

Каждой букве соответствует цифра, т.е. :
a=1 b=2 c=3 d=4 e=5 f=6 g=7 h=8 i=9 j=0

Как на выходе получить строку из цифр?
Буквы не обязательно идут по порядку и могут повторяться, к примеру:
На входе: cdeffghijc
На выходе должно быть: 3456678903

Туплю жестко, вроде ничего сложного, а не догоняю ... ПОМОГИТЕ PLS !

---

← →
Eraser ©   (2005-11-25 22:14) [1]

> Бандерас   (25.11.05 21:53)


> Туплю жестко, вроде ничего сложного, а не догоняю ... ПОМОГИТЕ
> PLS !

Сочувствую...
А вопрос какой?

---

← →
function s2n   (2005-11-25 22:18) [2]


function s2n(s:string):string;
var i:word;
begin
 result:="";
 for i:=1 to length(s) do
      begin
        if s[i]="j" then result:=result+char(ord(s[i])-58)
        else
        result:=result+char(ord(s[i])-48);
      end;
end;

Caption:=s2n("cdeffghijc");

---

← →
SergProger ©   (2005-11-25 22:18) [3]

function MyFunc(S: String): String;
var
 i, buf: Byte;
begin
 Result:="";
 For i:=1 to Length(S) do
   Result:=Result+IntToStr(Ord(S[i])-96);
end;

---

← →
Бандерас   (2005-11-25 22:22) [4]

> А вопрос какой?

Из файла получаю строку в буквах: например, st:="abcdefghij"

Надо записать в др. файл  соответствующую строку в цифрах.

ВНИМАНИЕ ВОПРОС !!!
/////////////КАК ЭТО СДЕЛАТЬ?\\\\\\\\\\\\\\

---

← →
Бандерас   (2005-11-25 22:30) [5]

function s2n   и    SergProger © !!!!!!!!!
СПАСИБО !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  :))))))

ВСЕ ПОЛУЧИЛОСЬ !!!!!!!!!!!!!!!!!!

РАЗОБРАЛСЯ !!!!!!!!!!!!!!

ВСЕМ РЕСПЕКТ !!!!!!!!!!!!!!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c