Создать самую простую бд в Access. Задание: Предметная область: Бухгалтерия (учет материальных ценностей). Основные предметно-значимые сущности: Оборудование, Подразделения, Материально ответственные лица. Основные предметно-значимые атрибуты сущностей: - оборудование – название, стоимость, остаточная стоимость; - подразделения – название, вид подразделения; - материально ответственные лица – фамилия, имя, отчество, подразделение. Основные требования к функциям системы: - выбрать все оборудование по материально-ответственным лицам или определенному лицу; - выбрать все оборудование по подразделениям или определенному подразделению; - подсчитать общую стоимость оборудования по подразделениям.
Const n=4;
m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=2+Random(8);
Write(A[i,j],' ');
end;
Writeln;
end;
Writeln; ii:=1;
For i:=1 to n do
begin
min:=1000;
for j:=1 to m do
begin
jj:=1;
If A[i,j]<=min then
begin
min:=A[i,j];
id[i]:=i;
jd[i]:=j;
end;
end;
B[i]:=min;
end;
For i:=1 to n do
begin
Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');
end;
END.
B. k<5, k=k+1
Объяснение:
k=0
while k<5:
print('privet')
k=k+1
начальное значение k = 0
условие из А (k > 0) будет ложным и цикл не выполнится ни разу, т.к. 0 равен 0, а не больше
условие из С (k > 6) будет ложным и цикл не выполнится ни разу, т.к. 0 меньше 6, а не больше
условие из В (k < 5) будет истинным и цикл начнет выполнятся, т.к. 0 меньше 5
далее переменная k будет увеличиваться на 1 каждый повтор цикла
после первого повтора цикла она будет равна 1, после второго 2 и т.д.
пока эти значения будут меньше 5 цикл будет выполнятся
после пятого повтора цикла переменная k станет равна 5, условие (k < 5) будет ложным и цикл прервется