Algorithme
Bonjour, svp je suis un débutant en algorithme donc je veux la correction de l'exercice :
" T1 et T2 deux tableaux contenant respectivement n et m entiers postifs non nuls.
Ecrire un algo qui permet:
- la saisie des deux tablo T1 et T2.
-la saisie de l'indice d'un élément p de T1.
-l'affichage à l'ecran de tous les diviseurs de p figurant dans T2.
voila :
algorithme recherche-diviseurs
var n , m :entier
début
procedure saisie(t1:tableau[1..n]; t2:tableau[1..m])d'entiers
var i ; j : entier
début
pour i de 1 à n faire
ecrire ( 'entrer un entier :' i)
lire (t1[i])
pour j de1 à m faire
ecrire ( 'entrer un entier :' j)
lire(t2[j])
fin
procedure saisie-indice(p:entiet)
var i: entier
debut
pour i de 1 à n faire
p<----i
t1[i]<----i
lire ('l''indice de l''element',p,'de t1 est :' p)
fpour
fin
procedure affichage(1:tableau[1..n]; t2:tableau[1..m])d'entiers
var i ; j , p: entier
début
pour i de 1 à n et j de1 à m faire
p<----i
t1[i]<----i
si t1[i]modt2[j]=0 alors
ecrire(' les diviseurs de',p,' sont :' t2[j] )
fin
fin algorithme.
" T1 et T2 deux tableaux contenant respectivement n et m entiers postifs non nuls.
Ecrire un algo qui permet:
- la saisie des deux tablo T1 et T2.
-la saisie de l'indice d'un élément p de T1.
-l'affichage à l'ecran de tous les diviseurs de p figurant dans T2.
voila :
algorithme recherche-diviseurs
var n , m :entier
début
procedure saisie(t1:tableau[1..n]; t2:tableau[1..m])d'entiers
var i ; j : entier
début
pour i de 1 à n faire
ecrire ( 'entrer un entier :' i)
lire (t1[i])
pour j de1 à m faire
ecrire ( 'entrer un entier :' j)
lire(t2[j])
fin
procedure saisie-indice(p:entiet)
var i: entier
debut
pour i de 1 à n faire
p<----i
t1[i]<----i
lire ('l''indice de l''element',p,'de t1 est :' p)
fpour
fin
procedure affichage(1:tableau[1..n]; t2:tableau[1..m])d'entiers
var i ; j , p: entier
début
pour i de 1 à n et j de1 à m faire
p<----i
t1[i]<----i
si t1[i]modt2[j]=0 alors
ecrire(' les diviseurs de',p,' sont :' t2[j] )
fin
fin algorithme.
2 réponses
-
=> cherche un peu, propsoe ce que tu trouve, et ensuite on verra pour corriger les eventuels erreur, c'est pas en demandant une correction que tu vas apprendre l'algorithmique !
-
bonjour, je ne sais pas quel syntaxe pour votre algo utilisez-vous mais je vous donne l'idée:
pour i de 1 à n faire
{ecrire("donner l'element ", i);
lire(t1[i])
}
pour j de 1 à mfaire
{ecrire("donner l'element ", j);
lire(t2[j])
}
ecrire ("entrer l'element recherché");
lire(p);
i=0;
tantque (i<=n et t[i]<> p)
{
i++;
}
ecrire (p,"se trouve à la case :",i)
NB: n'oulie pas la declaration
