М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
neli2017
neli2017
20.06.2020 11:47 •  Информатика

Program shifr; var s1,s2: string; i,n,k,p: integer; key: integer; //ключ шифрования f1,f2: text; begin assign(f1,'dannie.txt'); assign(f2,'shifr.txt'); reset(f1); rewrite(f2); writeln('введите ключ шифрования от 1 до 33: '); readln(key); while not(eof(f1)) do begin readln(f1,s1); s2: =''; for i: =1 to length(s1) do s2: =s2+chr(ord(s1[i])+key); writeln(f2,s2); end; close(f1); close(f2); end. создать программы шифрации и дешифрации для следующего модифицированного алгоритма цезаря: ключ шифрования 4 цифры (каждая цифра от 1 до 9), 1 цифра определяет сдвиг 1 симовла шифруемого текста, 2 цифра — 2 символа, 3 цифра — 3 символа, 4 цифра — 4 символа, а для пятого символа снова 1 цифра ключа и т. д.

👇
Ответ:
Мария20041007
Мария20041007
20.06.2020
Program Shifr;
var    
  s1,s2,alf,key:string;
  i,n, Kod:integer;
  f1,f2:text;
BEGIN
alf:='';
assign(f1,'Dannie.txt'); 
assign(f2,'Shifr.txt'); 
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
  begin
  readln(f1,s1);
  s2:='';
  for i:=1 to length(s1) do
    begin
    Kod:=Pos(s1[i],alf);
    n:=n+1;
    if n>4 then n:=1;
    Kod:=Kod+StrToInt(key[n]);
    if Kod>33 then Kod:=Kod-33;
    if Kod<1 then Kod:=Kod+33;
    s2:=s2+alf[Kod];
    end;
  writeln(f2,s2);
  end;
close(f1); 
close(f2); 
END. 

Program DeShifr;
var
  s1,s2,alf,key:string;
  i,n,Kod:integer;
  f1,f2:text;
BEGIN
alf:='';
assign(f1,'Shifr.txt'); 
assign(f2,'DeShifr.txt');
reset(f1);
rewrite(f2);
writeln('Введите четырехзначный ключ шифрования:');
readln(key);
n:=0;
while Not(Eof(f1)) do
  begin
  readln(f1,s1);
  s2:='';
  for i:=1 to length(s1) do
    begin
    Kod:=Pos(s1[i],alf);
    n:=n+1;
    if n>4 then n:=1;
    Kod:=Kod-StrToInt(key[n]);
    if Kod>33 then Kod:=Kod-33;
    if Kod<1 then Kod:=Kod+33;
    s2:=s2+alf[Kod];
    end;
  writeln(f2,s2);
  end;
close(f1); 
close(f2); 
END. 
4,5(5 оценок)
Открыть все ответы
Ответ:
doreaan
doreaan
20.06.2020

Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.

Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.

Веб-программист: Eclipse, Brackets

Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)

Дизайнер: Photoshop

Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду

Дизайнер: тоже прикладная

Веб-программист: Система программирования

Методист: Системная программа тк. встроена в винду

Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов

4,5(44 оценок)
Ответ:
qidanabala
qidanabala
20.06.2020

Мне уже  проверили так что:

Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.

Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.

Веб-программист: Eclipse, Brackets

Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)

Дизайнер: Photoshop

Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду

Дизайнер: тоже прикладная

Веб-программист: Система программирования

Методист: Системная программа тк. встроена в винду

Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов

4,8(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ