Шифрование\дешифрование текста, Помогите бездарю! Опции

[Smoke007]

Народ дали тему курсовой Написать программу которая шифрует и дешифрует текст. Я в этом не шарю вообще ибо комп тока появился недавно ,кароче деревня.... Выручите кто нибудь если кто делал ...

[Feagor]

Самый простейший вариант:

uses crt;
var s,s1:string;
    i:integer;
begin
clrscr;
writeln('Vvedite stroku');
read(s);
for i:=1 to length(s) do begin
s1[i]:=chr(ord(s[i])+5);{к коду i-того символа введенной строки добавляем 5, и преобразуем обратно в символ}
write(s1[i]);
end;
readkey;
end.

2 volvo, не знаешь почему, после того как обращаешься к строке посимвольно потом через write(s) она не выводится, приходится выводить посимвольно?

Сообщение отредактировано: Feagor - 3.01.2008 16:07

[andriano]

не знаешь почему, после того как обращаешься к строке посимвольно потом через write(s) она не выводится, приходится выводить посимвольно?

Строка выводится правильно, это ты ее заполняешь неправильно.
Выведи на экран length(sl), надеюсь, поймешь, в чем дело.