М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
нур101
нур101
28.06.2022 01:43 •  Информатика

1)сколько различных натуральных 4-хзначных чисел можно составить из ряда: 2, 2, 4, 5. ? 2) сколько различных решений имеет уравнение: a=> b=> c=> d=> e=> f=1? решите подробно 2-ю, , в 1-й напишите ответ

👇
Ответ:
Задача 1. 
Здесь используются перестановки с повторениями. Число расставить 4 различных цифры по 4 разрядам равно 4!. Но у нас есть повторяющиеся цифры. Число 2 повторяется 2 раза, поэтому результат нужно разделить на 2!. То есть 4!/2!=24/2=12.
Задача 2.
Поскольку скобок нет и приоритет одинаковых операций одинаков, то они выполняются слева направо. То есть сначала считается A=>B, затем (A=>B)=>C и т.д.
Переобозначим буквы A, B, C как a_1, a_2, a_3 для простоты индексации.
Введем функцию f(length, result), значение которой равно количеству решений уравнения вида a_1=>a_2=>=>a_length = result. Длина цепочки из букв a_1, a_2, ..., a_length равна числу length, а параметр result может принимать значения 0 и 1. Нам по условию необходимо найти значение f(6,1), поскольку длина цепочки равна 6, а конечный результат 1.
Сначала решим уравнение a_1=0 - здесь всего 1 решение, поэтому f(1,0)=1. Количество решений уравнения a_1=1 тоже 1, поэтому f(1,1)=1.
Начальные условия для функции f(length, result) определены. Теперь нужно определить формулу, по которой можно будет находить следующие элементы.
Рассмотрим уравнение с цепочкой длины n:
a_1=>a_2=>=>a_(n-1)=>a_n = result
Можно расставить в нем скобки таким образом:
(a_1=>a_2=>=>a_(n-1))=>a_n = result
Пусть на данном этапе известно количество решений уравнений
a_1=>a_2=>=>a_(n-1) = 0 - оно равно f(n-1,0)
a_1=>a_2=>=>a_(n-1) = 1 - оно равно f(n-1,1)
Требуется через них выразить количество решений для цепочки длины n с результатом 0 и 1. То есть найти значения функции f(n,0) и f(n,1)
Вспомним таблицу истинности для импликации.
Выражение A=>B = 0 только в том случае, когда A=1 и B=0. В остальных трех случаях A=>B = 1.
Посчитаем значение f(n,0):
Если результат равен 0, то в цепочке длины n должно выполняться:
значение в цепочке длины n-1 равно 1, а значение a_n=0.
То есть f(n,0)=f(n-1,1).
Посчитаем значение для f(n,1):
Если результат равен 1, то в цепочке длины n должно выполняться одно из трех условий:
1) значение в цепочке длины n-1 равно 0, а значение a_n=0.
Этому соответствует количество
2) значение в цепочке длины n-1 равно 0, а значение a_n=1.
Этому опять же соответствует количество
3) значение в цепочке длины n-1 равно 1, а значение a_n=1.
Этому соответствует количество
Таким образом, складывая эти получим количество решений для f(n,1): f(n-1)=f(n-1,0)+f(n-1,0)+f(n-1,1)=2f(n-1,0)+f(n-1,1).
Осталось только посчитать f(6,1):
f(1,0)=1
f(1,1)=1
f(2,0)=f(1,1)=1
f(2,1)=2f(1,0)+f(1,1)=3
f(3,0)=f(2,1)=3
f(3,1)=2f(2,0)+f(2,1)=5
f(4,0)=f(3,1)=5
f(4,1)=2f(3,0)+f(3,1)=11
f(5,0)=f(4,1)=11
f(5,1)=2f(4,0)+f(4,1)=21
f(6,0)=f(5,1)=21
f(6,1)=2f(5,0)+f(5,1)=43.
А вообще, можно заметить, что сумма f(n,0)+f(n,1)=2^n, поскольку это количество всевозможных комбинаций 0 и 1 для n элементов. Тогда если известно f(n,0), то f(n,1)=2^n-f(n,0). Теперь можно рассмотреть нашу последовательность:
f(1,0)=1
f(1,1)=2^1-1
f(2,0)=2^1-1
f(2,1)=2^2-(2^1-1)=2^2-2^1+1
f(3,0)=2^2-2^1+1
f(3,1)=2^3-(2^2-2^1+1)=2^3-2^2+2^1-1

f(n,0)=2^(n-1)-2^(n-2)+2^(n-3)--(-1)^n * 2^0
f(n,1)=2^n-2^(n-1)++(-1)^n*2^0
Каждая из формул - сумма геометрической прогрессии с первыми членами 2^(n-1) и 2^n соответственно, с количеством членов n и n+1 соответственно и со знаменателем (-1/2).
То есть f(n,0)=b1*(q^n-1)/(q-1)=2^(n-1)*((-1/2)^n-1)/(-1/2-1)=-2^n / 3 * ((-1/2)^n-1) = 2^n / 3 - 1/3 * 2^n * (-1/2)^n = 2^n / 3 - (-1)^n / 3 = (2^n - (-1)^n) / 3
f(n,1) = 2^n -  f(n,0) = 2^n - (2^n - (-1)^n) / 3 = (3*2^n - 2^n + (-1)^n) / 3 = (2^(n+1) + (-1)^n) / 3.
Подставим n=6, чтобы проверить.
f(6,0)=(2^6 - (-1)^6) / 3 = (64 - 1) / 3 = 21.
f(6,1) = (2^(6+1) + (-1)^6) / 3 = 43.
ответ: 43.
4,4(37 оценок)
Открыть все ответы
Ответ:
vjfduxhufsnks46
vjfduxhufsnks46
28.06.2022
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
end.

program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
end.

program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.
4,7(50 оценок)
Ответ:
msganny
msganny
28.06.2022
VAR
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;

for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;

for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;

for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;

Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.

VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);

for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i];
a[2][i] := a[0][i]; end;

for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.

VAR
i, j, m: Integer;
a: Array [1..5] of Array [1..5] of Integer;
BEGIN
for i := 1 to 5 do
for j := 1 to 5 do begin
a[i][j] := Random(5)+1;
end;

for i := 1 to 5 do begin
for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;

m := 6;
for i := 1 to 5 do
for j := 1 to 5 do
if (i > j)and(m > a[i][j]) then m := a[i][j];

Writeln(a[i][j]);
END.
4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ