No 4 «параметры страницы»
цель: закрепить навыки работы с различными параметрами шрифта, абзаца.
научиться применять различные параметры страницы.
для изменения ориентации страницы необходимо посмотреть справа на
редактирование страницы - далее найти ориентация - выбрать книжная
или альбомная.
также справа можно настроить поля, для этого нужно нажать кнопку поля.
можно выбрать из предложенных вариантов или задать свои, нажав
«другое»
в открывшемся диалоговом окне ввести необходимые параметры
добавления номера страницы.
справа есть раздел стили - далее номер.
установить следующие параметры:
ориентация страницы альбомная
поля: левое 3, правое 1, верхнее и нижнее 1,25
вставить номер страницы внизу по центру
первая строка отступ на 0,5
отступ абзаца слева 3; справа 2
выравнивание текста по ширине
межстрочный интервал 1,1
интервал после абзаца 10 пт
шрифт текста courier new
размер шрифта 13 пт
цвет текста - оранжевый
набрать текст:
самій великий и могущественный из греческих богов,
тромовержец, сын реи (земли) и кроноса (времени). кронос
безжалостно пожирал всех своих детей, опасаясь, что они
восстанут против него. рея зевса, своего шестого
ребенка, дар кроносу проглотить вместо младенца камень,
завернутый в пеленки. возмужавший зевс заставил отца
вернуть им детей и вместе с ними вступил в
борьбу с кроносом и титанами за власть над миром.
зевс освободил из тартара циклопов и сооруких великанов -
тека-онхейров и с их низверг туда титанов. ему
титан прометей, который перешел на его сторону.
свергнув кроноса, зевс и его братья разделили свои
аладения. зевс оставил себе небо, посейдону досталось море,
а иду - одземное царство душумерших. и стал зевс царить
на слиме е окружении сониа богов. рядом с зевсом на троне
сидит его жена, величественная богиня гера.
снимок на комп.
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Переменной F присвоит значение 20
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
COPY('ИНФОРМАТИКА',3 ,6)
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
24 + 24 =48
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));
ЭЛЕКТРО
//PascalABC.Net 3.0, сборка 1111
type
Point=record
x,y:double
end;
function TriangleSquare(A,B,C:Point):double;
begin
Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;
procedure GetPoint(c:char; var A:Point);
begin
Write('Введите координаты точки ',c,': ');
Readln(A.x,A.y)
end;
var
A:array['A'..'F'] of Point;
i:'A'..'F';
s1,s2:double;
begin
for i:='A' to 'F' do GetPoint(i,A[i]);
s1:=TriangleSquare(A['A'],A['B'],A['C']);
s2:=TriangleSquare(A['D'],A['E'],A['F']);
if s1>s2 then Writeln('Площадь первого треугольника больше')
else
if s2>s1 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше