Европа Европа – часть света, западная часть материка Евразия. Европа простирается от
Атлантического океана до Уральских гор, по восточным подножиям или гребням которых проходит условная граница между Европой и Азией. Опишем географическое положение некоторых стран Европы.
Швеция
Швеция расположена в восточной части Скандинавского полуострова. Эта страна простирается с севера на юг – от ледяных пустынь Арктики до границы с Данией.
Австрия
Австрия – горная страна, лежащая в центре Европы. Почти три четверти ее территории занимают покрытые густыми лесами снежные Альпы.
Испания
Испания расположена на Пиренейском полуострове, находящемся в западной
части Европы.
Африка
Африка – второй по величине материк после Евразии и занимает пятую часть
суши земного шара. От Азии Африка отделена лишь искусственным Суэцким
каналом. Опишем географическое положение некоторых стран Африки.
19
Тунис
Тунис – самая северная страна Африканского континента. Тунис расположен на
восточной оконечности гор Атласа.
Ангола
Ангола расположена на западном побережье Африки. Узкие прибрежные равнины Анголы переходят в полупустынные саванны и горные хребты.
4. Примените стиль с именем Заголовок 1 к заголовкам частей света (Европа, Африка), стиль Заголовок 2 к заголовкам стран и стиль Обычный к
остальному тексту.
5. Вставьте разрыв страницы после последнего абзаца текста.
6. На третьей странице напечатайте слово Содержание и ниже вставьте
оглавление, включающее два уровня: Заголовок 1 и Заголовок 2 (команда
Ссылки → Оглавление → Оглавление …).
7. Выведите на экран документ в режиме предварительного просмотра и
покажите результат Вашей работы преподавателю.
8. Вернитесь в режим работы с документом.
9. Удалите оглавление (слово Содержание удалять не нужно).
10. Создайте стиль с именем Фамилия_1 со следующими параметрами:
шрифт Arial;
размер шрифта 16 пт;
полужирное начертание;
все буквы прописные;
выравнивание абзаца по центру;
отступа первой строки нет;
междустрочный интервал полуторный;
интервал после абзаца 12 пт;
уровень абзаца Уровень 1.
11. Примените стиль Фамилия_1 к названиям частей света.
12. Создайте стиль с именем Фамилия_2 со следующими параметрами:
шрифт Arial;
20
размер шрифта 14 пт.;
полужирное начертание;
выравнивание абзаца по левому краю;
отступа первой строки нет;
междустрочный интервал полуторный;
интервал после абзаца 6 пт;
уровень абзаца Уровень 2
13. Примените стиль Фамилия_2 к названиям стран.
14. Создайте стиль с именем Фамилия_3 со следующими параметрами:
шрифт Times New Roman;
размер шрифта 12 пт;
обычное начертание;
выравнивание абзаца по ширине;
отступ первой строки 1 см;
междустрочный интервал полуторный;
интервала перед и после абзаца 0 пт.
15. Примените стиль Фамилия_3 к остальному тексту.
16. Вставьте разрыв страницы между информацией для стран Европы и
стран Африки так, чтобы страны Европы располагались на одной странице, а
страны Африки на другой.
17. Создайте верхний колонтитул. В левом углу колонтитула напечатайте
Ваши Ф.И.О., в центре вставьте номер страницы, в правом углу – текущую
дату.
18. Предусмотрите, чтобы колонтитул на титульном листе не отображался.
19. На четвертой странице ниже слова Содержание вставьте оглавление,
включающее один уровень – созданный стиль Фамилия_1.
20. Вставьте разрывы страниц так, чтобы информация для каждой страны
располагалась на отдельной странице.
21. Обновите содержимое оглавления. При этом должны измениться
только номера страниц.
22. Удалите созданное оглавление.
21
23. Вставьте оглавление, включающее два уровня – стили Фамилия_1 и
Фамилия_2.
24. Установите альбомный формат страницы с информацией о Тунисе.
25. Откройте область навигации по документу (команда Вид → Показать
→ Область навигации).
26. Используя область навигации, последовательно переместитесь на
страницы с информацией о Тунисе, Австрии и Швеции.
27. Сохраните созданный Вами документ в своей папке на рабочем диске
под именем Фамилия_Работа_5.docx. Покажите результат Вашей работы
преподавателю
// Внимание! Если программа не работает, обновите версию!
procedure MyProc;
begin
var n:=ReadInteger('Введите порядок матрицы:');
Writeln('Введите построчно элементы матрицы');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Write('Строки, содержащие только нули: ');
for var i:=0 to n-1 do
if a.Row(i).All(t->t=0) then Print(i+1);
Writeln
end;
begin
Loop 2 do MyProc
end.
Пример
Введите порядок матрицы: 3
Введите построчно элементы матрицы
1 0 0
0 0 1
0 0 0
Строки, содержащие только нули: 3
Введите порядок матрицы: 2
Введите построчно элементы матрицы
0 0
0 0
Строки, содержащие только нули: 1 2
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
var (p,k):=(int64(1),0);
if a<0 then begin p:=p*a; k+=1 end;;
if b<0 then begin p:=p*b; k+=1 end;
if c<0 then begin p:=p*c; k+=1 end;
Writeln('Произведение чисел равно ',p);
Writeln('Количество отрицательных чисел равно ',k);
end.
Пример
Введите три целых числа: 12345 -67891011 -1213141516
Произведение чисел равно 82361404007312676
Количество отрицательных чисел равно 2