[serega6531]

У меня есть строка и массив:

Код:

Word:string;
symbols:array['a'..'z'] of string;

Строка - один символ. Как найти, какое место эта строка занимает в массиве. Т.е должно получиться:
Введите символ:
d
Символ 'd' занимает 4 место в массиве.

[Alegun]

Код:

function rs(ds:char): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if c = ds then Result:= i 
  else inc(i);
  end;

[serega6531]

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

Код:

function rs(ds:char): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if c = ds then Result:= i 
  else inc(i);
  end;

Спасибо, хотя не совсем то что нужно.

[YVitaliy]

Возможно тебе нужна ф-ция типа Ord('символ') - возвращает позицию символа в ASCII table.

Код:

  pos:=ord('символ')-ord('a');

если

symbols:array['a'..'z'] of string

- массив от 'a'до 'z'. Тогда word будет типа

Код:

Word:Char;

Иначе перебором, как Alegun, но чуть-чуть по-другому:

Код:

function rs(ds:string): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if symbols[c] = ds then 
   begin
    result:=i;
    break;
  end else inc(i);
  end;

[NumLock]

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

Символ 'd' занимает 4 место в массиве.

Код:

function CharPos(c: Char): Integer;
begin
  Result:=Ord(c)-96;
end;

[serega6531]

А как сделать перевод из одного массива в другой?
Т.е один массив - ['a'..'z'], второй - ['A'..'Z'], вводим n, выдаётся N.
Мне не надо переводить в верхний регистр, я просто для примера.