Под форматом символа понимают параметры его изображение— рисунок (гарнитура), начертание (обычный, курсив, полужирный и проч.), размер, цвет и др. Для форматирования символов выполняют команду "Главная → Шрифт". После этого открывается диалоговое окно "Шрифт ", на одноименной вкладке которого можно установить все параметры шрифта . Использовать это окно очень удобно потому, что в нем выводятся все стандартные параметры форматирования, которые можно изменять, одновременно контролируя результат внесении изменений в поле " Образец ". Кроме того, нажав кнопку " По умолчанию...", можно сохранить выбранные параметры в шаблоне текущего документа. Диалоговое окно Шрифт имеет две вкладки: "Шрифт", "Интервал" . На вкладке "Шрифт" задаются следующие параметры:тип шрифта (гарнитура)— например, Times New Roman, Arial;стиль начертания (список "Начертание") — обычный, курсив, полужирный, полужирный курсив; размер шрифта (кегль) — размер символа в пунктах (от 8 до 72). Пункт (пт) — традиционная печатная единица (1 пт = 0,35 мм = =1/72дюйма);цвет символов (поле "Цвет"); стиль подчеркивания (список "Подчеркивание")— одинарное, двойное, пунктирное и др.; цвет подчеркивания (поле "Цвет подчеркивания "); текстовые эффекты (зона "Видоизменение ") — дополнительные параметры для создания таких эффектов, как зачеркивание, тень, преобразования символов в верхние или нижние индексы и др. Вкладка "Интервал" содержит следующие параметры: масштаб — коэффициент масштабирования шрифта по горизонтали(%);интервал — плотность шрифта (в пунктах); смещение слова — передвижения слова вверх или вниз относительно базовой линии; кернинг — этот флажок указывает на наименьший размер шрифта, начиная с которого для шрифтов большего размера кернинг будет применяться, то есть уменьшенный межсимвольный интервал для отдельных пар символов, что улучшает восприятие текста. P.S. Меньше написать не смогла. Можешь кое-что удалить.
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.
Вот
Объяснение: