|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.11.2011, 19:03 | #1 |
Новичок
Джуниор
Регистрация: 06.11.2011
Сообщений: 1
|
Динамическое программирование.
Прошу помочь кто сможет, пишу программу для решения задач динамического программирования. Сейчас уперся в проблему которую никак не могу оптимизировать. Имея график высот и скорости нужно что бы рисовало оптимальный путь. Сколько думал но идеи оптимизации так и не могу придумать, помогите пожалуйста. Вот скрин графика
Ну и код программы 2й формы. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm2 = class(TForm) Image1: TImage; BitBtn1: TBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; Label28: TLabel; Label29: TLabel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Label41: TLabel; Label42: TLabel; Label43: TLabel; Label44: TLabel; Label45: TLabel; Label46: TLabel; Label47: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label52: TLabel; Label53: TLabel; Label54: TLabel; Label55: TLabel; Label56: TLabel; Label57: TLabel; Label58: TLabel; Label59: TLabel; Label60: TLabel; Label61: TLabel; Label62: TLabel; Label63: TLabel; Label64: TLabel; Label65: TLabel; Label66: TLabel; Label67: TLabel; Label68: TLabel; Label69: TLabel; Label70: TLabel; Label71: TLabel; Label72: TLabel; Label73: TLabel; Label74: TLabel; Label75: TLabel; Label76: TLabel; Label77: TLabel; Label78: TLabel; Label79: TLabel; Function line (x1,y1,x2,y2:integer):boolean; function circle (x1,y1,r:integer):boolean; procedure FormActivate(Sender: TObject); private procedure ris; { Private declarations } public { Public declarations } end; var i,j,z,w:integer; Form2: TForm2; implementation {$R *.dfm} procedure tform2.ris; begin end; Function tform2.line(x1,y1,x2,y2:integer):bo olean; begin with form2.Image1.Canvas do begin moveto(x1,y1);lineto(x2,y2); end; end; function tform2.circle(x1,y1,r:integer):bool ean; begin form2.Image1.Canvas.ellipse(x1-r,y1-r,x1+r,y1+r); end; procedure TForm2.FormActivate(Sender: TObject); begin z:=0; for i:=1 to 6 do begin z:=z+100; Line (z,50,z,550); end; z:=0; for i:=1 to 5 do begin z:=z+100; line (50,z,650,z); end; z:=150; w:=550; for i:=1 to 4 do begin line (z,50,650,w); z:=z+100; w:=w-100; end; z:=550; w:=50; for i:=1 to 4 do begin line (50,w,z,550); z:=z-100; w:=w+100; end; w:=100; for j:=1 to 5 do begin z:=100; for i:=1 to 6 do begin circle (z,w,20); z:=z+100; end; w:=w+100; end; end; end. Помогите написать процедурку на рисование нужных линий. Кстатие кто не знает что я хочу немного поясню, расчет начинается с левой нижней ячейки (67). Путь пролаживается если разность между соседними ячейками = числу между этими 2мя ячейками (67-61=6=true) и так далее по цепочки пока не дойдем до нуля. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Динамическое программирование!!! | Fuckkiller | Microsoft Office Excel | 13 | 04.05.2011 19:03 |
динамическое программирование | stefan0202 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 07.02.2011 22:05 |
Динамическое программирование | Daniya.ru | Общие вопросы .NET | 2 | 19.12.2010 11:40 |
Динамическое программирование | joey_ramone | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 23.04.2010 13:51 |
Динамическое программирование. | MAKEDON | Помощь студентам | 6 | 26.08.2009 14:10 |