Зашифровать текст Опции

[lerika]

Зашивровать текст,записанный с помощью русских букв и знаков препинания, след. образом: заменить каждую букву непосредственно следующей за ней по алфавиту (буква "я" заменяется на "а").
Необходимо а)зашифровать текст
б)расшифровать текст
Замена буквы оформляется в виде функции. Исходный текст берется ихз файла данных, а результат ( зашифрованный текст, расшифрованный текст) помещается в файл результата....




И КАК ЭТО ВЫГЛЯДИТ ВСЕ??????????????

Сообщение отредактировано: lerika - 27.03.2007 1:55

[мисс_граффити]

program kurs;
function zamena(const c:char):char;
  var alf:string;
  begin
  alf:=& #39;абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГД
ЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  case c of
  'я': zamena:='a';
  'Я': zamena:='А'
  else
    if pos(c,alf)<>0 then
      zamena:=alf[pos(c,alf)+1]
    else
      zamena:=c;
  end;
  end;

var s: string;
i: integer;
begin
writeln('vvedite s');  //вот здесь делаешь чтение из файла
readln(s);
for i:=1 to length(s) do
  s[i]:=zamena(s[i]);
writeln(s);  //а здесь запись в файл
readln;
end.