Algorithme

Fermé
imdifrent Messages postés 12 Date d'inscription dimanche 3 mai 2015 Statut Membre Dernière intervention 25 avril 2017 - 3 mai 2015 à 13:42
Bonjour,
As que cette algorithme(calcule le nombre d'occurrence de zéro dans une liste de 10 entier dans ça partie information un tableau de50 entier) est correcte ?
Algorithme Exo;
Déclaration
type tab:tableau de 50 entier;
liste=^élément
élément=enregistrement
info:tab;
suiv:^liste;
fin;


variable x,l:liste; i,j,r,s:entier;

fonction calcule(l1:lista)
déclaration variable co:entier;
début
co:=0;
pouri=1à50faire
si(x^.[i]=0)alors
co++;
finpour
calcule:=co;
fin;



début(algo)
L:=nil;
pouri=1à10faire
alouer(x);
pourj=1à50faire
lire(x^.[j]);
finpour
x^.[i]:=l;
l:=x;
finpour

i:=1;
s:=0;


pouri=1à10faire
r:=calcule(l);
s:=r+s;
finpour;

si(s!=0)alors
ecrire("le nombre doccurrence de zéro est",s);
sinon
ecrire("pas de zéro");


fin