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

Алгоритм вычисления значения функции f(n), где n- натуральное число, задан следующими соотношениями: f(1)=1, f(2)=2, f(n)=2*f(n-1)+(n-2)*f(n-2), при n> 2. чему равно значение функции f(6)?

👇
Ответ:
мария21112006
мария21112006
30.08.2021
В приложении дана блок-схема с алгоритмом, вычисляющим значение функции F по рекуррентной схеме.
Ниже приводится запись программы на языке Pascal, содержащая две функции - рекуррентную F (строго в соответствии с алгоритмом) и рекурсивную Fr.
Вывод иллюстрирует работу программы для значения аргумента n=6

function F(n: integer): integer;
{рекуррентная}
var
  i, p: integer;
  fn1, fn2: integer;

begin
  case n of
    1: Result := 1;
    2: Result := 2;
  else
    begin
      fn2 := 1;
      fn1 := 2;
      for i := 3 to n do
      begin
        p := 2 * fn1 + (i - 2) * fn2;
        fn2 := fn1;
        fn1 := p
      end;
      Result := p
    end
  end
end;

function Fr(n: integer): integer;
{рекурсивная - оцените изящество рекурсии!}
begin
  case n of
    1: Result := 1;
    2: Result := 2;
  else Result := 2 * Fr(n - 1) + (n - 2) * Fr(n - 2)
  end
end;

begin
  writeln(F(6), ' ', Fr(6))
end.

Тестовое решение:
142 142

ответ: значение функции F(6) равно 142.
4,4(38 оценок)
Открыть все ответы
Ответ:
MATVEI235
MATVEI235
30.08.2021
Var
 K:array[1..2,1..13]  of integer;
 i,j,ind,x,y:integer;
 MAX:real;
 function RAST(x1,x2,y1,y2:integer):real;
  begin
   RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
begin
 MAX:=-2*sqr(-10-1);
 randomize;
 writeln('Исходные точки:');
 for j:=1 to 13 do
  begin
    writeln('Точка № ',j,', с координатами(X,Y)');
    for i:=1 to 2 do 
      begin
        K[i,j]:=random(110) - 10;
        write(K[i,j],'  ');
      end;
    writeln;
   end;
 for i:=1 to 13 do
   if RAST(0,K[1,i],0,K[2,i])>MAX
    then
      begin
         MAX:=RAST(0,K[1,i],0,K[2,i]);
         x:=K[1,i];
         y:=K[2,i];
         ind:=i;
      end;
writeln('Номер точки: ',ind,'  Координаты: ',x,' ; ',y);
end.
  
   

7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор
4,4(83 оценок)
Ответ:
andreikasuper
andreikasuper
30.08.2021

1

Очень просто, на один символ в системе юникод приходится 16 бит, а в кои8- 8 бит. Если внимательно посмотреть, то количество выделенной информации на символ отличается в 2 раза. Следовательно переведенное сообщение стало занимать в 2 раза больше памяти. Т.е, первоначальное сообщение имело объем 8000 битов.

Можно и уравнение :

2х-х=8000

х=8000

2

Очень просто, на один символ в системе юникод приходится 16 бит, а в кои8- 8 бит. Если внимательно посмотреть, то количество выделенной информации на символ отличается в 2 раза. Следовательно переведенное сообщение стало занимать в 2 раза больше памяти. Т.е, первоначальное сообщение имело объем 8000 битов.

Можно и уравнение :

2х-х=8000

х=8000

4,6(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ