Fréquence d'un entier en pascal
Résolu
mimou
-
mimou -
mimou -
Bonjour,
:ecrire un programme pascal intitule (frequence) qui permet de remplir un tableau t par n chiffres entre 0 et 9 (2<=n<=10),puis de chercher et afficher la fréquence de chaque chiffre du tableau t
aideeez moi svp
:ecrire un programme pascal intitule (frequence) qui permet de remplir un tableau t par n chiffres entre 0 et 9 (2<=n<=10),puis de chercher et afficher la fréquence de chaque chiffre du tableau t
aideeez moi svp
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é :) -
procedure remplir(var t:tab, var n :entier)
var i :entier ;
repeter
ecrire("donner n"); lire (n) ;
jusqu'à (n>=2) et (n<=10)
pour i de 1 a n faire
ecrire ("donner les elements d tableau"); lire(t[i]);
fin pour
fin remplir
