Гири, Составить нужный вес Опции

[Zigfried]

Пусть имеется 10 гирь весом а1,а2,...,а10.Обозначим через Ск число способов,которыми можно составить вес к,
то есть Ск-это число решений уравнения а1х1+а2х2+...+а10х10=к,где Хi может принимать значения 0 или 1
(i=1,...,10).Получите с1,с2,...,с10.
Помогите написать пожалуйста))))

Сообщение отредактировано: Zigfried - 4.12.2009 0:35

[Zigfried]

циклы можно разумеется оператором case можно пользоваться если он тут нужен но единственное нельзя через go to решать препод тогда пристрелит на месте)

[Lapp]

циклы можно разумеется

Хорошо, пусть будет с циклами. Вот тебе решение (см. ниже), но в нем я специально испортил кое-что - одно выражение заменил на другое (кстати, замена получилась значимая). Сумеешь исправить - хорошо, нет - приходи, попробуем разобраться..

но единственное нельзя через go to решать препод тогда пристрелит на месте)

За кого ты меня принимаешь?? я еще подойду и контрольный в голову сделаю..

const
  n= 10;
  w: array[1..n]of word= (1,2,3,4,5,6,7,8,9,0);

var
  c: array[1..n+1]of word;
  i,s,w0: word;


begin
  Write('Available weights are: ');
  for i:=1 to n do if w[i]>0 then Write(w[i],' ');
  Write('Type in the weight to meet: ');
  for i:=1 to n+1 do c[i]:=0;
  ReadLn(w0);

  for i:=1 to n+1 do c[i]:=0;
  repeat
    Inc(c[1]);
    for i:=1 to n do if c[i]=2 then begin
      c[i]:=0;
      Inc(c[i+1])
    end;
    s:=0;
    for i:=1 to n do s:=s+c[i]*w[i];
    if s=w0 then begin
      for i:=1 to n do if (c[i]>0)and(w[i]>0) then Write(w[i],' ');
      WriteLn
    end
  until false;
  ReadLn
end.

Успехов!