sc2mosta
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
sc2mosta

LE LANGAGE DE PROGRAMMATION PASCAL .
 
AccueilPortailGalerieDernières imagesRechercherS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
» NOTE EMD1 + EMD2+ DS + RAT. 2010-2011
TD NO 04 - Page 8 Icon_minitimeDim 18 Sep - 13:58 par maachou mohamed

» TD NO 02
TD NO 04 - Page 8 Icon_minitimeMer 14 Sep - 18:12 par BENYAMINA MOHAMED RABEH

» cours numéro 03
TD NO 04 - Page 8 Icon_minitimeMer 14 Sep - 15:19 par belhocine faycal.g1

» cours numéro 02
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 01
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 06
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 04
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» pascal en arabe
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» cours numéro 08
TD NO 04 - Page 8 Icon_minitimeMar 13 Sep - 18:17 par BENYAMINA MOHAMED RABEH

Marque-page social
Conservez et partagez l’adresse de sc2mosta sur votre site de social bookmarking
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Forum
Partenaires
Forum gratuit



Tchat Blablaland
Le Deal du moment :
Google Pixel 7 5G – Smartphone 6,3″ OLED ...
Voir le deal
316 €

 

 TD NO 04

Aller en bas 
+71
oudia 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
Aller à la page : Précédent  1 ... 5 ... 7, 8, 9 ... 14  Suivant
AuteurMessage
fatima abbou

fatima abbou


Messages : 41
Points : 62
Réputation : 0
Date d'inscription : 16/01/2010
Localisation : mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 9:21

bjr
Revenir en haut Aller en bas
KRICHICHE




Messages : 32
Points : 38
Réputation : 0
Date d'inscription : 05/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 14:22

سلام عليكم
Revenir en haut Aller en bas
Hattab Miloud




Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 18:45

hattab miloud G5 JE MECORECT MD1
Revenir en haut Aller en bas
touir youcef




Messages : 21
Points : 25
Réputation : 0
Date d'inscription : 09/02/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 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
cheers
Revenir en haut Aller en bas
haroual




Messages : 24
Points : 27
Réputation : 0
Date d'inscription : 28/01/2010
Age : 34
Localisation : mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: slt je ss pleine forme pr les examains et vous!!!!   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 20:34

Admin a écrit:
Fiche TD N°4

cheers Basketball 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
Revenir en haut Aller en bas
haroual




Messages : 24
Points : 27
Réputation : 0
Date d'inscription : 28/01/2010
Age : 34
Localisation : mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 20:40

C MOI lol! BONNE NUIT Sleep
Revenir en haut Aller en bas
KREIRI AKILA

KREIRI AKILA


Messages : 85
Points : 118
Réputation : 3
Date d'inscription : 09/12/2009
Age : 39
Localisation : mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: slt   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 22:28

slt a tout sava alor bn8
Revenir en haut Aller en bas
zinedine dahdoubi

zinedine dahdoubi


Messages : 18
Points : 58
Réputation : 0
Date d'inscription : 06/03/2010
Age : 33
Localisation : hassi mameche mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 22:53

salut a tous
Revenir en haut Aller en bas
zinedine dahdoubi

zinedine dahdoubi


Messages : 18
Points : 58
Réputation : 0
Date d'inscription : 06/03/2010
Age : 33
Localisation : hassi mameche mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 22:54

bonne soirée
Revenir en haut Aller en bas
zinedine dahdoubi

zinedine dahdoubi


Messages : 18
Points : 58
Réputation : 0
Date d'inscription : 06/03/2010
Age : 33
Localisation : hassi mameche mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 10 Mai - 22:57

bonne nuit finalement.
Revenir en haut Aller en bas
mohamed20




Messages : 35
Points : 40
Réputation : 0
Date d'inscription : 11/04/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeMar 11 Mai - 23:49

salam alaikoum
Revenir en haut Aller en bas
larabi*maamar

larabi*maamar


Messages : 97
Points : 127
Réputation : 0
Date d'inscription : 17/12/2009
Age : 54
Localisation : algerie. mostaganem

TD NO 04 - Page 8 Empty
MessageSujet: salam alikom   TD NO 04 - Page 8 Icon_minitimeMer 12 Mai - 11:33

السلام عليكم يا أهل العلم lol! lol! lol!
Revenir en haut Aller en bas
nabila fadel




Messages : 13
Points : 13
Réputation : 0
Date d'inscription : 17/04/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeMer 12 Mai - 13:15

bjr sava
Revenir en haut Aller en bas
BENACER BOUZID




Messages : 19
Points : 20
Réputation : 0
Date d'inscription : 25/04/2010

TD NO 04 - Page 8 Empty
MessageSujet: SLT   TD NO 04 - Page 8 Icon_minitimeMer 12 Mai - 20:52

SLT MON PROF SAVA C BOUZID BENACER G 02
Revenir en haut Aller en bas
bouzidi




Messages : 9
Points : 13
Réputation : 0
Date d'inscription : 14/12/2009

TD NO 04 - Page 8 Empty
MessageSujet: slt   TD NO 04 - Page 8 Icon_minitimeMer 12 Mai - 21:26

slt a tout
Revenir en haut Aller en bas
KRICHICHE




Messages : 32
Points : 38
Réputation : 0
Date d'inscription : 05/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeVen 14 Mai - 14:21

bonjour mon prof c krichiche ahmad group 5 et merci bye
Revenir en haut Aller en bas
Hattab Miloud




Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeVen 14 Mai - 18:58

slt cava c hattab miloud group 05 et merci bye.....
Revenir en haut Aller en bas
amine!!!
Invité




TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeSam 15 Mai - 0:52

cc salam 3likom cabadarahmen amine group 1 ok et merci mon prof bn8
Revenir en haut Aller en bas
larbi..
Invité




TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeSam 15 Mai - 16:28

salam 3likom cava mon prof c larbi sal3a group 07 et merci bye
Revenir en haut Aller en bas
Benalioua Yahya

Benalioua Yahya


Messages : 71
Points : 139
Réputation : 1
Date d'inscription : 28/01/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeSam 15 Mai - 18:30

bonne journée...
Revenir en haut Aller en bas
amine .
Invité




TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 17 Mai - 0:20

cc salam 3likom mon prof c encor abdarahmen amine group alor cava mon prof .....
Revenir en haut Aller en bas
benchendikh mohamed




Messages : 117
Points : 122
Réputation : 0
Date d'inscription : 04/02/2010
Age : 50
Localisation : MOSTAGENEM

TD NO 04 - Page 8 Empty
MessageSujet: bonne jour   TD NO 04 - Page 8 Icon_minitimeLun 17 Mai - 9:41

bonne journee prof lol! lol! lol! lol!
Revenir en haut Aller en bas
Hattab Miloud




Messages : 35
Points : 42
Réputation : 0
Date d'inscription : 06/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 17 Mai - 15:18

sala cava mon prof c hattab toujour et merci pour le cit a+ ..........bye
Revenir en haut Aller en bas
amine.:
Invité




TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 17 Mai - 15:19

salam 3likom les amisc abdarahmen amine ok mon prof et merci .......a+
Revenir en haut Aller en bas
KRICHICHE




Messages : 32
Points : 38
Réputation : 0
Date d'inscription : 05/05/2010

TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitimeLun 17 Mai - 15:21

salam 3likom alor kach jdid avec les èxamain .......a+
Revenir en haut Aller en bas
Contenu sponsorisé





TD NO 04 - Page 8 Empty
MessageSujet: Re: TD NO 04   TD NO 04 - Page 8 Icon_minitime

Revenir en haut Aller en bas
 
TD NO 04
Revenir en haut 
Page 8 sur 14Aller à la page : Précédent  1 ... 5 ... 7, 8, 9 ... 14  Suivant

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
sc2mosta :: TD et SUJET,CORRECTION ET NOTES EMD-
Sauter vers:  
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser