Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Cоставьте программу записывающую в файл закодированный текст, считывающую его и выполняющую дешифрование, если известен код шифрования - число,

10-11 класс

указывающее смещение букв в алфавите ( например, код 3 означает, что вместо буквы "а" в зашифрованном тексте указана буква "в"). Дешифрованный текст записать в другой файл.

Ychenica10klass 04 нояб. 2016 г., 18:43:07 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ксюха12345Титова
04 нояб. 2016 г., 20:34:27 (7 лет назад)

var
  sme: byte;
  arrIn: array of byte;
  boolEncode: boolean;
  arrOut: System.Collections.Generic.List<byte> := new System.Collections.Generic.List<byte>();

begin
  writeln('1 - encode; 2 - decode');
  readln(sme);
  boolEncode := (sme = 1);
  write('Смещение: ');
  readln(sme);
  arrIn := System.IO.File.ReadAllBytes('out.txt');
  foreach f: byte in arrIn do
    arrOut.Add(f + (boolEncode ? -1 : 1) * sme);
  System.IO.File.WriteAllBytes('out1.txt', arrOut.ToArray());
end.
======================
Алфавит, это, конечно, хорошо, но, бесспорно, будет лучше сделать более универтально: алфавит не только русским будет, ещё пункт. знаки, цЫфры, иврит...:)

+ 0 -
Dobermanliza
04 нояб. 2016 г., 22:28:41 (7 лет назад)

Паскаль, друг, паскаль) Он популярен) Нет языка - пиши на паскале)

+ 0 -
Вода123
05 нояб. 2016 г., 0:49:59 (7 лет назад)

именно паскаль

+ 0 -
Дафа1
05 нояб. 2016 г., 1:54:05 (7 лет назад)

Комментарий удален

+ 0 -
Lararudnik79
05 нояб. 2016 г., 3:29:54 (7 лет назад)

Комментарий удален

+ 0 -
Mohammedalkhani
05 нояб. 2016 г., 6:08:55 (7 лет назад)

я же говорю, паскаль, сначала забыл указать

Ответить

Читайте также

Сколько целых страниц машинописного текста можно записать на магнитную дискету (считая, что никакой информации, кроме собственного текста, в файле не

хранится и одна страница машинописного текста примерно занимает 2,5 Кбайт), если:
Ёмкость (объём) дискеты: 1,2 Мб
Строк на странице: 40
Символов с строке: 60

Здравствуйте! Помогите пожалуйста с программой.

Описать функцию у=arcsin(x), cоставить программу решения уравнения sin(ax+b)=c (Паскаль)



В заданном тексте перевернуть каждое слово

Программу сделать с помощью процедур
Текст набить вручную(не больше 10 слов).
pascal

Составьте программу с использованием условного оператора, предусмотрите вариант, когда значение будет выходить за пределы диапазона, в этом случае

экран должен очищаться , выводиться подсказка и программа должна возвращаться в начало. Условие для программы: Cоставьте программу , которая в зависимости от азимута, показываемого стрелкой компаса, определят страны света: север юг, воcток,запад.



Вы находитесь на странице вопроса "Cоставьте программу записывающую в файл закодированный текст, считывающую его и выполняющую дешифрование, если известен код шифрования - число,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.