Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Определить количество размещений k автомобилей на автостоянке, имеющий n мест https://www.cyberforum.ru/ free-pascal/ thread607589.html
срочно нужно решить задачи: №2 Составьте блок-схему алгоритма и программу задачи определения количества различных размещений k автомобилей в определённом порядке на автостоянке,имеющий n мест. Обеспечьте вывод на печать значение величины \int_{n}^{k}=n!/(n-k)!
Free Pascal Определить принадлежность вводимого с клавиатуры символа к одной из трех категорий
срочно нужно решить задачи: №1 составьте блок схему алгоритма и программу его реализации задачи определения принадлежности к одной из трех категорий вводимого с клавиатуры символа.Если вводимый символ изображает русскую букву, то обеспечьте вывод строки RUS,если латинскую, то вывод строки LAT, а в остальных случаях-вывод строки digit.
Free Pascal В динамической памяти создать двусвязный список из четных чисел https://www.cyberforum.ru/ free-pascal/ thread607261.html
Лабораторная работа №3 Вариант 16. 2. В динамической памяти создать двусвязный список из четных чисел. Предусмотреть вывод всех данных, изменение значения заданного элемента. Предусмотреть вывод всех данных, вставку элемента перед элементом с заданным номером. Перед завершением программы очистить динамическую память.
Free Pascal Вычислить функцию с заданной точностью, используя рекурсивный алгоритм ПОМОГИТЕ!!!! Вычислить функцию с заданной точностью, используя рекурсивный алгоритм: https://www.cyberforum.ru/ free-pascal/ thread607260.html
Создать калькулятор в шестнадцатеричной системе счисления Free Pascal
Лабораторная работа №*4. Стандартные элементы управления Цель: Создайте приложение, реализующее определенную задачу со строками, используя возможности компонентов Delphi по работе с текстовой информацией Задание: 8. При выполнении задания обязательно используйте следующие компоненты: RichEdit и Edit (ввод данных), Memo и Edit (вывод результатов), Label (вывод пояснений), MainMenu (главное меню...
Free Pascal Дано предложение. Удалить лишние знаки https://www.cyberforum.ru/ free-pascal/ thread607257.html
Лабораторная работа №*3. Работа со строками Цель: Создайте приложение, реализующее определенную задачу со строками, используя возможности компонентов Delphi по работе с текстовой информацией Задание: 3. При выполнении задания обязательно используйте следующие компоненты: RichEdit и Edit (ввод данных), Memo и Edit (вывод результатов), Label (вывод пояснений), MainMenu (главное меню программы),...
Free Pascal Создать в динамической памяти односвязный список типа «очередь» из случайных символов, предусмотрев «буферный элемент». Организовать вставку элемента Лабораторная работа №3 Вариант 16. 1. Создать в динамической памяти односвязный список типа «очередь» из случайных символов, предусмотрев «буферный элемент». Организовать вставку элемента после элемента содержащего символ «в», ели такого элемента нет , то добавить элемент в конец очереди. Перед завершением программы очистить динамическую память. https://www.cyberforum.ru/ free-pascal/ thread607256.html Free Pascal Методом прямого обмена отсортировать массив, файл, список
Лабораторная работа №6. (СОРТИРОВКИ) Вариант 16. Применяя сортировку методом прямого обмена, отсортировать массив, файл, список, элементами которых является одна и та же совокупность строковых величин. Сравнить время работы программ для каждого случая. Результаты отображать на экране.
Free Pascal Вычислить сумму ряда (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); 2.Дано натуральное n. Вычислить: (1/sin1)+(1/sin1+sin2)+.....+(1/sin1+sinn); если можно более простым способом. Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа e. если можно более простым способом. https://www.cyberforum.ru/ free-pascal/ thread607156.html Free Pascal Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр 3. Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр. если можно более простым способом. https://www.cyberforum.ru/ free-pascal/ thread607154.html
Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр Free Pascal
4. Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр. если можно более простым способом.
Free Pascal Вычислить сумму ряда (1+ 1/1*sqr)+(1+ 1/12sqr)+(1+ 1/3*sqr).....(1+1/n*sqr); 1. Дано натуральное n. Вычислить: (1+ 1/1*sqr)+(1+ 1/12sqr)+(1+ 1/3*sqr).....(1+1/n*sqr); Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа e. если можно более простым способом. https://www.cyberforum.ru/ free-pascal/ thread607140.html
13 / 13 / 2
Регистрация: 10.09.2011
Сообщений: 179
0

Динамическое программирование. Лесенка - Free Pascal - Ответ 3178175

17.06.2012, 23:27. Показов 7644. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Вова стоит перед лесенкой из N ступеней. На каждой из ступеней написаны произвольные целые числа. Первым шагом Вова может перейти на первую ступень или, перепрыгнув через первую, сразу оказаться на второй. Также он поступает и дальше, пока не достигнет N-ой ступени. Посчитаем сумму всех чисел, написанных на ступенях через которые прошел Вова.

Требуется написать программу, которая определит оптимальный маршрут Вовы, при котором, шагая, он получит наибольшую сумму.

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

Входной файл INPUT.TXT содержит в первой строке натуральное число N – количество ступеней лестницы. Во второй строке через пробел заданы числа, написанные на ступенях лестницы, начиная с первой. Количество ступеней не превышает 1000, числа, написанные на ступенях, не превосходят по модулю 1000.

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

Выходной файл OUTPUT.TXT должен содержать в первой строке наибольшее значение суммы. Во второй строке должны быть записаны через пробел номера ступеней по возрастанию, по которым должен шагать Вова.
ссылка http://acmp.ru/index.asp?main=task&id_task=329
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var x1,y1,x2,y2:longint;
st,i,x,a,y:longint;
mas,p,d:array[-2..2000] of longint;
 
begin
 assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
 
 
read (x);
for i:=1 to x do
read (d[i]);
d[0]:=0;
d[-1]:=100000000;
for i:=2 to x do
if d[i-1]> d[i-2] then begin
 d[i]:=d[i-1]+d[i];p[i]:=i-1;
 end else  begin
 d[i]:=d[i-2]+d[i];p[i]:=i-2;
 end;
writeln (d[x]);
 
  while p[i]<>0 do
    begin
    inc(st);mas[st]:=p[i];i:=p[i];
    end;
 
for i:=st downto 1 do
 write (mas[i], ' ');
write (x);
end.
можете сказать почему ва 1 тест

Вернуться к обсуждению:
Динамическое программирование. Лесенка Free Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2012, 23:27
Готовые ответы и решения:

Задача на динамическое программирование
Вы любите играть в игры? Конечно, любите! Но про эту игру, возможно, ничего не знаете и не слышали...

Динамическое программирование: найти количество N-значных трипростых чисел
Будем называть натуральное число трипростым, если в нем любые подряд идущие 3 цифры образуют...

Динамическое программирование
Здравствуйте , кому ни трудно помогите не с простой задачкой . Задача сделана по предмету...

Динамическое программирование
скиньте пожалуйста 2 задачи на тему Динамическое программирование

1
17.06.2012, 23:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2012, 23:27
Помогаю со студенческими работами здесь

Динамическое программирование, гвоздики
На прямой дощечке вбиты гвоздики. Любые два гвоздика можно соединить ниточкой. Требуется соединить...

Задача на динамическое программирование
Даны n последовательных столбиков. Кузнечик находится на первом столбе, умеет прыгать на 1,2,...,k...

Динамическое программирование. Stack
Начал основывать динамику и начал со стэка, нужна помощь запуска программы. Вот процедуры и...

задача на динамическое программирование
На квадратной доске расставлены целые неотрицательные числа. Черепашка, находящаяся в левом...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru