Conversion fonction Javascript vers Delphi

Version imprimable

SVP j'ai un bout de code que veux traduire en Delphi si quelqu'un peu m'aider merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function target_sum(a, k, x) {
    if (k == a.length) return [];
    if (a[k] == x) {
        return [ [a[k]] ];
    } else {
        var s = target_sum(a, k + 1, x); // not using a[k]
        var t = target_sum(a, k + 1, x - a[k]); // using a[k]
        for (var i = 0; i < t.length; ++i) {
            t[i].unshift(a[k]); // a[k] is part of the solution
            s.push(t[i]); // merge t[] into s[]
        }
        return s;
    }
}
var s = target_sum([1, 4, 5, 2, 7, 8, -3, -5, -6, 9, 3, -7, -1, 5, 6], 0, 0);
for (var i = 0; i < s.length; ++i)
    console.log(s[i].join(","));

13/04/2021, 01h31
Paul TOTH

ce n'est pas intéressant comme question.

si j'ai bien compris, la question est d'obtenir les liste des nombres issues de la liste données dont la somme vaux 0

exemple 4 + 2 - 6
ou encore 3 - 7 - 1 + 5

javascript trouve 436 expressions
13/04/2021, 01h54
JustMe

Mais si vous pouvez m'aider ça sera sympa de votre part
13/04/2021, 09h12
Paul TOTH

quel est le but ?
13/04/2021, 21h18
JustMe

C'est pour un lettrage de compte ou je dois éliminer les lignes avec une somme des débits et crédits = 0. Merci de votre soucis.

la traduction est presque directe, il faut juste typer les variables, j'utilise ici la déclaration en ligne de Sydney

Code:

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
 
function target_sum(a: TArray<Integer>; k, x: Integer): TArray<TArray<Integer>>;
begin
  if k = Length(a) then
    Exit(nil);
  if a[k] = x then
  begin
    SetLength(Result, 1, 1); // Result := [a[k]]; n'est pas supporté
    Result[0, 0] := a[k];
    Exit;
  end;
  var s := target_sum(a, k + 1, x);
  var t := target_sum(a, k + 1, x - a[k]);
  for var i := 0 to Length(t) - 1 do
  begin
    Insert(a[k], t[i], 0); // unshift
    Insert(t[i], s, Length(s)); // push
  end;
  Result := s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  var s := target_sum([1, 4, 5, 2, 7, 8, -3, -5, -6, 9, 3, -7, -1, 5, 6], 0, 0);
  AllocConsole;
  for var i := 0 to Length(s) - 1 do
  begin
    for var j := 0 to Length(s[i]) - 1 do
    begin
      Write(s[i, j], ',');
    end;
    WriteLn;
  end;
end;

14/04/2021, 09h00
SergioMaster

Bonjour,

il doit certainement y avoir un moyen sans passer par ce genre de fonction.
Qui dit lettrage dit certainement lecture dans une table quelconque une interrogation par SQL est-elle possible ?
De toute façon il y a chargement des données pour la pièce comptable donc certainement récupération des montants débits et crédits.
je ne vois pas pourquoi mettre ces montant dans un "target_sum"
14/04/2021, 21h28
JustMe

Justement après plusieurs élimination par requêtes SQL des débits et crédits égaux il me reste des lignes ou je n'ai pas pû éliminer qui représentent une somme de débits avec une autre somme de crédits. C'est pour cela que j'ai eu recours à une telle fonction.
15/04/2021, 05h21
JustMe

Merci infiniment

Vous me sauvez la vie merci infiniment