| | 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 |
|---|
larabi*maamar
Messages : 97
Points : 127
Réputation : 0
Date d'inscription : 17/12/2009
Age : 54
Localisation : algerie. mostaganem
| Sujet: SALAM ALIKOM  Mar 20 Avr - 15:25 | |
| | |
|
| | |
CHERFAOUI
Messages : 38
Points : 65
Réputation : 0
Date d'inscription : 12/03/2010
| | Sujet: Re: TD NO 04 Mar 20 Avr - 16:53 | |
| bon soir a tout............ss cherfaoui fouzia G03 | |
|
| | |
Bouziane Mohamed
Messages : 107
Points : 167
Réputation : 0
Date d'inscription : 15/01/2010
Age : 33
Localisation : Oued Rhiou
| | Sujet: Re: TD NO 04 Mar 20 Avr - 22:26 | |
| | |
|
| | |
Bouziane Mohamed
Messages : 107
Points : 167
Réputation : 0
Date d'inscription : 15/01/2010
Age : 33
Localisation : Oued Rhiou
| | Sujet: Re: TD NO 04 Mer 21 Avr - 21:27 | |
| | |
|
| | |
CHERFAOUI
Messages : 38
Points : 65
Réputation : 0
Date d'inscription : 12/03/2010
| | Sujet: Re: TD NO 04 Mer 21 Avr - 22:51 | |
| bon nuit..........cherfaoui fouzia G03 | |
|
| | |
salut
Invité
| | Sujet: bouaaza mostapha Jeu 22 Avr - 16:05 | |
| je ss bouaaza mostapha G03  |
|
| | |
CHERFAOUI
Messages : 38
Points : 65
Réputation : 0
Date d'inscription : 12/03/2010
| |
| | |
zoubida
Messages : 33
Points : 39
Réputation : 0
Date d'inscription : 25/11/2009
| | Sujet: Re: TD NO 04 Jeu 29 Avr - 18:04 | |
| slt c boukhoudmi zoubida GN3 | |
|
| | |
Benalioua Yahya
Messages : 71
Points : 139
Réputation : 1
Date d'inscription : 28/01/2010
| | Sujet: Re: TD NO 04 Dim 2 Mai - 20:10 | |
| salam 3likom kirakom dayrin sava!!! | |
|
| | |
haroual
Messages : 24
Points : 27
Réputation : 0
Date d'inscription : 28/01/2010
Age : 34
Localisation : mostaganem
| | Sujet: salam Dim 2 Mai - 20:22 | |
| | |
|
| | |
haroual
Messages : 24
Points : 27
Réputation : 0
Date d'inscription : 28/01/2010
Age : 34
Localisation : mostaganem
| | Sujet: Re: TD NO 04 Dim 2 Mai - 20:48 | |
| - Admin a écrit:
Fiche TD N°4
 slt monsieuèr le proffésseur jèsper que vouys allé b1.Béat Nuit
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 | |
|
| | |
Hattab Miloud
Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010
| | Sujet: Re: TD NO 04 Jeu 6 Mai - 13:19 | |
| | |
|
| | |
Hattab Miloud
Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010
| | Sujet: Re: TD NO 04 Jeu 6 Mai - 13:23 | |
| | |
|
| | |
AZZEMOU
Messages : 10
Points : 17
Réputation : 1
Date d'inscription : 31/01/2010
| | Sujet: Re: TD NO 04 Jeu 6 Mai - 20:55 | |
| | |
|
| | |
fatima abbou
Messages : 41
Points : 62
Réputation : 0
Date d'inscription : 16/01/2010
Localisation : mostaganem
| |
| | |
fatima abbou
Messages : 41
Points : 62
Réputation : 0
Date d'inscription : 16/01/2010
Localisation : mostaganem
| | Sujet: Re: TD NO 04 Jeu 6 Mai - 21:20 | |
| bon8..... | |
|
| | |
MEDDAH AMINE
Messages : 4
Points : 5
Réputation : 0
Date d'inscription : 07/05/2010
| | Sujet: Re: TD NO 04 Ven 7 Mai - 13:28 | |
| | |
|
| | |
touir youcef
Messages : 21
Points : 25
Réputation : 0
Date d'inscription : 09/02/2010
| | Sujet: Re: TD NO 04 Ven 7 Mai - 21:13 | |
| | |
|
| | |
azzedine aicha
Messages : 11
Points : 17
Réputation : 0
Date d'inscription : 08/02/2010
| | Sujet: Re: TD NO 04 Sam 8 Mai - 12:04 | |
| | |
|
| | |
azzedine aicha
Messages : 11
Points : 17
Réputation : 0
Date d'inscription : 08/02/2010
| | Sujet: Re: TD NO 04 Sam 8 Mai - 12:05 | |
| | |
|
| | |
cherif_nawal
Messages : 8
Points : 10
Réputation : 0
Date d'inscription : 08/05/2010
| | Sujet: Re: TD NO 04 Sam 8 Mai - 14:41 | |
| | |
|
| | |
Hattab Miloud
Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010
| | Sujet: Re: TD NO 04 Sam 8 Mai - 23:23 | |
| | |
|
| | |
BENACER BOUZID
Messages : 19
Points : 20
Réputation : 0
Date d'inscription : 25/04/2010
| | Sujet: salam Dim 9 Mai - 10:29 | |
| | |
|
| | |
BENACER BOUZID
Messages : 19
Points : 20
Réputation : 0
Date d'inscription : 25/04/2010
| | Sujet: slt Dim 9 Mai - 10:30 | |
| | |
|
| | |
Hattab Miloud
Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010
| | Sujet: Re: TD NO 04 Dim 9 Mai - 18:03 | |
| | |
|
| | |
Contenu sponsorisé
| | Sujet: Re: TD NO 04 | |
| |
|
| | |
| | TD NO 04 | |
|
cherfaoui fouzia G03
