Создание многоуровневых списков
Во многих видах документов встречаются более сложные типы списков. Это так называемые многоуровневые списки. В них также используется либо маркировка, либо нумерация, а иногда и сочетание того и другого. Но главное их отличие от предыдущих типов списков – наличие нескольких уровней. В зависимости от уровня для каждого абзаца устанавливается символ или номер.
Многоуровневые списки отличаются от обычных наличием отступов. Определенный отступ принимается за уровень такого списка.
Создание многоуровневого списка возможно только с помощью окна диалога Список. Причем уровни задает сам исполнитель, устанавливая определенные отступы. Word анализирует отступы и, в зависимости от их величины, нумерует, создавая уровни.
Можно создавать измененные форматы нумерации для различных уровней многоуровневого списка, однако в одном документе допустим только один формат многоуровневого списка.
Для создания многоуровневого списка необходимо выполнить следующие действия:
1. Определить фрагмент документа, который предполагается оформить в виде списка.
2. Создать отступы каждого абзаца, воспользовавшись кнопкой Увеличить отступ на панели инструментов Форматирование (при создании отступов нельзя использовать табуляцию) .
3. Выделить выбранный фрагмент текста.
4. Выбрать команду Формат – Список. В окне диалога Список перейти на вкладку Многоуровневый.
<span>5. Выбрать нужный тип многоуровневого списка из предложенных вариантов. Нажать ОК.
</span>
См файл
==========================
Примечание:
Уравнение окружности имеет вид:
Решение:
Рассмотрим 3 случая:
1) <em>Точка лежит внутри окружности.
</em>Пусть даны координаты точки x и y.
Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности
</em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа:
program zadacha_1;
var x,y,r:real;
begin
writeln('Введите координаты точки');
readln(x,y);
writeln('Введите радиус окружности');
readln(r);
if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности')
else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')
else writeln('Точка вне окружности');
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ArrRandom(n, -5, 5);
var k := a.Println.Count(p -> p = 2);
if k = 0 then
Print('Нет элементов, равных 2')
else
Print('Число элементов, равных 2:', k)
end.
<span>Если первый — гном, то в силу его слов второй и третий — лешие, что невозможно из-за высказывания второго жителя леса. Значит, первый — леший. Если второй — леший, то в силу его слов третий тоже леший, но тогда первый сказал правду, а он должен был соврать. Значит, второй — гном. В силу его слов третий тоже гном. Третий получается честно : ''а) один''.</span>