| TD NO 04 | |
|
+71oudia moh modta nounou(saiad a.e.k) lahouel aicha haddar meriem siham louati Bakreti amina Bachir Elezaar Faiza habis wafaa maghnia meddah Belbachir fatima coucou oueld coucou lalia marroki maissour abdala benklouz zakaria bachir bouiadjera kouider-aissa fatiha soumia marouf mebarek amine DERMECHE KARIMA DAOUD HINDA hachelaf hayet messaoudi ali berrezkhami nabil benchendikh mohamed bouzidi nabila fadel mohamed20 KREIRI AKILA KRICHICHE BENACER BOUZID cherif_nawal azzedine aicha touir youcef MEDDAH AMINE fatima abbou Hattab Miloud Benalioua Yahya zoubida CHERFAOUI wiam daadoua zinedine dahdoubi larabi*maamar Bouziane Mohamed Benhalima fatima Bendref Belkacem kacher haroual chenine afif nouredine Cherifi Mohammed Amine AZZEMOU DJAKMINE ABDELFATEH idjri kheira Sakhi Boutaina Benguendouz Abdelkrim BILAL**saadia hachmie rahmoun ahlem belakred sidahmed Righi kheira guendouz mansour boussekine.sihem kara zahia mekki amaria youcef benzineb talhi sara mekki daouadji ahmed87 slimani abdelhakim réda dahmane bouabdellah kheira Abderrahmane fatima zohra Beladjal Kheira Admin 75 participants |
|
Auteur | Message |
---|
fatima abbou
Messages : 41 Points : 62 Réputation : 0 Date d'inscription : 16/01/2010 Localisation : mostaganem
| Sujet: Re: TD NO 04 Lun 10 Mai - 9:21 | |
| | |
|
| |
KRICHICHE
Messages : 32 Points : 38 Réputation : 0 Date d'inscription : 05/05/2010
| Sujet: Re: TD NO 04 Lun 10 Mai - 14:22 | |
| | |
|
| |
Hattab Miloud
Messages : 35 Points : 42 Réputation : 0 Date d'inscription : 06/05/2010
| Sujet: Re: TD NO 04 Lun 10 Mai - 18:45 | |
| hattab miloud G5 JE MECORECT MD1 | |
|
| |
touir youcef
Messages : 21 Points : 25 Réputation : 0 Date d'inscription : 09/02/2010
| Sujet: Re: TD NO 04 Lun 10 Mai - 20:04 | |
| slt prof jesper que vs allé bien merci - Admin a écrit:
Fiche TD N°4
1.EXERCICE 01 : Affichage et entrée 1 – Ecrire une procédure lire(var T:Tablo; var n:Integer) qui permet à l'utilisateur d'entrer le nombre n d'éléments ainsi que les éléments de T. 2 - Ecrire une procédure afficher(T:Tablo; n:Integer) qui affiche à l'écran les "n" premiers éléments du tableau T. (soigner la présentation à l'écran en affichant les entiers sur 8 caractères) . 3 - Ecrire un programme utilisant les procédures Lire et afficher.
EXERCICE 02: Recherche d'un élément dans un tableau 1.Ecrire la fonction nb(x:Integer; T:Tablo; n:Integer):Integer qui indique combien de fois x apparait parmi les "n" premiers éléments du tableau T . 2.Ecrire la fonction rang(x:Integer; T:Tablo; n:Integer):Integer qui cherche la première occurence de x parmi les "n" premiers éléments du tableau T et renvoie son indice en cas de succès ou 0 en cas d'échec. 3.Ecrire un programme utilisant les fonctions nb et rang.
EXERCICE 03 : Recherche du maximum. Premier tri 1.Ecrire la fonction rangmax(T:Tablo; n:Integer):Integer qui renvoie l'indice du plus grand des "n" premiers éléments du tableau T. 2.Ecrire la procédure change(var T:Tablo; i,j:Integer) qui échange les éléments d'indices i et j du tableau T. 3.Pour trier les "n" premiers éléments du tableau T on recherche son plus grand élément T[k], on échange T[k] et T[n] et il ne reste plus qu'à trier les n-1 éléments restants. Ecrire la procédure tri(var T:tablo; n:Integer) faisant ce tri.
EXERCICE 04 : Ecrire une procédure permettant de déterminer si un nombre est premier. Elle comportera deux arguments : le nombre à examiner, un indicateur booléen précisant si ce nombre est premier ou non.
EXERCICE 05 : Ecrire la procédure précédente sous forme de fonction.
EXERCICE 06 : Ecrire une fonction calculant la norme d’un vecteur à 3 composantes réelles.
EXERCICE 07 : Ecrire la fonction précédente sous formes d’une procédure.
EXERCICE 08 : Ecrire une fonction calculant le produit vectoriel de deux vecteurs à 3 composantes réelles.
SOLUTION TD NO 04
1.EXERCICE 01 : Affichage et entrée Fait par : safer fatima zohra groupe 08
program td04ex1; type indice=1..10; tablo=array[indice]of real; var TT:tablo; I:indice; M:integer; procedure lire(var T:tablo; var n :integer); BEGIN Read(N) for I:=1 to N do Read(T[I] ); End; procedure afficher (T:tablo;n:integer); BEGIN for I:=1 to N do writeln(T[I]:8:2); End; BEGIN lire(TT,M); afficher(TT,M); END.
T[1] T[2] T[3] I N T[1] T[2] T[3] N TT[1] TT[2] TT[3] 1 M 2 3 1 3 2 3 1 2 3 3 4 1 2 3 4
ecran _ _ _ _ 2.00 _ _ _ _ 3.00 _ _ _ _ 1.00 | |
|
| |
haroual
Messages : 24 Points : 27 Réputation : 0 Date d'inscription : 28/01/2010 Age : 34 Localisation : mostaganem
| Sujet: slt je ss pleine forme pr les examains et vous!!!! Lun 10 Mai - 20:34 | |
| - Admin a écrit:
Fiche TD N°4 fesez du sport vous santez bien!
1.EXERCICE 01 : Affichage et entrée 1 – Ecrire une procédure lire(var T:Tablo; var n:Integer) qui permet à l'utilisateur d'entrer le nombre n d'éléments ainsi que les éléments de T. 2 - Ecrire une procédure afficher(T:Tablo; n:Integer) qui affiche à l'écran les "n" premiers éléments du tableau T. (soigner la présentation à l'écran en affichant les entiers sur 8 caractères) . 3 - Ecrire un programme utilisant les procédures Lire et afficher.
EXERCICE 02: Recherche d'un élément dans un tableau 1.Ecrire la fonction nb(x:Integer; T:Tablo; n:Integer):Integer qui indique combien de fois x apparait parmi les "n" premiers éléments du tableau T . 2.Ecrire la fonction rang(x:Integer; T:Tablo; n:Integer):Integer qui cherche la première occurence de x parmi les "n" premiers éléments du tableau T et renvoie son indice en cas de succès ou 0 en cas d'échec. 3.Ecrire un programme utilisant les fonctions nb et rang.
EXERCICE 03 : Recherche du maximum. Premier tri 1.Ecrire la fonction rangmax(T:Tablo; n:Integer):Integer qui renvoie l'indice du plus grand des "n" premiers éléments du tableau T. 2.Ecrire la procédure change(var T:Tablo; i,j:Integer) qui échange les éléments d'indices i et j du tableau T. 3.Pour trier les "n" premiers éléments du tableau T on recherche son plus grand élément T[k], on échange T[k] et T[n] et il ne reste plus qu'à trier les n-1 éléments restants. Ecrire la procédure tri(var T:tablo; n:Integer) faisant ce tri.
EXERCICE 04 : Ecrire une procédure permettant de déterminer si un nombre est premier. Elle comportera deux arguments : le nombre à examiner, un indicateur booléen précisant si ce nombre est premier ou non.
EXERCICE 05 : Ecrire la procédure précédente sous forme de fonction.
EXERCICE 06 : Ecrire une fonction calculant la norme d’un vecteur à 3 composantes réelles.
EXERCICE 07 : Ecrire la fonction précédente sous formes d’une procédure.
EXERCICE 08 : Ecrire une fonction calculant le produit vectoriel de deux vecteurs à 3 composantes réelles.
SOLUTION TD NO 04
1.EXERCICE 01 : Affichage et entrée Fait par : safer fatima zohra groupe 08
program td04ex1; type indice=1..10; tablo=array[indice]of real; var TT:tablo; I:indice; M:integer; procedure lire(var T:tablo; var n :integer); BEGIN Read(N) for I:=1 to N do Read(T[I] ); End; procedure afficher (T:tablo;n:integer); BEGIN for I:=1 to N do writeln(T[I]:8:2); End; BEGIN lire(TT,M); afficher(TT,M); END.
T[1] T[2] T[3] I N T[1] T[2] T[3] N TT[1] TT[2] TT[3] 1 M 2 3 1 3 2 3 1 2 3 3 4 1 2 3 4
ecran _ _ _ _ 2.00 _ _ _ _ 3.00 _ _ _ _ 1.00 | |
|
| |
haroual
Messages : 24 Points : 27 Réputation : 0 Date d'inscription : 28/01/2010 Age : 34 Localisation : mostaganem
| Sujet: Re: TD NO 04 Lun 10 Mai - 20:40 | |
| C MOI BONNE NUIT | |
|
| |
KREIRI AKILA
Messages : 85 Points : 118 Réputation : 3 Date d'inscription : 09/12/2009 Age : 39 Localisation : mostaganem
| Sujet: slt Lun 10 Mai - 22:28 | |
| | |
|
| |
zinedine dahdoubi
Messages : 18 Points : 58 Réputation : 0 Date d'inscription : 06/03/2010 Age : 33 Localisation : hassi mameche mostaganem
| Sujet: Re: TD NO 04 Lun 10 Mai - 22:53 | |
| | |
|
| |
zinedine dahdoubi
Messages : 18 Points : 58 Réputation : 0 Date d'inscription : 06/03/2010 Age : 33 Localisation : hassi mameche mostaganem
| Sujet: Re: TD NO 04 Lun 10 Mai - 22:54 | |
| | |
|
| |
zinedine dahdoubi
Messages : 18 Points : 58 Réputation : 0 Date d'inscription : 06/03/2010 Age : 33 Localisation : hassi mameche mostaganem
| Sujet: Re: TD NO 04 Lun 10 Mai - 22:57 | |
| | |
|
| |
mohamed20
Messages : 35 Points : 40 Réputation : 0 Date d'inscription : 11/04/2010
| Sujet: Re: TD NO 04 Mar 11 Mai - 23:49 | |
| | |
|
| |
larabi*maamar
Messages : 97 Points : 127 Réputation : 0 Date d'inscription : 17/12/2009 Age : 54 Localisation : algerie. mostaganem
| Sujet: salam alikom Mer 12 Mai - 11:33 | |
| | |
|
| |
nabila fadel
Messages : 13 Points : 13 Réputation : 0 Date d'inscription : 17/04/2010
| Sujet: Re: TD NO 04 Mer 12 Mai - 13:15 | |
| | |
|
| |
BENACER BOUZID
Messages : 19 Points : 20 Réputation : 0 Date d'inscription : 25/04/2010
| Sujet: SLT Mer 12 Mai - 20:52 | |
| SLT MON PROF SAVA C BOUZID BENACER G 02 | |
|
| |
bouzidi
Messages : 9 Points : 13 Réputation : 0 Date d'inscription : 14/12/2009
| Sujet: slt Mer 12 Mai - 21:26 | |
| | |
|
| |
KRICHICHE
Messages : 32 Points : 38 Réputation : 0 Date d'inscription : 05/05/2010
| Sujet: Re: TD NO 04 Ven 14 Mai - 14:21 | |
| bonjour mon prof c krichiche ahmad group 5 et merci bye | |
|
| |
Hattab Miloud
Messages : 35 Points : 42 Réputation : 0 Date d'inscription : 06/05/2010
| Sujet: Re: TD NO 04 Ven 14 Mai - 18:58 | |
| slt cava c hattab miloud group 05 et merci bye..... | |
|
| |
amine!!! Invité
| Sujet: Re: TD NO 04 Sam 15 Mai - 0:52 | |
| cc salam 3likom cabadarahmen amine group 1 ok et merci mon prof bn8 |
|
| |
larbi.. Invité
| Sujet: Re: TD NO 04 Sam 15 Mai - 16:28 | |
| salam 3likom cava mon prof c larbi sal3a group 07 et merci bye |
|
| |
Benalioua Yahya
Messages : 71 Points : 139 Réputation : 1 Date d'inscription : 28/01/2010
| Sujet: Re: TD NO 04 Sam 15 Mai - 18:30 | |
| | |
|
| |
amine . Invité
| Sujet: Re: TD NO 04 Lun 17 Mai - 0:20 | |
| cc salam 3likom mon prof c encor abdarahmen amine group alor cava mon prof ..... |
|
| |
benchendikh mohamed
Messages : 117 Points : 122 Réputation : 0 Date d'inscription : 04/02/2010 Age : 50 Localisation : MOSTAGENEM
| Sujet: bonne jour Lun 17 Mai - 9:41 | |
| | |
|
| |
Hattab Miloud
Messages : 35 Points : 42 Réputation : 0 Date d'inscription : 06/05/2010
| Sujet: Re: TD NO 04 Lun 17 Mai - 15:18 | |
| sala cava mon prof c hattab toujour et merci pour le cit a+ ..........bye | |
|
| |
amine.: Invité
| Sujet: Re: TD NO 04 Lun 17 Mai - 15:19 | |
| salam 3likom les amisc abdarahmen amine ok mon prof et merci .......a+ |
|
| |
KRICHICHE
Messages : 32 Points : 38 Réputation : 0 Date d'inscription : 05/05/2010
| Sujet: Re: TD NO 04 Lun 17 Mai - 15:21 | |
| salam 3likom alor kach jdid avec les èxamain .......a+ | |
|
| |
Contenu sponsorisé
| Sujet: Re: TD NO 04 | |
| |
|
| |
| TD NO 04 | |
|