No 4 «параметры страницы»
цель: закрепить навыки работы с различными параметрами шрифта, абзаца.
научиться применять различные параметры страницы.
для изменения ориентации страницы необходимо посмотреть справа на
редактирование страницы - далее найти ориентация - выбрать книжная
или альбомная.
также справа можно настроить поля, для этого нужно нажать кнопку поля.
можно выбрать из предложенных вариантов или задать свои, нажав
«другое»
в открывшемся диалоговом окне ввести необходимые параметры
добавления номера страницы.
справа есть раздел стили - далее номер.
установить следующие параметры:
ориентация страницы альбомная
поля: левое 3, правое 1, верхнее и нижнее 1,25
вставить номер страницы внизу по центру
первая строка отступ на 0,5
отступ абзаца слева 3; справа 2
выравнивание текста по ширине
межстрочный интервал 1,1
интервал после абзаца 10 пт
шрифт текста courier new
размер шрифта 13 пт
цвет текста - оранжевый
набрать текст:
самій великий и могущественный из греческих богов,
тромовержец, сын реи (земли) и кроноса (времени). кронос
безжалостно пожирал всех своих детей, опасаясь, что они
восстанут против него. рея зевса, своего шестого
ребенка, дар кроносу проглотить вместо младенца камень,
завернутый в пеленки. возмужавший зевс заставил отца
вернуть им детей и вместе с ними вступил в
борьбу с кроносом и титанами за власть над миром.
зевс освободил из тартара циклопов и сооруких великанов -
тека-онхейров и с их низверг туда титанов. ему
титан прометей, который перешел на его сторону.
свергнув кроноса, зевс и его братья разделили свои
аладения. зевс оставил себе небо, посейдону досталось море,
а иду - одземное царство душумерших. и стал зевс царить
на слиме е окружении сониа богов. рядом с зевсом на троне
сидит его жена, величественная богиня гера.
снимок на комп.
q: Single; // Результат. Если число будет больше, то указать Double
i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double
p: Single; // Процент. Если процент будет всегда целым числом, то указать Byte
begin
writeln('Введите число => ');
read(i);
writeln('Введите процент, который хотите расcчитать из введенного числа => ');
read(p);
while p < 0 do
begin
writeln('Процент не может быть меньше нуля, введите новое значение => ');
read(p);
end;
q:=(i / 100) * p;
writeln('Ваш результат из числа => ', i, ', ', p, '% = ', q);
end.