Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите перевести с Pascal на Delphi [D7, XP]

Страницы: < 1 2
Andrey__ © (2006-12-05 11:54:00)
Всем привет ! И в Паскале и в Дельфи плохо шарю.. Погомите плиз. Заранее спасибо!

program Bag;

{$APPTYPE CONSOLE}
uses
SysUtils, windows;
const N=19; {размер то ли рюкзака то ли шмотки}
const M=19; {размер то ли рюкзака то ли шмотки}
Type Item=record
size, val, items:integer
end;
var
Items :array [0..N] of Item;
D :array [0..M] of integer;
D1:array [0..M] of integer;
a:integer;
h,g,z: real;
function Knap(m: integer): integer;
var i,space,max,maxi,t:integer;
begin
max:=0;
maxi:=0;
if D[M]=0 then
begin
for i:=0 to n-1 do
begin
space:=M-items[i].size;
if space>=0 then
begin
t:=knap(space)+items[i].val;
if t>max then
Begin
max:=t;
maxi:=i;
end;
end;
end;
D[M]:=max;
D1[M]:=maxi;
end;
knap:=D[m];
end;
begin
h:=gettickCount();
items[0].size:=3; items[0].val:=4;
items[1].size:=4; items[1].val:=5;
items[2].size:=5; items[2].val:=10;
items[3].size:=6; items[3].val:=12;
items[4].size:=7; items[4].val:=13;
g:=gettickCount();
z:=g-h;
writeln('Bpem9I ',z:5:3);
writeln(a]);
readln;
end.

balepa (2006-12-05 13:01:00) [21]

> Плохиш © (05.12.06 12:58) [18]
>
> > Andrey__ (05.12.06 12:53) [17]
> > Если у вас компилируется этот код, плиз скиньте мне на
> почту
>
> Ну у меня компилируется, с учётом [8].
> Чего тебе на почту скинуть, swap-файл?

Лучше сразу копию всего(-х) винта(-ов) :))

balepa (2006-12-05 12:59:00) [22]
Andrey__ (05.12.06 12:53) [17]
Мастера, мне очень надо. Когда пытаюсь компилировать в Delphi у меня пишет: Expected ':' but '=' found

В каком месте ?

Плохиш (2006-12-05 12:58:00) [23]

> Andrey__ (05.12.06 12:53) [17]
> Если у вас компилируется этот код, плиз скиньте мне на почту

Ну у меня компилируется, с учётом [8].
Чего тебе на почту скинуть, swap-файл?

Andrey__ (2006-12-05 12:53:00) [24]
Мастера, мне очень надо. Когда пытаюсь компилировать в Delphi у меня пишет: Expected ':' but '=' found

Если у вас компилируется этот код, плиз скиньте мне на почту. Буду очень признателен. Writeln,readlen - можете выключить, главное сама функция.

iXT (2006-12-05 12:52:00) [25]
Интересно, куда он этот код (в Delphi) вставил, когда компилил?

Плохиш (2006-12-05 12:37:00) [26]

> Anatoly Podgoretsky © (05.12.06 12:35) [14]
> > Плохиш (05.12.2006 12:30:10) [10]
>
> А зачем тогда обсуждать посторонний код?

А это диверсант, у которого задание попалить у всех телепаторы.

Anatoly Podgoretsky (2006-12-05 12:35:00) [27]
> Плохиш (05.12.2006 12:30:10) [10]

А зачем тогда обсуждать посторонний код?

iXT (2006-12-05 12:35:00) [28]

> Andrey__ (05.12.06 12:02) [4]

Я же не просто так спросил!

Для начала, я посоветовал бы Вам разобраться что есть Delphi и что есть Pascal. После этого попробуйте ответить на мой вопрос еще раз.

P.S.
Байты Вы свои драгоценные тратите, не потому что Вам надо перевести, а потому что не знаете как это сделать. Я даже не сомневаюся в том что именно Вам это совсем и не надо. Просто как большенство людей, задающих тут подобные вопросы Вы ожидали, что за Вас все сделают и дадут Вам "перевод с русского на английский".

clickmaker (2006-12-05 12:32:00) [29]

> const N=19; {размер то ли рюкзака то ли шмотки}

кстати, полезная прога, да?. Оптимизирует размещения шмоток в рюкзаке. Это я вам как турист-любитель говорю )

Рамиль (2006-12-05 12:31:00) [30]
А ты в Delphi пытаешься скомпилить?

Плохиш (2006-12-05 12:30:00) [31]

> clickmaker © (05.12.06 12:11) [7]

> Anatoly Podgoretsky © (05.12.06 12:24) [9]

Не обращайте внимания, он код прям здесь набирал. А код, в котором ищет ошибку может кардинально отличаться ;-)

Anatoly Podgoretsky (2006-12-05 12:24:00) [32]
> Andrey__ (05.12.2006 12:06:06) [6]

> пишет типа (:) but (=) found типа того.

Не верю.

Elen (2006-12-05 12:13:00) [33]

> Andrey__

У меня все компилится. А как ты компилишь через F9 или через 9F? и что это writeln(a]);?

clickmaker (2006-12-05 12:11:00) [34]

> [6] Andrey__ (05.12.06 12:06)

неправда. Там в другом месте ошибка

Andrey__ (2006-12-05 12:06:00) [35]
Type Item=record
size, val, items:integer

вот этот момент не компилится, пишет типа (:) but (=) found типа того.

ЮЮ (2006-12-05 12:04:00) [36]
Тебя обманули. Подсунули чисто Дельфийское приложение под видом паскалевского.

Andrey__ (2006-12-05 12:02:00) [37]

> А зачем?

Надо очень, было бы ненадо не залез бы в инет и не тратил бы кб-ты.

clickmaker (2006-12-05 12:01:00) [38]

> Andrey__ (05.12.06 11:54)

а в Дельфи какой язык?

ЮЮ (2006-12-05 12:01:00) [39]
И где здесь перевод требуется?

iXT (2006-12-05 11:56:00) [40]
А зачем?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »