algorithme Fermé

Question

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.

Configuration: Windows XP / Safari 534.30

sirinabb · Answer

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

periplasme · Answer

=> 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 !

Algorithme

2 réponses

Discussions similaires