A voir également:
- Remplir tabeau avec des valeurs distinct
- Organigramme a remplir word - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment remplir un document pdf - Guide
- Total distinct excel n'apparait pas - Forum Excel
- Excel liste de valeurs - Guide
1 réponse
program Distint;
const ArraySize = 10;
var T : Array[1 .. ArraySize] of Integer; //Or real type
Value : Integer; //Or real type
I, K : Integer;
Exists : Boolean;
begin
Write('1 Entrez un nombre ?. ');
Readln(T[1]); { La première valeur du tableau }
I := 2;
while I <= ArraySize do begin
Write(I, ' Entrez un nombre ?. ');
Readln(Value); { La valeur n'est pas rangée dans le tableau
avant la vérification }
K := 1;
Exists := False;
while K <= I - 1 do begin
if T[K] = Value then begin
Exists := True;
I := I - 1; { La vérification est positive on met
à jour le compteur de tableau }
WriteLn;
WriteLn('===>> Stop !. Cette valeur existe deja');
WriteLn;
Break; end // On quitte si une valeur existe
else // Sinon on continue la vérification
K := K + 1;
end;
if not Exists then
T[I] := Value; { Si la vérification est négative
on range la valeur dans le tableau à la case d'indice I }
I := I + 1;
end;
WriteLn;
WriteLn;
for I := 1 to ArraySize do
WriteLn(T[I]);
Readln;
{ TODO -oUser -cConsole Main : placez le code ici }
end.