Bonjour à tous,
Problème simple pas si simple à résoudre
Tab1 et Tab2 sont deux variables déclarées comme array of integer classés par valeurs ascendantes par la procédure :Je veux savoir si tous les entiers de tab2 appartiennent à tab1 et sinon lequel (ou lesquels) n'appartien(en)t pas à tab1 ? et dans ce dernier cas comment introduire le ou les entiers manquant dans tab1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure BubbleSort(var tabNote: array of Integer); var i,j: integer; temp: integer; begin for i := high(tabNote) downto low(tabNote) do for j := low(tabNote) to high(tabNote)-1 do if tabNote[j] >tabNote[j + 1] then begin temp := tabNote[j]; tabNote[j] := tabNote[j + 1]; tabNote[j + 1] := temp; end; end;
Quelqu'un aurait-il une idée si possible en code source ?
Merci à tous
Partager