hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Recherche de Diviseurs
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 19 Fév - 22:20 (2010)    Sujet du message: Recherche de Diviseurs Répondre en citant

PublicitéSupprimer les publicités ?
Énoncé de l'exercice
On dispose de deux tableaux T1 et T2 contenant respectivement n et m entiers positifs et non nuls.
On désire chercher dans T2 tous les diviseurs d'un élément de tab T1.
Exemple :
T1 :
23
15
10
277
300
34
T2 :
3
6
5
1

si indice=2 alors 3,5 et 1 seront affichés à l'écran.
Ecrire un programme Pascal qui permet de saisir les deux tableaux T1 et T2 et l'indice d'un élément p de T1 puis d'afficher à l'écran tous les diviseurs de p figurant dans T2.
Solution en Pascal
program diviseurs;
uses wincrt;
type tab=array[1..100]of integer;
var T1,T2:tab;
i,n,indice,m:integer;
{on utilise la procédure saisie_tab(T,n) pour saisir un tableau T et sa dimension n}
procedure saisie_tab(var T:tab;var n:integer);
var i:integer;
begin
write('Donner la dimension de votre tableau :');
read(n);
write('Saisir maintenant les valeurs du tableau qui sont positifs et non nul :');
for i:=1 to n do
repeat
read(T);
until(T>0);
end;

{on utilise la fonction divise(a,b)
pour savoir si b divise a le type de la fonction divise est un boolean}

function divise(a,b:integer):boolean;
begin
divise:=a mod b =0;
end;

{on utilise la procédure afficher(T,p,n) pour afficher les diviseurs d'un entier p dans le tableau T de dimension n}

procedure afficher(T:tab;p,n:integer);
var i:integer;
begin
writeln('*** les diviseurs de ',p,' dans le tableau T2 sont ****');
for i:=1 to n do
if(divise(p,T)) then writeln(T);
end;


{programme principal :
1 : saisir le tableau "T1" et sa dimension "n"
2 : saisir le tableau "T2" et sa dimension "m"
3 : saisir l'indice "indice"
4 : afficher les diviseurs de l'élément de "T1" d'indice
"indice" dans le tableau "T2"}

begin
saisie_tab(T1,n);
saisie_tab(T2,m);
write('** Donner l''indice de l''élément de T1 :');
read(indice);
afficher(T2,T1[indice],m);
end.

TÉLÉCHARGER L'EXERCICE


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:19 (2010)    Sujet du message: Recherche de Diviseurs Répondre en citant

Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 04:51 (2016)    Sujet du message: Recherche de Diviseurs

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation