Задача на строки Опции

[Vardes]

Если задать текст таким образом:

Код

var
txt: array[1..3] of string;
i:byte;
begin
for i:= 1 to 3 do
readln(txt[i]);   {Ввод текста,состоящего из 3-х строк}

Каким же образом проверить каждый элемент на условие.Например,если один из элементов строки :='A', то этот элемент примет значение :='..--'.
Данная задача связана с азбукой МОРЗЕ.
И ещё есть вопрос
КАК элементу строки присвоить сразу несколько элементов из кодовой таблицы ASII.

Код

txt[i]:=chr(16);{Надо, чтоб он также принимал chr(17),получится как бы chr(16,17),но это неправильно.}

КАК это можно осуществить.

Сообщение отредактировано: Vardes - 28.11.2005 11:29

[volvo]

P.S. Кстати, проблема-то у тебя скорее всего в том, что множество символов кириллицы - "разорванное":
'а' .. 'п', 'р' .. 'я'

и между 'п' и 'р' есть еще 48 символов ... То есть тебе нужно будет делать так:

type
  ...
  set_alpha  = 'а' .. 'я';
const
  digits = ['0'..'9'];
  alpha  = ['а'..'п', 'р'..'я'];

  {
    первые 16 строк - коды букв 'а' - 'п',
    потом 48 пустых строк и последние 16 - коды символов 'р' - 'я'
  }
  morze_ch: array[set_alpha] of string[5] =
    (
    ...
    );