Динамическое программирование

Достаточно подробно и понятно динамическое программирование описано в [3]. Рассмотрим один из примеров.

Задача «Треугольник». На рисунке изображен треугольник из чисел. Напишите программу, которая вычисляет наибольшую сумму чисел, расположенных на пути, начинающемся в верхней точке треугольника и заканчивающемся на нижней строке треугольника.

• Каждый шаг на пути может осуществляться вниз по диагонали влево или вниз по диагонали вправо.
• Число строк в треугольнике > 1 и <100.
• Треугольник составлен из целых чисел от 0 до 99.

Входные данные запишем в матрицу D.

Будем вычислять матрицу R: arгау[1..МaxN, 0..МaxN] следующим образом, предварительно обнулив ее элементы:

R[1, 1]=D[1, 1]

For i:=2 То N Do

For j:=1 To i Do

R[i, j]=max(D[i,j]+R[i-l,j], D[i, j]+R[i-1, j-1]);

где max - функция вычисления максимального из двух чисел.

Осталось найти наибольшее значение в последней строке матрицы R, оно равно 30.

Исходные данные считываем из текстового файла. Используем стандартные текстовые файлы Input и Output (их стандартные назначения: клавиатура и экран), перезначив их на файлы указанные в условии задачи. Пусть первая строка содержит число строк в треугольнике(N), далее N строк исходного треугольника.

Тип данных выбираем Integer, так как исходные данные не выходят за пределы этого типа, а максимальный результат не превысит 99*100 (100 строк в треугольнике, числа в строках до 99).

Ниже приводится полный текст программы с комментариями.

Const nmax=100;

Var D: array [1..nmax, 1..nmax] of integer;

R: array [1..nmax, 0..nmax] of integer;

i, j, n, rez: integer;

Function max (a, b: integer):integer;

{функция выбирает большее из двух чисел}

Begin

if a>b then max:=a else max:=b

End;

Begin

Assign (input,'inp.txt'); Reset(input);

Assign (output,'out.txt'); Rewrite(output);

Readln (n); { вводим число строк треугольника}

For i:=1 to n Do {вводим элементы матрицы D}

For j:=1 To i Do Read(D[i, j]);

For i:=1 to n Do {заполням матрицу R нулями }

For j:=0 To n Do R[i, j]:=0;

{реализуем основной алгоритм}

R[1,1]:=D[1, 1];

For i:=2 to n Do

For j:=1 To i Do

R[i, j]:=max(D[i,j]+R[i-1,j], D[i, j]+R[i-1, j-1]);

{ищем наибольший элемент последней строки}

rez:=R[n, 1];

For i:=2 to n Do

If rez < R[n, i] then rez:=R[n, i];

Write (rez); {выводим результат в файл}

Close (input); Close(output);

End.