Помогите перевести с Pascal на Delphi

← →
Andrey__ (2006-12-05 11:54) [0]

Всем привет ! И в Паскале и в Дельфи плохо шарю.. Погомите плиз. Заранее спасибо!

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.

← →
iXT (2006-12-05 11:56) [1]

А зачем?

← →
ЮЮ © (2006-12-05 12:01) [2]

И где здесь перевод требуется?

← →
clickmaker © (2006-12-05 12:01) [3]

> Andrey__ (05.12.06 11:54)

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

← →
Andrey__ (2006-12-05 12:02) [4]

> А зачем?

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

← →
ЮЮ © (2006-12-05 12:04) [5]

Тебя обманули. Подсунули чисто Дельфийское приложение под видом паскалевского.

← →
Andrey__ (2006-12-05 12:06) [6]

Type Item=record
size, val, items:integer

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

← →
clickmaker © (2006-12-05 12:11) [7]

> [6] Andrey__ (05.12.06 12:06)

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

← →
Elen © (2006-12-05 12:13) [8]

> Andrey__

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

← →
Anatoly Podgoretsky © (2006-12-05 12:24) [9]

> Andrey__ (05.12.2006 12:06:06) [6]

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

Не верю.

← →
Плохиш © (2006-12-05 12:30) [10]

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

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

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

← →
Рамиль © (2006-12-05 12:31) [11]

А ты в Delphi пытаешься скомпилить?

← →
clickmaker © (2006-12-05 12:32) [12]

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

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

← →
iXT (2006-12-05 12:35) [13]

> Andrey__ (05.12.06 12:02) [4]

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

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

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

← →
Anatoly Podgoretsky © (2006-12-05 12:35) [14]

> Плохиш (05.12.2006 12:30:10) [10]

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

← →
Плохиш © (2006-12-05 12:37) [15]

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

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

← →
iXT (2006-12-05 12:52) [16]

Интересно, куда он этот код (в Delphi) вставил, когда компилил?

← →
Andrey__ (2006-12-05 12:53) [17]

Мастера, мне очень надо. Когда пытаюсь компилировать в Delphi у меня пишет: Expected ":" but "=" found

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

← →
Плохиш © (2006-12-05 12:58) [18]

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

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

← →
balepa © (2006-12-05 12:59) [19]

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

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

← →
balepa © (2006-12-05 13:01) [20]

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

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

← →
from kz (2006-12-05 13:01) [21]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Item = record size,val,items:integer;
end;
type
TForm1 = class(TForm)
Button1: TButton;

private
{ Private declarations }
public
{ Public declarations }
end;

const N=19; {ðàçìåð òî ëè ðþêçàêà òî ëè øìîòêè}
const M=19; {ðàçìåð òî ëè ðþêçàêà òî ëè øìîòêè}

var
Form1: TForm1;

Items :array [0..N] of Item;
D :array [0..M] of integer;
D1:array [0..M] of integer;
a:integer;
h,g,z: real;

implementation

{$R *.dfm}
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;

end.

← →
clickmaker © (2006-12-05 13:02) [22]

> Если у вас компилируется этот код, плиз скиньте мне на почту

так тебе уже здесь сказали: компилится. Зачем в почту-то еще раз писать?

← →
iXT (2006-12-05 13:03) [23]

> Andrey__ (05.12.06 12:53) [17]
> Мастера, мне очень надо. Когда пытаюсь компилировать в Delphi
> у меня пишет: Expected ":" but "=" found
>
> Если у вас компилируется этот код, плиз скиньте мне на почту.
> Буду очень признателен. Writeln,readlen - можете выключить,
> главное сама функция.

Вот это номер:
"Вот код. Если у вас он работает скиньте его на мыло. :)"

Ты же его сам писал?

Я понтмаю, что очень надо. Поди зачет завтра.

Куда ты этот код вставлял?

← →
from kz (2006-12-05 13:03) [24]

Удалено модератором

← →
Думкин © (2006-12-05 13:04) [25]

> Button1: TButton;

А баттон кинул, чтобы оправдать что?

← →
Andrey__ (2006-12-05 13:07) [26]

Теперь все понял, ошибка была в самом простом)))

← →
clickmaker © (2006-12-05 13:08) [27]

> [25] Думкин © (05.12.06 13:04)

какая ж песня без баяна, какая ж форма без батона?

← →
from kz (2006-12-05 13:08) [28]

> А баттон кинул, чтобы оправдать что?

Это я так, забыл убрать))))

← →
iXT (2006-12-05 13:09) [29]

> from kz (05.12.06 13:01) [21]
> unit Unit1;

Теперь объясняй откуда это взялось, и куда program подевался, и причем тут TForm

← →
Andrey__ (2006-12-05 13:10) [30]

Эту функцию не я писал, я такую не смог бы написать сам. А проблема была в том, что лишнего добавил (End;) был лишний, и еще что-то...

← →
iXT (2006-12-05 13:11) [31]

> Эту функцию не я писал, я такую не смог бы написать сам

Это мы поняли еще с [0]

← →
iXT (2006-12-05 13:13) [32]

Кстати, а при чем тут TForm. В исходном тексте никаких форм не было. :)

← →
from kz (2006-12-05 13:14) [33]

Удалено модератором

> from kz (05.12.06 13:14) [33]
> 2 iXT
>
> Иди проспись... Может больше соображать будишь. Та функция
> которую он написал сам же, прекрасно компилируется в Delphi,

Вообще-то, код из [0] является консольным приложением делфи и прекрасно компилируется к тому же.

← →
iXT (2006-12-05 13:21) [35]

> Иди проспись... Может больше соображать будишь.

Я спал спасибочки
> Та функция которую он написал сам же, прекрасно компилируется
> в Delphi, я проверил чтобы удостоверится. Закинул откомпилированный
> код, чтобы он понял что не нужно ему высылать код на электронку

Так кто спорит с этим?

> Так в чем проблема?

Проблема в том, что он не сможет все это изложить перед строгим, "но справедливым" преподавателем, пока не разберется что он делает.

> Кстати, а при чем тут TForm. В исходном тексте никаких форм
> не было

Вот предположим, что он так и спросит, что на это скажет автор

← →
iXT (2006-12-05 13:22) [36]

> Вообще-то, код из [0] является консольным приложением делфи
> и прекрасно компилируется к тому же.

Вот и я про то!!!

← →
Andrey__ (2006-12-06 06:23) [37]

Привет Мастера ! Еще раз возвращаюсь к этой теме, сегодня хотел по пребывать использовать функцию Knap, таким образом:

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;

ShowMessage(IntToStr(Knap(19)));

Выходит ошибка, что Стек выходит за пределы (Stack Overflow)
Пожалуйста подскажите в чем ошибка и как ее исправить. Заранее благодарю.

> Пожалуйста подскажите в чем ошибка

В коде видимо. Точнее трудно сказать.

> Andrey__

Э-Э а в консольке разве можно рулить ShowMessage?

← →
iXT (2006-12-06 09:30) [40]

> Elen © (06.12.06 07:52) [39]

Сомневаюсь я что он с консолькой. Скорее скатал по чистую [21]

> Andrey__ (06.12.06 06:23) [37]

Уважаемый. Как можно ответить на вопрос, когда вы даже не удосужились указать место в котором возникает ошибка?

А вообще на подобное принято получать ответы вроде "F8 тебе поможет"

Помогите перевести с Pascal на Delphi Найти похожие ветки