[Elka123]

добрый вечер. Такой вопрос, почему он умножает только на 0 в моей последовательности, ведь должна либо 0 либо 1 подставлять

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

program Project12;   {$APPTYPE CONSOLE}      uses SysUtils; var C:array of integer; Type IndexType = 1..5; Mas = array [IndexType] of integer; var dim:1..5; a:Mas; N,i,v,g,j,l,t,r,sum,m, k: integer;     begin   try   sum:=0; j:=0;   begin repeat   writeln('vvodim sami (1) ili random (2) ?'); readln(N) until (N<>1) or (N<>2); if N=1 then for i:= 1 to 5 do begin write(' vvedite A[ ' , i , ' ] = ' ); readln(a[i]) end else begin randomize; for i:= 1 to 5 do a[i]:= - 0 + Random(71); end; writeln; writeln('otv a'); m:=0; for i:=low(IndexType) to high(IndexType) do begin write(a[i]:5,' '); m :=m+a[i]; end; writeln; end; SetLength(C,m); write(' vvedite k ' ); readln(k);   C[i]:=0;   for i:=0 to k do for v := 0 to 1 do for g := 0 to 1 do for l := 0 to 1 do for t := 0 to 1 do for r := 0 to 1 do   while C[sum] <> k do begin sum:=a[1]*v+a[2]*g+a[3]*l+a[4]*t+a[5]*r; C[sum] := C[sum] + 1; if sum=k then writeln (' posledovatelnost ',a[1], ' *' , v , '+ ',a[2],' * ', g ,'+ ',a[3], ' * ', l ,'+ ',a[4], ' * ', t ,'+ ',a[5], ' * ',r,' = ',sum) end; writeln (' kol-vo predstavlenii ');  for i := 0 to 5 do writeln ('ves ',k,' mojem poluchit sum sposobom ',sum );   except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; readln; end.

Админ: Пользуемся тегами для оформления кода!