← Усі приклади

Шифр Цезаря

Pascal Алгоритми

зсув символів

Блок-схема за ДСТУ

ПочатокВвід s, kr = ''i = 1, length(s), 1r = r + chr(ord(s[i]) + k)caesar = rКінецьРисунок 1 — caesar

Вихідний код

function caesar(s: string; k: integer): string;
var i: integer;
    r: string;
begin
  r := '';
  for i := 1 to length(s) do
    r := r + chr(ord(s[i]) + k);
  caesar := r;
end;