| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обычная задачка [D6, XP]

Бандерас ©   (2005-11-25 21:53:00) 

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

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

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

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

---

Бандерас   (2005-11-25 22:30:00) [1]

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

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

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

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

---

Бандерас   (2005-11-25 22:22:00) [2]

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

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

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

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

---

function s2n   (2005-11-25 22:18:00) [3]


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:00) [4]

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;

---

Eraser   (2005-11-25 22:14:00) [5]

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


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

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

---

Наверх