fréquence d'un entier en pascal Résolu/Fermé

Question

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

hooda · Answer

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

LeHtitem · Answer

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é :)

Fréquence d'un entier en pascal

2 réponses

Discussions similaires