Перевод из азбуки Морзе в обычный текст

@Aglar · Регистрация: 10.10.2018

Студворк — интернет-сервис помощи студентам

всем добрый вечер. написал программку для перевода из азбуки Морзе в обычный текст. все вроде бы работает, но не знаю как сделать так, чтобы между отдельными словами вставлялся пробел. в закодированном тексте буквы отделяются одним пробелом, слова необходимо отделить большим числом пробелов (2-3). чтение происходит из файла input.txt, результат сохраняется в файле otput.txt

Кликните здесь для просмотра всего текста

Pascal

const n=32;
m:array[1..n] of string=
                 ('.-','-...','.--','--.','-..','.','...-','--..',
                  '..','.---','-.-','.-..','--','-.','---','.--.',
                  '.-.','...','-','..-','..-.','....','-.-.','---.',
                  '----','--.-','-..-','-.--','-..-','..-.','..--','.-.-');
rus:string='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
 
var s,s1,s2:string;
    j,i:integer;
    f,f1:text;
begin
assign(f,'input.txt'); 
reset(f);
readln(f,s);
close (f);
s:=s+' ';
s1:='';
 
while (pos(' ',s)>0) do //перебираем все пробелы в строке
 begin
  s2:=copy(s,1,pos(' ',s)-1);
  for i:=1 to n do
  if m[i]=s2 then s1:=s1+rus[i];
  delete(s,1,pos(' ',s));
 end;
 
assign(f1,'output.txt');
rewrite(f1);
writeln(f1,s1);
close (f1);
write('Complete! Please check file output.txt');readln;
end.

@Aglar · 20.11.2018, 16:23 **[ТС]**

если делать так, то добавляются пробелы после каждой буквы)))

@Puporev · 20.11.2018, 16:25

Да я ошибся и удалил сообщение.
Попробуй так.

Pascal

while (pos(' ',s)>0) do //в конце строки нет пробела
 begin
  s2:=copy(s,1,pos(' ',s)-1);
  for i:=1 to n do
  if m[i]=s2 then s1:=s1+rus[i];
  s1:=s1+'   ';
  delete(s,1,pos(' ',s));
 end;
for i:=1 to n do //добавляем последнее слово
if m[i]=s then s1:=s1+rus[i];

@Aglar 0 / 0 / 0 Регистрация: 10.10.2018 Сообщений: 20
	20.11.2018, 16:23 [ТС]	2
	если делать так, то добавляются пробелы после каждой буквы))) 0

Опции темы

Перевод из азбуки Морзе в обычный текст

Решение