Fréquence d'un entier en pascal
Résolu
mimou
-
mimou -
mimou -
A voir également:
- Fréquence d'un entier en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Fréquence du processeur - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Frequence 4g - Guide
2 réponses
Bah voila l'algo tu dois d'abord trier le tableau que t'a remplis apres quoi ça deviens plus facile ... (tri croissant)
Program Rép;
Var T:array[1..10] of integer; I:integer;
Begin
Writeln('Entrer les differentes valeurs comprises entre 0 et 9 :')
For i:=1 to 10
Do Read(T[i]);
{Fin du remplissage du tableau}
i:=1
While i<=10
do x:=T[i];
bool:=true;
while bool=True
do begin
if x=T[i] then frq:=frq+1 bool:=true
else bool:=false;
i:=i+1;
end;
end;
End.
Bah voila normalement c'est ça mais il contient surment qlq erreurs je ne l'ai pas vérifié :)
Program Rép;
Var T:array[1..10] of integer; I:integer;
Begin
Writeln('Entrer les differentes valeurs comprises entre 0 et 9 :')
For i:=1 to 10
Do Read(T[i]);
{Fin du remplissage du tableau}
i:=1
While i<=10
do x:=T[i];
bool:=true;
while bool=True
do begin
if x=T[i] then frq:=frq+1 bool:=true
else bool:=false;
i:=i+1;
end;
end;
End.
Bah voila normalement c'est ça mais il contient surment qlq erreurs je ne l'ai pas vérifié :)
LeHtitem
G oublier de déclarer le 'x' comme étant entier !
mimou
Merciii :)