Всем привет. Мне задали программу которая будет шифровать текст. Поискав на вашем форуме я нашла кусок кода, затем исправила его и получила вот это:
Что-то типа этого... Проверить сейчас не могу, могут быть опечатки...
var
str: string;
key: string;
i: byte;
f, f_out: text;
begin
assign(f, 'text.txt'); reset(f);
assign(f_out, 'result.txt'); rewrite(f_out);
Writeln('введите ключ'); readln(key);
while not eof(f) do begin
readln(f, str);
for i := 1 to length(str) do begin
str[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );
end;
writeln(f_out, str);
end;
close(f_out); close(f)
end.
word[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );
Да, я везде заменил, тут забыл Поменяй Word на Str
Str[i] := chr( ord(str[i]) + ord(key[succ(i mod length(key))]) - pred(ord('a')) );
Теперь следующая ошибка. файл запустился, я ввела ключ, а после нажатия Enter выводит ошибку №104 file not open for imput
Что делать?
Проверяй еще раз - я подправил...
большое спасибо всё рабоает :p4: