Помощь - Поиск - Пользователи - Календарь
Полная версия: Дядя Морзе
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Domen
Добрый вечер(кому добрый, кому нет).
У меня возникла проблема.Как перевести русские буквы в морзянку используя массивы.
Там будет 8 строк и 4 столбца. !mol1.gif !mol1.gif !mol1.gif !mol1.gif !mol1.gif !mol1.gif !mol1.gif !mol1.gif !mol1.gif
volvo
Можно вот отсюда начать смотреть:
Азбука Морзе.
Domen
Спасибо!
А ещё что нибудь есть. respect.gif




как мне лучше объяснить работу программы. secret.gif
volvo
Цитата(Domen @ 13.02.2007 18:50)
А ещё что нибудь есть.

Ты бы сначала сказал, что не устраивает в той программе...

Хотя я бы сделал вот так:
const
codes: array[1 .. 65] of string = (
{ Заглавные буквы А(#128) .. Я(#159) }
'/.-', '/-...', '/.--', '/--.',
'/-..', '/.', '/...-', '/--..',
'/..', '/.----', '/-.-', '/.-..',
'/--', '/-.', '/---', '/.--.',
'/.-.', '/...', '/-', '/..-',
'/..-.', '/....', '/-.-.', '/---.',
'/----', '/--.-', '/***', '/-.--',
'/-..-', '/..-..', '/..--', '/.-.-',

{ строчные буквы a(#160) .. п(#175) }
'/.-', '/-...', '/.--', '/--.',
'/-..', '/.', '/...-', '/--..',
'/..', '/.----', '/-.-', '/.-..',
'/--', '/-.', '/---', '/.--.',

{ строчные буквы р(#224) .. я(#239) }
'/.-.', '/...', '/-', '/..-',
'/..-.', '/....', '/-.-.', '/---.',
'/----', '/--.-', '/***', '/-.--',
'/-..-', '/.-..', '/..--', '/.-.-',

{ ошибочный символ }
'ERROR'
);

var
s, _result: string;
i, index: integer;

begin
write('s = '); readln(s);

for i := 1 to length(s) do begin
case s[i] of
#128 .. #159: index := (ord(s[i]) - 128) + 1;
#160 .. #175: index := (ord(s[i]) - 160) + 33;
#224 .. #239: index := (ord(s[i]) - 224) + 49;
else
index := 65;
end;
_result := _result + codes[index];
end;
writeln(_result);

end.

(в звуки преобразуешь сам, если нужно - мой вариант работает ТОЛЬКО с буквами - никаких цифр и даже пробелов, если надо цифры - придется их добавлять, и распечатывает полученую строку в коде Морзе. Проверка на строку-результат длиннее 255 символов я тоже не делал, добавь если надо...)
Domen
О, спасибо, то что надо. yes2.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.