Зашивровать текст,записанный с помощью русских букв и знаков препинания, след. образом: заменить каждую букву непосредственно следующей за ней по алфавиту (буква "я" заменяется на "а").
Необходимо а)зашифровать текст
б)расшифровать текст
Замена буквы оформляется в виде функции. Исходный текст берется ихз файла данных, а результат ( зашифрованный текст, расшифрованный текст) помещается в файл результата....
И КАК ЭТО ВЫГЛЯДИТ ВСЕ??????????????
Вот так:
http://forum.pascal.net.ru/index.php?showtopic=3913
спасибо, но это очень сложно.... ужас...это моя курсовая к завтрашнему дню...помогите люди
самое лёгкое- изменять ascii код символа на 1 для шифрования и менять в обратную сторону для разшифрования
c:char;
c:=ord©+1;
а можно полный текст программы от program дo end
Можно.
Kirill_,пожалуйста....
program kursovayazapis;
var
{описание переменных}
begin
{открытие файла}
while not eof do
begin
{чтение символа}
c:=chr(ord©+1);
{запись символа}
end;
{закрытие файла}
end.
c:=Chr(Ord('А')+(ord©-Ord('А'))+1) mod 33); {считаю, что в алфавите 33 буквы}
2 Lаpp Ясно!
люди...ну помогите глупой девочке
Kirill_, не в обиду, но символы с 176 по 223 назвать русскими буквами сложновато.
lerika, поведай, что предполагается делать с буквой "я"? на что ее заменять? на "а"?
lerika, поведай, что предполагается делать с буквой "я"? на что ее заменять? на "а"?
[/quote]
я на а, а на б, б на в и т.д.
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.