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

[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]

Вот так:

type
  set_digits = '0'..'9';
  set_alpha  = 'a' .. 'z';
const
  digits = ['0'..'9'];
  alpha  = ['a'..'z'];

  morze_num: array[set_digits] of string[5] =
    ('-----','.----','..---','...--','....-',
     '.....','-....','--...','---..','----.');

  { Дополни весь алфавит }
  morze_ch: array[set_alpha] of string[5] =
    (
     '.-', '-...', '', '', '',
     '', '', '', '', '',
     '', '', '', '', '',
     '', '', '', '', '',
     '', '', '', '', '',
     ''
    );

var
  txt: array[1 .. 3] of string;
  i, j: integer;
  s: string;

begin

  for i := 1 to 3 do begin
    s := txt[i];
    txt[i] := '';
    for j := 1 to length(s) do
      if s[j] in digits then txt[i] := txt[i] + morze_num[ s[j] ]
      else
        if s[j] in alpha then txt[i] := txt[i] + morze_ch[ s[j] ]
        else txt[i] := txt[i] + s[j];
  end;

  for i := 1 to 3 do
    writeln(txt[i]);
end.

И, еще раз, следи за длиной строки !!! Очень может быть, что результат преобразования в код Морзе будет длиннее 255 символов...