Код Цезаря

@Cybermafiozo · Регистрация: 18.10.2010

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

"Дан текст из 200 символов. Зашифровать этот текст кодом Цезаря (каждый символ заменяется другим символом, код которого на N больше исходного)"
Подскажите плиз)

@CreepiTall · 25.10.2010, 00:39

Вот так

Pascal

const
n=3;
 
function ce (tCode:string): string;
var
i:byte;
t:integer;
begin
for i:=1 to length(tCode) do
    begin
    t:=(ord(tCode[i])+n);
    if t>=255 then dec(t,255);
    tCode[i]:=chr(t);
    end;
    ce:=tCode;
end;
 
function cd (tdecode:string): string;
var
i:byte;
t:integer;
begin
for i:=1 to length(tdecode) do
    begin
    t:=(ord(tdecode[i])-n);
    if t<0 then inc(t,255);
    tdecode[i]:=chr(t);
    end;
    cd:=tdecode;
end;
 
var
s:string;
begin
writeln('s');
readln(s);
writeln('s=',ce(s));
writeln('s=',cd(s));
end.

Добавлено через 14 минут
Вот так приавильно будет,я там ошибку сделал

Pascal

var
s:string;
begin
write('s:');
readln(s);
writeln('s=',ce(s));
writeln('s=',cd(ce(s)));
end.

@Cybermafiozo 0 / 0 / 1 Регистрация: 18.10.2010 Сообщений: 49
		1
	Код Цезаря 24.10.2010, 22:04. Показов 1457. Ответов 1 Метки нет (Все метки) "Дан текст из 200 символов. Зашифровать этот текст кодом Цезаря (каждый символ заменяется другим символом, код которого на N больше исходного)" Подскажите плиз) 0

	25.10.2010, 00:39

Код Цезаря

Решение