Базы данных Access,нужно написать ход выполнения задачи(подробно) Сотрудники разных категорий (1-й, 2-й, 3-й) аудиторской фирмы осуществляют проверку предприятий в течение года. Работа сотрудников оплачивается за каждый час в зависимости от категории сотрудника.Необходимо спроектировать базу данных Аудит, информация которой будет использоваться для автоматизации начисления зарплаты сотрудникам.
В БД должна храниться информация:
• О СОТРУДНИКАХ аудиторской фирмы (код сотрудника, Ф.И.О. сотрудника, номер паспорта, дата рождения, рабочий телефон);
• О КАТЕГОРИЯХ СОТРУДНИКОВ: (категория, ставка за 1 час (тыс. руб.));
• О РАБОТЕ, выполненной сотрудниками на предприятиях (название предприятия, код сотрудника, дата выполнения работы, количество отработанных часов).
При проектировании БД необходимо учитывать следующее:
• определенную категорию могут иметь несколько сотрудников. Сотрудник имеет квалификацию только одной категории;
• сотрудник может выполнять несколько работ по проверке на разных предприятиях. Работу по проверке предприятия могут проводить несколько сотрудников.
Кроме того следует учесть:
• каждый сотрудник обязательно имеет категорию. Определенная категория не обязательно может быть у сотрудников аудиторской фирмы;
• сотрудник не обязательно выполняет работу по проверке на предприятии. Каждая работа по проверке на предприятии обязательно выполняется сотрудниками.
Составь таблицу истинности. Прежде чем ее составить: во первых нужно знать нумерацию, во вторых что такое коньюкция, дизъюнкция, инверсия и тд (и их табл истинности) тогда ты сможешь это все применять в таблице.
Объяснение:
У тебя идут колонки: A,B,C,потом A(инверсия) и B(инверсия).
Для 3 колонок 1 и 0:
A B C A(инв) B(инв) (В(инв) диз С) (А(инв)коньюк((В(инв) диз С))
0 0 0
0 0 1
0 1 0
0 1 1
1 0 0
1 0 1
1 1 0
1 1 1
(В инверсии меняешь ед на нули, нули на ед, коньюкция - умножение, дизъюнкция - сложение)
1)
program next;
var a,s,d,f,g,h:integer;
begin
read(h);
for a:=1 to h do
begin
read(d);
if (d mod 4 =0)then
begin
f:=f+1;
end;
end;
writeln(f);
end.
2)
program next;
var a,s,d,f,g,h:integer;
begin
read(h);
for a:=1 to h do
begin
read(d);
if (d mod 6 =0)then
begin
f:=f+d;
end;
end;
writeln(f);
end.
3)
program next;
var a,s,d,f,g,h:integer;
begin
for a:=1 to 1000 do
begin
read(d);
if d=0 then
begin
break;
end;
if (d>9)and(d<100)then
begin
if (d mod 5 =0)then
begin
f:=f+1;
end;
end;
end;
writeln(f);
end.
4)
program next;
var a,d,f,g,h:integer;
s:real;
begin
for a:=1 to 1000 do
begin
read(d);
if d=0 then
begin
break;
end;
if (d>0)then
begin
if (d mod 8 =0)then
begin
h:=h+1;
f:=f+d;
end;
end;
end;
if (h>0)then
begin
s:=f/h;
writeln(s);
end
else
begin
writeln('0');
end;
end.
Объяснение: