Паскаль. Поиск оптимального решения

[TuuuZ]

очень нужна помощь в создании программы. Поиск оптимального решения.
Выдернул из книги Вирта - АЛГОРИТМЫ + СТРУКТУРЫ ДАННЫХ=ПРОГРАММЫ
2 изображения программы, но они у меня не пашут. Помогите.
http://img842.imageshack.us/i/68875650.png/
http://img199.imageshack.us/i/63412210.png/

[Serge_Bliznykov]

а вы их ещё в тетрадку ручкой перепишите и сфотографируйте.
Тогда Вам помочь ещё проще будет!!!!!


p.s. программы выкладывайте либо как вложения,
либо постите текст прямо в сообщение, используя тэг
[СODE]... тут текст программы... [/CODE] (кнопка с # )

Кроме того, что значит - "не пашут" ?!
Пишут на экран "отказываюсь работать для Tuuz" ?! или что?

и ещё, а какую задачу эти программы должны решать - Вы разрешаете нам сами догадаться?!

[TuuuZ]

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

[Utkin]

Дык, версия паскаля другая. Напиши, то что ты написал и напиши что эта прога должна делать.

[TuuuZ]

переписывал с книги

program selection (input,output);
{поиск оптимальной выборки объектов при ограничениях}
const n = 10;
type index = 1 ..n;
object = record v,w: integer end ;
var i: index;
a: array [index] of object;
limw, totv, maxv: integer;
wl, w2, w3: integer;
s, opts: set of index;
z: array [boolean] of char;
procedure try(i: index; tw,av: integer);
var av1: integer;
begin {попытка включения объекта i}
if tw + a[i] .w ? limw then
begin s:= s +[i];
if i < n then try(l+1, tw+a[i].w; av) else
if av > maxv then
begin maxv :=av; opts:= s 
end ;
s := s - [i]
end ;
{попытка исключения объекта i}
  av1:= av - a[i]v;
if av 1 > maxv then
begin if i < n then try (i+1, tw, av1) else 
begin maxv := av 1; opts : s
end
end
end [try] ;
begin totv := 0;
for i :=1 to n do
with a[i] do
begin read(w,v); totv:= totv + v
 end ;
read(w1,w2,w3);
z[true] :='*'; 
z[false] ' ';
write(' WEIGHT ');
for i:=1 to n do write (a[i].w: 4);
wriletn; write (' VALUE ');
for i:= 1 to n do 
write (a[i].v:4);
writeln;
repeat limw := w1; maxv := 0; s:=[]; opts [ ];
try(1,0,totv);
 write(limw);
for i : = 1 to n do write('  ' ,z[i in opts]);
writeln; w1 := w1 + w2
until w1 > w3
end

Программа 3.7. Оптимальная выборка.

[Utkin]

Процедуру try точно надо будет переименовать . И переменную object тоже, современные Паскали любят эти слова. Для начала какой у Вас компилятор/среда разработки? Турбо Паскакаль ?

z: array [boolean] of char;

boolean тоже, ИМХО, нужно исправить.

z[true] :='*';
z[false] ' ';

И здесь тоже.