Создать и заполнить таблицу продаж, показанную на рисунке. A B C D E 1 Продажа автомобилей ВАЗ 2 Модель Квартал 1 Квартал 2 Квартал 3 Квартал 4 3 ВАЗ 2101 3130 3020 2910 2800 4 ВАЗ 2102 2480 2100 1720 1340 5 ВАЗ 2103 1760 1760 1760 1760 6 ВАЗ 2104 1040 1040 1040 1040 7 ВАЗ 2105 320 320 320 320 8 ВАЗ 2106 4200 4150 4100 4050 9 ВАЗ 2107 6215 6150 6085 6020 10 ВАЗ 2108 8230 8150 8070 7990 11 ВАЗ 2109 10245 10150 10055 9960 12 ВАЗ 2110 12260 12150 12040 11930 13 ВАЗ 2111 14275 14150 14025 13900 Алгоритм выполнения задания. Записать исходные значения таблицы, указанные на рисунке. Заполнить графу Модель значениями ВАЗ2101÷2111, используя операцию Автозаполнение. Построить диаграмму по всем продажам всех автомобилей, для этого:Выделить всю таблицу (диапазоеА1:Е13).
Щёлкнуть Кнопку Мастер диаграмм на панели инструментов Стандартная или выполнить команду Вставка/Диаграмма.
В диалоговом окне Тип диаграммы выбрать Тип Гистограммы и Вид 1, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Источник данных диаграммы посмотреть на образец диаграммы, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Параметры диаграммы ввести в поле Название диаграммы текст Продажа автомобилей, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Размещение диаграммы установить переключатель «отдельном», чтобы получить диаграмму большего размера на отдельном листе, щёлкнуть кнопку Готово.
Изменить фон диаграммы:
4.1 Щёлкнуть правой кнопкой мыши по серому фону диаграммы (не попадая на сетку линий и на другие объекты диаграммы).
4.2 В появившемся контекстном меню выбрать пункт Формат области построения.
4.3 В диалоговом окне Формат области построения выбрать цвет фона, например, бледно-голубой, щёлкнув по соответствующему образцу цвета.
4.4 Щёлкнуть на кнопке заливки.
4.5 В диалоговом окне Заливка установить переключатель «два цвета», выбрать из списка Цвет2 бледно-жёлтый цвет, проверить установку Типа штриховки «горизонтальная», щёлкнуть ОК, ОК.
Повторить пункты 4.1-4.5, выбирая другие сочетания цветов и заливки.
Отформатировать Легенду диаграммы (надписи с пояснениями).
Щёлкнуть левой кнопкой мыши по области Легенды (внутри прямоугольника с надписями), на её рамке появятся маркеры выделения.
С нажатой левой кнопкой передвинуть область Легенды на свободное место на фоне диаграммы.
Увеличить размер шрифта Легенды, для этого:
Щёлкнуть правой кнопкой мыши внутри области Легенды.
Выбрать в контекстном меню пункт Формат легенды.
На вкладке Шрифт выбрать размер шрифта 16, на вкладке Вид выбрать желаемый цвет фона Легенды, ОК.
Увеличить размер области Легенды, для этого подвести указатель мыши к маркерам выделения области Легенды, указатель примет вид ↔ двунаправленной стрелки, с нажатой левой кнопкой раздвинуть область.
Увеличить размер шрифта и фон заголовка Продажа автомобилей.
Добавить подписи осей диаграммы.
Щёлкнуть правой кнопкой мыши по фону диаграммы, выбрать пункт Параметры диаграммы, вкладку Заголовки.
Щёлкнуть левой кнопкой мыши в поле Ось Х (категорий), набрать Тип автомобилей.
Щёлкнуть левой кнопкой мыши в поле Ось Y (значений), набрать Количество, шт.
Увеличить размер шрифта подписей.
A | B: В Африке водятся жирафы, или в Мурманске идёт снег.
A xor B: В Африке водятся жирафы, или в Мурманске идёт снег, но не одновременно.
A -> B: Если в Африке водятся жирафы, то в Мурманске идёт снег.
!A & !B: В Африке не водятся жирафы, и в Мурманске не идёт снег.
Возможны и другие высказывания. & - логическое и, | - логическое или, xor - исключающее или, ! - отрицание, -> - импликация.
2. A = "Винни-Пух любит мёд"
B = "Дверь в дом открыта"
Исходное высказывание через A, B записывается так: A & B.
Нужно построить отрицание !(A & B). По законам де Моргана это еще эквивалентно такому: !A | !B.
!(A & B) = Неверно, что Винни-Пух любит мёд и дверь в дом открыта.
!A | !B = Винни-Пух не любит мёд или дверь в дом закрыта.
Таблица истинности:
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(10,-10,20).Select(x->(x,1/x)).Println(NewLine)
end.
Пример
(13,0.0769230769230769)
(-10,-0.1)
(9,0.111111111111111)
(-5,-0.2)
(14,0.0714285714285714)
(18,0.0555555555555556)
(15,0.0666666666666667)
(3,0.333333333333333)
(-5,-0.2)
(-9,-0.111111111111111)
2. "Красивый" вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqRandom(10,-10,20).Select(x->(x,1/x))
.Foreach(x->Writeln(x[0]:3,x[1]:15:8))
end.
Пример
18 0.05555556
-10 -0.10000000
16 0.06250000
6 0.16666667
15 0.06666667
13 0.07692308
5 0.20000000
18 0.05555556
-1 -1.00000000
13 0.07692308
3. А так писали наши деды четверть века назад...
var
i,x:integer;
begin
Randomize;
for i:=1 to 10 do begin
x:=Random(31)-10;
Writeln(x:3,1/x:15:8)
end
end.
Пример
-7 -0.14285714
11 0.09090909
-2 -0.50000000
-10 -0.10000000
14 0.07142857
-7 -0.14285714
-5 -0.20000000
5 0.20000000
13 0.07692308
10 0.10000000