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.
Алфавит, это, конечно, хорошо, но, бесспорно, будет лучше сделать более универтально: алфавит не только русским будет, ещё пункт. знаки, цЫфры, иврит...:)
Минимальное основание числа 11 может быть 2. Т.к. максимальная цифра в записи числа = 1. Тогда минимальный набор цифр в системе счисления: 0, 1, что соответствует системе счисления 2. И считается, числа в системе счисления представлены в порядке возрастания, т.е. если в числе указана 1, то в данной системе счисления есть все меньшие до 0. Есть ли бОльшие числа в данной системе счисления, достоверно неизвестно.
Минимальное основание числа 99 может быть 10. Если в числе присутствует число 9 (которое является максимальным среди чисел), то данная система счисления содержит как минимум: 0,1,2,3,4,5,6,7,8,9. Что соответствует системе счисления с основанием 10.
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.
Алфавит, это, конечно, хорошо, но, бесспорно, будет лучше сделать более универтально: алфавит не только русским будет, ещё пункт. знаки, цЫфры, иврит...:)