1) создать базу данных Access \Мои документы\Класс\Фамилия.
2) Создать таблицы (при создании таблиц использовать подстановку для
необходимых полей):
СОТРУДНИКИ ОТДЕЛЫ ДОЛЖНОСТИ
Имя поля имя поля имя поля
Таб_№ Отдел Должность
ФИО Оклад
Дата приема на работу
Дата увольнения
Должность
Пол
Курит
Отдел
Для поля [сотрудники]![Дата приема на работу] установить следующие
свойства:
Свойство Значения
Значение по умолчанию текущая дата
Условие на значение
текущей даты
Сообщение об ошибке Дата приема не должна быть
больше текущей даты
3) связать таблицы и обеспечить целостность данных, позволяя каскадное изменение
данных и не позволяя каскадное удаление.
4) с мастера форм создать формы Ф_ сотрудники, Ф_ отделы,
Ф_ должности для внесения данных в соответствующие таблицы.
5) заполнить таблицы следующими данными:
ОТДЕЛЫ ДОЛЖНОСТИ
Отдел Должность Оклад
Рекламы Директор
Маркетинга главный бух.
Дирекция Менеджер
Специалист
Экономист
6) заполнить таблицу сотрудники следующими данными:
Таб_ № ФИО
Дата
приема на
работу
Дата
увольнение должность пол курит отдел
5001 Степанов А. В. 20.01.1990 01.06.1990 Менеджер Ч Рекламы
5002 Юматов А. В. 10.06.1990 Менеджер Ч Рекламы
2005 Ахматова Э.Н. 06.10.1994 Главный
бух.
Ж Бухгалтерия
3200 Агутин И. Н.07.11.1998 05.03.2020 Экономист Ч Бухгалтерия
1321 Панова В. А. 05.03.1990 Директор Ж Дирекция
1103 Короленко Л. И 20.06.1995 Специалист Же Маркетинга
3233 Багрянов А. А. 07.03.2021 Экономист Ч Бухгалтерия
7) создать запросы:
a. История принятия на работу (сортировка по дате) за период с 01.01.1995 по
01.01.2000 включительно.
Дата приема на работу ФИО Таб_№ отдел должность Оклад
b. Список (отсортировать по ФИО) работающих рабочих в виде:
Таб_ № ФИО Пол Дата приема на работу Отдел Должность Оклад Курит
c. Суммарное значение должностных окладов по отделам (отсортировать по віддвлам):
Отдел Общая сумма окладов по отделу
8) По данным запросов создать:
a. Простой отчет.
b. Отчет, который вмещает уровни группировки с использованием итоговых значений.
Задание Макс.
2 20
3 10
4 10
5 0
6 0
7а 10
7в 15
7с 15
8а 5
8в 15
Всего 100
Объяснение:
Перевёл
var
a:real;
b:real;
c:real;
x1,x2,x3:integer;
y1,y2,y3:integer;
p:real;
s:real;
begin
writeln('первые координаты треугольника x ');
readln(x1);
writeln('вторые координаты треугольгика x ');
readln(x2);
writeln('третьи координаты треугольгика x ');
readln(x3);
writeln('четвертые координаты треугольгика y ');
readln(y1);
writeln('пятые координаты треугольгика y ');
readln(y2);
writeln('шестые координаты треугольгика y ');
readln(y3);
a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Периметр = ',p:2:0);
writeln('Площадь=',s:1:2);
readln;
end.
