Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Сделать программу которая выдаст слова в формате .txt https://www.cyberforum.ru/free-pascal/thread1032589.html
Сделать программу которая выдаст слова в формате .txt . Определить сколько раз выдаст подобных слов. Чтобы выводилось какие это слова и сколько подобных будет. например "дом", "Дом", "ДОМ", "дОм".
Некорректная работа Free Pascal
Доброго времени суток.Такая проблема,создаю список из н человек загоняю информацию,сортировка и запись и чтение в файл работают,но не корректно из-за того,что при попытки вывести основной список...
Перевод целых чисел из одной системы счисления с произвольным основанием в другую систему счисления с произвольным основанием Free Pascal
Написать программу для перевода целых чисел, заданных в системе с произвольным основанием, в другую систему с произвольным основанием
Free Pascal Написать программу для перевода целых чисел из системы счисления с произвольным основанием в десятичную систему Написать программу для перевода целых чисел, заданных в системе с произвольным основанием, в десятичную систему https://www.cyberforum.ru/free-pascal/thread1032542.html
Free Pascal Написать программу для перевода целых чисел из десятичной системы в систему с произвольным основанием https://www.cyberforum.ru/free-pascal/thread1032541.html
1.Написать программу для перевода целых чисел из десятичной системы в систему с произвольным основанием.
Free Pascal Задача
Добрый вечер! Не получается решить задачу.. Есть кто может решить? (Желательно что бы решения были с комментариями) Заранее благодарю! Задача: У друзей сломался монитор. Теперь некоторые пиксели...
Free Pascal Dimensional array
Ask the user to input two positive integers M and N. Make the 2 dimensional array of integers with size MxN, where all the elements of I line will have values 10*I (I = 1,…,M).
Free Pascal Программа работает не корректно Условие задачи: В файле переставить местами четные и нечетные строки. У меня переставляет местами только первую и вторую строки, дальше не идет, что нужно исправить? program izbuhka; var fl:text;... https://www.cyberforum.ru/free-pascal/thread1032374.html
Free Pascal Написать программу ввода информации о студентах и вывода номера курса, на котором больше всего мужчин https://www.cyberforum.ru/free-pascal/thread1032178.html
На каждого студента имеется следующая информация: фамилия, имя, отчество, пол, возраст, курс. В фамилии, имени, отчестве не более 12 букв, пол указан буквами М и Ж, возраст от 16 до 35 лет, курс -...
Free Pascal Построить множество, состоящее из чисел, кратных 7, но не кратных 6 из диапазона 1..255. Построить множество, состоящее из чисел, кратных 7, но не кратных 6 из диапазона 1..255. https://www.cyberforum.ru/free-pascal/thread1032177.html
slavabel
0 / 0 / 0
Регистрация: 28.03.2012
Сообщений: 2
0

Лесенка

07.12.2013, 23:52. Просмотров 1954. Ответов 1
Метки (Все метки)

На каждой из n + 2 ступенек лестницы записано целое число, причем на первой и на последней ступеньке записано число 0. На первой ступеньке стоит человек, которому необходимо подняться на последнюю ступеньку. За один шаг он может подниматься на любое число ступенек, не превосходящее k.

Подсчитаем сумму всех чисел, написанных на ступеньках, на которые наступил человек. Найдите наибольшее возможное значение этой суммы.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
A:array[-1000..1001] of longint;
j,n,i,k,t:longint;
function max(a,b:longint):longint;
begin
if a>b then max:=a else max:=b;  end;
begin
readln(N);  inc(n);
for i:=2 to n do
read(a[i]);
readln(K);
for i:=1 to n do    begin
t:=a[i-1];
 for j:=i-1 downto i-k do
 t:=max(t,a[j]);
a[i]:=a[i]+t; end;
writeln(a[n]);
end.
Пример входных данных
3
1 -1 1
2
Пример выходных данных
2
Проходит всего лишь 30%
Может кто нибудь поделиться другим решением или укажет на ошибку?

Добавлено через 5 минут
Входные данные

В первой строке записано число n (0 ≤ n ≤ 1000). Во второй строке записано n целых чисел, не превосходящих по модулю 1000, разделенных пробелами - числа, записанные на ступеньках (за исключением первой и последней ступеньки, на которых записаны нули). В третьей строке записана максимальная величина шага человека k (1 ≤ k ≤ n).

Выходные данные

Выведите максимально возможную сумму чисел, записанных на ступеньках, на которые наступил человек.

Вернуться к обсуждению:
Лесенка
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2013, 23:52
Готовые ответы и решения:

Динамическое программирование. Лесенка
Вова стоит перед лесенкой из N ступеней. На каждой из ступеней написаны произвольные целые числа....

Лесенка
Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем...

Лесенка
Ограничение времени: 1 с Ограничение памяти: 64 M На каждой из N+2 ступенек лестницы записано...

Лесенка
Привет программисты!!! Подскажите пожалуйста код программы! Задача программы: при нажатии кнопки...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.