1

Не могу понять, что не так(строка с ошибкой указана)

{––––– Зашифровка одного символа –––––}
function Encrypt(arg: char; CKey: integer): char;
var
  x: integer;
begin
  x := Ord(arg) + CKey;
  if x > 255 then x := x - 256 + 32;
  Encrypt := Chr(x);
end;

function Decrypt(arg: char; CKey: integer): char;
var
  x: integer;
begin
  x := Ord(arg) - CKey;
  if x < 32 then x := x + 256 - 32;
  Decrypt := Chr(x);
end;
{––––– Зашифровка строки –––––}
procedure EncryptStr(var arg: string; CKey: integer);
var
  k: integer;
begin
  for k := 1 to Length(arg) do
    arg[k] := Encrypt(arg[k];2); {Тут пишет Встречено ';', а ожидалось ')'}
end;
{––––– Расшифровка строки –––––}
procedure DecryptStr(var arg: string; CKey: integer);
var
  k: integer;
begin
  for k := 1 to Length(arg) do
    arg[k] := Decrypt(arg[k];2);
end;
{––––– Главная программа –––––}
var
  S: string;
  Oper: integer;

begin
  repeat
    Write('Введите строку: '); Readln(S);
    Writeln('Укажите операцию: 1– шифровать,' +
        ' 2– расшифровать,' +
        ' Прочие – выход');
    Readln(Oper);
    case Oper of
      1: EncryptStr(S);
      2: DecryptStr(S);
    else Break;
    end;
    Writeln(S); { печатаем результат }
  until false;
end. 

1 ответ 1

2

При вызове процедур и функций, аргументы разделяются запятой:

FOR k := 1 TO Length(arg) DO
    arg[k] := Decrypt(arg[k], 2);
2
  • Спасибо, и как я мог забыть?
    – Влад
    5 сен 2019 в 14:39
  • @Влад Если ответ вас устраивает, следует отметить его как верный, нажав галочку.
    – Ainar-G
    5 сен 2019 в 14:47

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.