Практическая работа "Создание таблицы Word" Цель работы:
научиться выполнять операции по созданию и форматированию таблиц в
документе; операции по обработке данных таблицы: сортировка, вычисление;
научиться создавать табличную модель на основе текстового описания и
реализовывать ее в среде текстового редактора.
Задание 1.
Создайте в новом документе таблицу с заданным форматированием (см. Таблица 1).
Таблица 1
Ключ к заданию:
1. Вставьте таблицу, используя команду Вставка-Таблица, предварительно определив
количество столбцов — 6, строк — 9.
2. Установите ширину столбцов: 1 столбец — 4,5 см, 2-5 столбец — 1,8 см, 6 столбец — 2,4
см.
Для этого используйте команду Свойства таблицы из контекстного меню выделенного
столбца. Другим задания ширины столбцов, является перетаскивание границы
столбца ЛКМ при нажатой клавише ALT. При этом на линейке отображается ширина
столбов таблицы в сантиметрах.
3. Выполните обрамление таблицы, используя команду Границы и заливка из
контекстного меню, предварительно выделив всю таблицу (см. Рисунок 1).
Рисунок 1
Проделав вышеизложенные операции, получили таблицу:
Рисунок 2
4. Объедите попарно ячейки 2-3, 4-5, 1 и 7, 6 и 12. Для этого выделите пару ячеек и
выполните команду Объединить ячейки из контекстного меню.
5. Введите текст таблицы.
6. Отформатируйте текст таблицы по образцу Таблица 1. Для ячеек заголовка таблицы
(строки 1-2) выполните выравнивание по центру и по середине ячейки. Для этого
выполните команду контекстного меню Выравнивание ячеек (Рисунок 3).
Рисунок 3
7. Сравните полученную вами таблицу с образцом Таблица 1.
Задание 2. Выполните сортировку в таблице, упорядочив строки по площади страны в
порядке возрастания.
Ключ к заданию:
Для выполнения сортировки необходимо:
Выделить таблицу, без строк заголовка.
Выполнить команду сортировка, нажав на кнопку на вкладке Главная.
Установить следующие параметры:
Рисунок 4
Обратите внимание на то, что строки в таблице переставлены согласно параметру
сортировки.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.