function Encode(s: string; key: integer): string; var i: integer; begin for i := 1 to Length(s) do s[i] := chr(ord(s[i]) + key); Encode := s; end;
function Decode(s: string; key: integer): string; var i: integer; begin for i := 1 to Length(s) do s[i] := chr(ord(s[i]) - key); Decode := s; end;
begin write('Введите строку данных - '); readln(s); writeln('Выберите действие'); writeln('1 - Закодировать'); writeln('2 - Раскодировать'); readln(i); case i of 1: s := Encode(s, key); 2: s := Decode(s, key); end; Writeln(s); end.
Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел. Вот. Так что табличные модели, несомненно, лучше словесных.
символов, столько же сколько и было, но в большем размере
Объяснение:
это зависит от веса 1 символа
если вес одного символа 8 бит, то
на одной странице
5456:8=682
682:4=170 символов
если вес одного символа 16 бит, то
85 символов на одной странице