Подскажите как делатьвариант 18. учет внутриофисных расходовописание предметной областивы работаете в бухгалтерии частной фирмы «альфа». сотрудники фирмы имеют возможность осуществлять мелкие покупки для нужд фирмы, предоставляя в бухгалтерию товарный чек. вашей является отслеживание внутриофисных расходов.ваша фирма состоит из отделов. каждый отдел имеет название. в каждом отделе работает определенное количество сотрудников. сотрудники могут осуществлять покупки в соответствии с расходов.каждый вид расходов имеет название, некоторое описание и предельную сумму средств, которые могут быть потрачены по данному виду расходов в месяц. при каждой покупке сотрудник оформляет документ, где указывает вид расхода, дату, сумму и отдел.нужно хранить данные о расходах не только в целом по отделу, но и по отдельным сотрудникам. нормативы по расходованию средств устанавливаются не в целом, а по каждому отделу за каждый месяц.
Так как язык не указан, приведу пример на SWI-Prolog.
Код:
read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).1)
a) (X = Y) И (Y = Z)
б) ((X = Y) И (Y != Z)) ИЛИ ((X = Z) И (Z != Y)) ИЛИ ((Y = Z) И (Z != X))
!= - "не равно"
в) (X > 0) И (Y > 0) И (Z > 0)
г) ((X > 0) И (Y > 0) И (Z < 0)) ИЛИ ((X > 0) И (Y < 0) И (Z > 0)) ИЛИ ((X < 0) И (Y > 0) И (Z > 0))
(X*Y*Z>0) И (X<0 ИЛИ Y<0 ИЛИ Z<0)
д) (X < Y) И (Y < Z)
2)
а) (X = Y) and (Y = Z)
б) ((X = Y) and (Y <> Z)) or ((X = Z) and (Z <> Y)) or ((Y = Z) and (Z <> X))
в) (X > 0) and (Y > 0) and (Z > 0)
г) ((X > 0) and (Y > 0) and (Z < 0)) or ((X > 0) and (Y < 0) and (Z > 0)) or ((X < 0) and (Y > 0) and (Z > 0))
(X*Y*Z > 0) and ((X < 0) or (Y < 0) or (Z < 0))
д) (X < Y) and (Y < Z)