Задание 14 Форматирование абзацев 1 В текстовом процессоре создайте новый документ.
2 Наберите черновик документа (Times New Roman, 14 пунктов, выравнивание по
левому краю) со следующим текстом:
Текст для ввода
Номер абзаца
Принтер
1
Для вывода документа на бумагу к компьютеру подключается
2
печатающее устройство — принтер. Существуют различные типы
принтеров.
Матричный принтер печатает с металлических иголок,
которые прижимают к бумаге красящую ленту.
3
Струйный принтер наносит буквы на бумагу, распыляя над
4
ней капли жидких чернил. С его создаются не только
черно-белые, но и цветные изображения.
В лазерном принтере для печати символов используется
5
лазерный луч. Это позволяет получать типографское качество
печати.
3 Выполните форматирование в соответствии со следующими требованиями:
Свойства абзаца
Форматирование символов
Номер
абзаца
Выравнивание
Междустрочный
интервал
Шрифт
Размер
Начертание
1
по центру
одинарный
Arial
14
полужирный
2
по левому краю
1,5 строки
Times New Roman
12
полужирный
3
По правому краю
двойной
курсив
4
По ширине
1,5 строки
подчеркнутый
5
По центру
одинарный
полужирный,
курсив
4 Сохраните файл в личной папке под именем Принтеры.rtf и закройте его.
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>-2.4) and (x<5.7) then f:=sqr(x)
else f:=4;
Writeln('F=',f)
end.
var
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>0.2) and (x<0.9) then f:=sin(x)
else f:=1;
Writeln('F=',f)
end.
var
a,b,c:real;
begin
Write('Введите три числа: '); Readln(a,b,c);
Write('Условие ',a,'<',b,'<',c);
if (b>a) and (b<c) then Writeln(' выполняется.')
else Writeln(' не выполняется.');
Write('Условие ',b,'>',a,'>',c);
if (a<b) and (a>c) then Writeln(' выполняется.')
else Writeln(' не выполняется.')
end.