Exsrs
achref
-
grad -
grad -
Bonjour,
je suis aussi un éleve de bac info et je veux des probs en pascal.
et j'ai un exercice si difficile que je veux connaitre sa sol° svp:
je veux faire une teste dans un tab pour que chaque entier doit existe exactement deux fois dans le tab .
je suis aussi un éleve de bac info et je veux des probs en pascal.
et j'ai un exercice si difficile que je veux connaitre sa sol° svp:
je veux faire une teste dans un tab pour que chaque entier doit existe exactement deux fois dans le tab .
Configuration: Windows XP Internet Explorer 6.0
1 réponse
pour les exercices tu cliques ici
Pour le problème,voici le programme:
Program test;
Uses wincrt ;
Var i,j,dim,:integer;
A,t:array[1..100] of integer;
Label lab1,lab2;
Begin
Write('Donnez le nombre de cellules dans votre tableau');
read(dim);
For i:=1 to dim do
Begin
read A[i];
For j:=1 to dim do
Begin
If A[i]=A[j] then t[i]:=t[i]+1
Else goto lab1;
Lab1:
End;
If t[i]<>2 then write(A[i],’n’’existe pas 2 fois’)
Else goto lab2;
Lab2:
End;
End.
Pour le problème,voici le programme:
Program test;
Uses wincrt ;
Var i,j,dim,:integer;
A,t:array[1..100] of integer;
Label lab1,lab2;
Begin
Write('Donnez le nombre de cellules dans votre tableau');
read(dim);
For i:=1 to dim do
Begin
read A[i];
For j:=1 to dim do
Begin
If A[i]=A[j] then t[i]:=t[i]+1
Else goto lab1;
Lab1:
End;
If t[i]<>2 then write(A[i],’n’’existe pas 2 fois’)
Else goto lab2;
Lab2:
End;
End.
