шифровка текста

[danas]

Необходимо закодировать файлы. Для этого придумали следующий алгоритм.
Каждая строка файла кодируется отдельно.
В каждой строке ищутся отдельные слова, и все символы слова сдвигаются по алфавиту циклически вправо на длину слова.
Словом считается любая последовательность подряд идущих символов латинского алфавита, строчных и прописных.
Циклический сдвиг символа по алфавиту вправо на X — замена символа на символ, стоящий в алфавите на X позиций дальше. Если при этом происходит выход за пределы алфавита, счёт начинается с начала алфавита.
Напишите эффективную, в том числе и по используемой памяти, программу (укажите используемую версию языка программирования, например Borland Pascal 7.0), которая должна закодировать строку по указанному алгоритму.
заранее спасибо!


Я написала следую программу, но в зашифрованном тексте нет пробелов и последнее слово не выводится. В чем ошибка?

uses crt;
var s:string; i,j,l,k,d:integer;  z:char;
begin clrscr;
readln(s); k:=0;
for i:=1 to length(s) do begin
if (s[i]<>' ') and (s[i] in['a'..'z']) then k:=k+1 else if k>0 then begin
d:=k; k:=0;
for j:=1 to  d do begin
z:=chr(ord(s[j])+d);
case s[j] of
'a'..'z': if z>'z' then write(chr(ord(z)-26) ) else write (z )
 else write(s[j]);end;end;end;end;end.

[evg_m]

чтобы легче анализировать код форматируем его(делаем отступы) !

uses crt;
var s:string; i,j,l,k,d:integer;  z:char;
begin
  clrscr;
  readln(s); k:=0;
  for i:=1 to length(s) do begin
    if  // (s[i]<>' ') and если уж буква то точно непробел лишнее условие! 
                           (s[i] in['a'..'z']) then k:=k+1 
    else // if k>0 then нам не надо проверять если k=0 то и d=0 и цикл ВСЕ равно не будет выполняться !!
         // зато "небуквы" спокойно выведутся даже если перед ними не было букв (два и более пробелов подряд)  
         begin
      d:=k; k:=0; 
      for j:=1 to d do begin // мы выводим ровно столько букв сколько есть в слове (без следующих пробелов!)
        z:=chr(ord(s[j])+d); //вот интересно мы каждый раз шифруем первое слово строки ? j=1, ...d 
        if z>'z' then z:=chr(ord(z)-26);
         //поскольку мы точно знаем что выводим буквы (!!c учетом исправления предыдущего замечания!!) можно и не проверять лишний раз
         //case s[j] of 
         //'a'..'z': if z>'z' then write(chr(ord(z)-26) ) else write (z )
         //else write(s[j]);
         //end;
        write(z); 
      end;
      write(s[j]); // и в вот теперь когда вывод слова окончен мы можем просто вывести известный нам "небуквенный" символ! 
                   //!!  правда здесь мы окажемся есть только строго перед этим было невыведеное слово (k>0 !) в тексте НЕТ двух пробелов подряд.
    end;
  end;

end.

а ведь ПРОПИСНЫЕ буквы у вас не шифруются, и даже не считаются буквами

s[i] in['a'..'z']

[danas]

А можно верный вариант предложить

[evg_m]

А можно верный вариант предложить

Конечно же можно. Исправьте замечания и будет верный!
P.S. собственно они УЖЕ исправлены, кроме

//вот интересно мы каждый раз шифруем первое слово строки ? j=1, ...d

и

а ведь ПРОПИСНЫЕ буквы у вас не шифруются, и даже не считаются буквами

З.Ы. разберитесь хотя бы с первым (шифрование первых букв строки).

[danas]

все равно не получается, помогите если не сложно полной программой

[evg_m]

все равно не получается,

а что именно?

[danas]

Почему неверно?

for j:=1 to d do begin // мы выводим ровно столько букв сколько есть в слове (без следующих пробелов!)
        z:=chr(ord(s[j])+d);

[evg_m]

Почему неверно?

исходный вопрос был

но в зашифрованном тексте нет пробелов

// мы выводим ровно столько букв сколько есть в слове (без следующих пробелов!)
ответ потому что мы их не выводим.(выводим только слово, но не пробелы)
и главное КАКИЕ буквы(символы) мы здесь шифруем?
каждый раз первые

for j:=1 to d do begin
z:=chr(ord(s[j])+d);

чтобы стало понятнее, попробуй не выводить каждый раз по букве а сначала просто заменять эти буквы в исходной строке
сделай вот такую замену

s[j]:=z; // write(z);

и общий вывод всей строки после цикла

readln(s);
for i:=1 to length(s) do begin
......
end;

writeln(s); !!!!!!!!!!!!!!

writeln(s);