IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Треугольник из чисел
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Женский
Реальное имя: Оля

Репутация: -  0  +


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

Код
                7                
            3        8            
        8        1        0        
    2        7        4        4    
4        5        2        6        5



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

Сообщение отредактировано: Lapp -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






blink.gif Это где такое предлагалось? Я предлагал совсем другое, и если ты взяла ОДНУ часть от моего предложения, то будь добра взять и ВТОРУЮ, а не комбинировать непонятно что... Вот что я предлагал:

uses crt;
Const
n = 5;
vector: array[1 .. 15] of integer =
(7, 3, 8, 8, 1, 0, 2, 7, 4, 4, 4, 5, 2, 6, 5);
var
ar: array [1..100, 1..100] of longint;
m: longint;

{***********************************************************}
function max(x,y:longint):longint;
begin
if x>y then max:=x
else max:=y;
end;

{***********************************************************}
procedure readdata;
var i, j, curr_pos: integer;
begin
curr_pos := 1;
for i := 1 to n do
for j := 1 to i do begin
ar[i, j] := vector[curr_pos]; inc(curr_pos);
end;
end;

{***********************************************************}
procedure checker;
var i, j: integer;
begin
for i:=2 to n do
for j:=1 to i do
if j=1 then ar[i,j]:=ar[i,j]+ar[i-1,j]
else
if j=i then ar[i,j]:=ar[i,j]+ar[i-1,j-1]
else ar[i,j]:=ar[i,j]+max(ar[i-1,j-1],ar[i-1,j]);
end;

{***********************************************************}
procedure writedata;
var i: integer;
begin
for i:=1 to n do
if ar[n,i]>m then m:=ar[n,i];
writeln(m);
end;

{***********************************************************}
begin
clrscr;
readdata;
checker;
writedata;
readkey;
end.

(кстати, ответ должен быть не 24, а 30 - я написал об этом еще в посте №7)
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Ольга   Треугольник из чисел   3.05.2007 15:57
Renbo   у тебя хоть написано что? чем тебе помочь-то?   4.05.2007 23:40
мисс_граффити   задание случайно не на деревья?   5.05.2007 0:19
Lapp   На рисунке изображен треугольник из чисел. Этот …   5.05.2007 11:08
Bard   а вот тебе и прога этой задачи: var ar:array [1..…   5.05.2007 18:01
klem4   Алгоритм абсолютно не верный ... для матрицы 1 …   5.05.2007 19:56
volvo   Странно... У меня на единичной треугольной матрице…   5.05.2007 20:23
klem4   Да, проблема в неверном чтении из файла   5.05.2007 21:20
Bard   да нет же мой алгоритм абсолютно верен просто мой …   5.05.2007 23:27
Ольга   Подскажите, пожалуйста, а можно ли обойтись без чт…   7.05.2007 18:13
samec   Подскажите, пожалуйста, а можно ли обойтись без ч…   10.05.2007 12:48
Ольга   Еще раз прошу, а то мой вопрос затерялся. Помогите…   10.05.2007 12:33
volvo   Можно... Используя одномерный массив вместо двумер…   10.05.2007 12:45
Ольга   Спасибо огромное за помощь, программу переделала. …   10.05.2007 14:43
samec   n - это число строк треугольника, например для сле…   11.05.2007 8:15
Ольга   Спасибо, с этим я разобралась. Только когда я вво…   11.05.2007 12:36
volvo   Значит, что-то неправильно сделала... Показывай по…   11.05.2007 12:43
Ольга   Вот что у меня получилось (на основании как предла…   11.05.2007 12:55
volvo   :blink: Это где такое предлагалось? Я предлагал со…   11.05.2007 13:03
Софа   Огромное спасибо!!!   11.05.2007 13:21
Lapp   Софа, а ты Ольга??   11.05.2007 14:45
Ольга   :rolleyes: Нет, я - Ольга, а Софа моя подруга, у …   11.05.2007 14:54


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 12:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name