Найти сумму цифр значения заданной функции от заданного аргумента

@Иванин · Регистрация: 12.02.2021

Помогите, пж, решить задачу с помощью динамического программирования:
Алгоритм вычисления функций F(n) и G(n) задан следующими соотношениями:
F(n) = G(n) = 1 при n = 1
F(n) = F(n–1) – 2 · G(n–1), при n > 1
G(n) = F(n–1) + G(n–1) + n, при n > 1
Чему равна сумма цифр значения функции G(36)?

@canadamoscow · 13.02.2021, 01:15

Pascal

var 
  f: array[1..36] of integer; 
  g: array[1..36] of integer; 
  n, sum: integer;
  s: string;
 
begin
  f[1] := 1;
  g[1] := 1;
 
  for n := 2 to 36 do
  begin
    F[n] := F[n-1] - 2 * G[n-1];
    G[n] := F[n-1] + G[n-1] + n
  end;
 
 s := inttostr(g[36]);
 for n := 1 to length(s) do
   sum += ord(s[n]) - ord('0');
 Writeln(sum);
end.

Добавлено через 1 час 5 минут

Pascal

begin
  var nn := 36;
  var (f, g) := (1, 1);
  for var n := 2 to nn do (f, g) := (F - 2 * G, F + G + n);
  var sum := 0;
  while g <> 0 do (g, sum) := (g div 10, sum + g mod 10);
  Writeln(sum);
end.

@Иванин · 13.02.2021, 08:38 **[ТС]**

Pascal

var 
  f: array[1..36] of integer; 
  g: array[1..36] of integer; 
  n, sum: integer;
  s: string;
 
begin
  f[1] := 1;
  g[1] := 1;
 
  for n := 2 to 36 do
  begin
    F[n] := F[n-1] - 2 * G[n-1];
    G[n] := F[n-1] + G[n-1] + n
  end;
 
 s := inttostr(g[36]);
 for n := 1 to length(s) do
 [B] [ sum += ord(s[n]) - ord('0');[/B]
 Writeln(sum);
end.[

В выделенной строке выдает "ожидалось присваивание :=", а если заменяю, то выдает 3, а должно быть 40!

@canadamoscow · 13.02.2021, 11:01

Pascal

19	sum := sum + ord(s[n]) - ord('0');

@Иванин · 13.02.2021, 11:34 **[ТС]**

Все работает, респект! А без строковых типов не будет работать?

@canadamoscow · 13.02.2021, 11:49

5 строку удалить. После 16 строки заменить на

Pascal

  n := G[36];
  while n <> 0 do 
    begin
      sum  := sum + n mod 10;
      n := n div 10
    end;
  writeln(sum);    
end.

@Иванин · 15.02.2021, 10:43 **[ТС]**

Вы - просто прелесть!

@Иванин 0 / 0 / 0 Регистрация: 12.02.2021 Сообщений: 36
		1
	Найти сумму цифр значения заданной функции от заданного аргумента 12.02.2021, 21:00. Показов 3838. Ответов 6 Метки нет (Все метки) Помогите, пж, решить задачу с помощью динамического программирования: Алгоритм вычисления функций F(n) и G(n) задан следующими соотношениями: F(n) = G(n) = 1 при n = 1 F(n) = F(n–1) – 2 · G(n–1), при n > 1 G(n) = F(n–1) + G(n–1) + n, при n > 1 Чему равна сумма цифр значения функции G(36)? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Иванин 0 / 0 / 0 Регистрация: 12.02.2021 Сообщений: 36
	13.02.2021, 11:34 [ТС]	5
	Все работает, респект! А без строковых типов не будет работать? 0

@Иванин 0 / 0 / 0 Регистрация: 12.02.2021 Сообщений: 36
	15.02.2021, 10:43 [ТС]	7
	Вы - просто прелесть! 0

Опции темы