sc2mosta

LE LANGAGE DE PROGRAMMATION PASCAL .
 
AccueilPortailCalendrierGalerieFAQRechercherMembresGroupesS'enregistrerConnexion
Rechercher
 
 

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

» TD NO 02
Mer 14 Sep - 18:12 par BENYAMINA MOHAMED RABEH

» cours numéro 03
Mer 14 Sep - 15:19 par belhocine faycal.g1

» cours numéro 02
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 01
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 06
Mar 13 Sep - 18:19 par BENYAMINA MOHAMED RABEH

» cours numéro 04
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» pascal en arabe
Mar 13 Sep - 18:18 par BENYAMINA MOHAMED RABEH

» cours numéro 08
Mar 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

Partagez | 
 

 TD NO 01

Aller en bas 
Aller à la page : 1, 2, 3  Suivant
AuteurMessage
Admin
Admin
avatar

Messages : 23
Points : 39
Réputation : 16
Date d'inscription : 15/03/2008
Age : 57
Localisation : MOSTAGANEM

MessageSujet: TD NO 01   Lun 24 Mar - 12:54

Fiche TD No 01


I. EXERCICES SUR LA SEQUENCE : !

Exercice n° 1:
Ecrire l'algorithme et le programme qui permet de :
Lire au clavier la longueur A et la largeur B d'un rectangle
Calculer et afficher le périmètre P et la surface S du rectangle.

Exercice n° 2:
Ecrire l'algorithme et le programme qui :
Lit au clavier le rayon R d'une sphère
Calcule et affiche l'aire S et le volume V de la sphère sachant que: S=4лR2, V=4/3лR3 , л=3,14159

Exercice n° 3 :
A l'aide d'un algorithme puis d'un programme, lire au clavier les longueurs des trois cotes a, b et c d'un triangle. Calculer et afficher le périmètre et l'aire du triangle.
Périmètre = P = a + b + c
Aire = S = ((p/2-a)(p/2-b)(p/2-c))1/2

Il. EXERCICES SUR L'ALTERNATIVE :

Exercice n° 4 : :
Ecrire l' algorithme et le programme qui calcule et affiche la valeur absolue val d'un nombre N.

Exercice n° 5:
Ecrire l' algorithme et le programme qui affiche si un nombre N lit au clavier est paire ou impaire.

Exercice n° 6 :
Ecrire l'algorithme et le programme qui permet de déterminer si un nombre A est divisible par B.

Exercice n° 7 :
Ecrire l'algorithme et le programme qui
Lit au clavier les coefficients A, B et C d'une équation de second degré (AX2+BX+C=O); .
Résoudre l'équation.

SOLUTION TD NO 01


Exercice N° 01 :

Algorithme :
DEBUT
A , B , P , S : REEL
LIRE (A)
LIRE (B)
P <-- (A + B)*2
S <-- A * B
AFFICHER(P)
AFFICHER (S)
FIN

Programme PASCAL

PROGRAM td01ex01;
VAR
A, B ,P , S : REAL;
BEGIN
READ(A);
READ(B);
P:=(A+B)*2;
S:=A*B;
WRITELN(P,S);
END.


Exercice N° 02 :

Algorithme :

DEBUT
R, S, V : REEL
PI <-- 3.14159
LIRE (R)
S <-- 4 * PI * R * R
V <-- 4/3 * PI * R * R * R
AFFICHER(S, V)
FIN

Programme PASCAL

PROGRAM Td01ex02 ;
CONST
PI = 3.14159;
VAR
R, S, V : REAL;
BEGIN
READ(R);
S := 4*PI*R*R;
V:=4/3*PI*R*R*R;
WRITELN(S,V);
END.


Exercice N° 03 :

Algorithme :

DEBUT
A, B, C, P, S : REEL
LIRE ( A,B,C)
P <-- A + B + C
S <--((P/2-A)*(P/2-B)*(P/2-C))
AFFICHER ( P , S )
FIN

Programme PASCAL

PROGRAM Td01ex03 ;
VAR
A, B, C, P, S : REAL;
BEGIN
READ(A,B,C);
P:=A+B+C;
S:=((P/2-A)*(P/2-B)*(P/2-C);
WRITELN(P,S);
END.


Exercice N° 04 :

Algorithme :

DEBUT
Val , N : ENTIER
LIRE ( N )
SI N >= 0 ALORS
Val <-- N
SINON
Val <-- -N
FINSI
AFFICHER (N,Val)
FIN

Programme PASCAL

PROGRAM Td01ex04 ;
VAR
Val,N :INTEGER ;
BEGIN
READ(N) ;
IF N>=0 THEN
Val :=N
ELSE
Val :=-N ;
WRITE(N,Val) ;
END.


Exercice N° 05 :

Algorithme :

DEBUT
N : ENTIER
LIRE ( N )
SI reste(N/2) = 0 ALORS
AFFICHER ( N est paire)
SINON
AFFICHER ( N est impaire)
FINSI
FIN

Programme PASCAL

PROGRAM Td01ex05 ;
VAR
N : INTEGER ;
BEGIN
READ(N) ;
IF N MOD 2 = 0 THEN
WRITE(N,’est paire’)
ELSE
WRITE(N,’est impaire’) ;
END.


Exercice N° 06 :

Algorithme :

DEBUT
A, B : ENTIER
LIRE ( A, B )
SI reste(A/B) = 0 ALORS
AFFICHER( A est divisible par B )
SINON
AFFICHER( A n’est pas divisible par B )
FINSI
FIN


Programme PASCAL

PROGRAM Td01ex06 ;
VAR
A,B :INTEGER ;
BEGIN
READ(A,B) ;
IF A MOD B = 0 THEN
Write(A,’est divisible par’,B)
ELSE
Write(A,’n’’est pas divisible par’,B) ;
END.


Exercice N° 07 :

Algorithme :

DEBUT
A, B, C : ENTIER
X1, X2 , Delta : REEL
LIRE (A,B,C)
Delta <-- B*B-4*A*C
SI Delta >= 0 ALORS
X1<-- (-B-SQRT(Delta))/2*A
X2<-- (-B+SQRT(Delta))/2*A
AFFICHER(X1,X2)
SINON
AFFICHER(Pas de solution)
FINSI
FIN

Programme PASCAL

PROGRAM Td01ex07
VAR
A,B,C : INTEGER ;
X1,X2,Delta : REAL;
BEGIN
READ(A,B,C);
Delta :=B*B-4*A*C;
IF Delta>=0 then
BEGIN
X1:=(-B-SQRT(Delta))/2*A;
X2:=(-B+SQRT(Delta))/2*A;
WRITE(X1,X2)
END
ELSE
WRITE(‘Pas de solution’) ;
END.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sc2mosta.forums-actifs.com
NAWEL AI
Invité



MessageSujet: Re: TD NO 01   Jeu 4 Déc - 0:48

MERCI BEAUCOUP MR LE PROFESSEUR POUR LE COUR D4AUJOURD'hui je l'ai bien compris
Revenir en haut Aller en bas
boussaid
Invité



MessageSujet: repandre   Jeu 4 Déc - 16:51

pardant monsieur pour le retard et merci pour les information
Revenir en haut Aller en bas
bengharnout tahar

avatar

Messages : 2
Points : 16
Réputation : 1
Date d'inscription : 19/11/2008
Localisation : mostaganem

MessageSujet: cours et exercices de pascal   Sam 6 Déc - 21:30

voici un tres bon site pour pascal et d'autre langage de programmation proposé par le prof du td
http://pascal.developpez.com/
il contien des cours en pascal ainsi des exercices ..
merci et saha 3idkom lol! study
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
+BELHADJ
Invité



MessageSujet: SLM   Mar 24 Nov - 17:22

SLM
Revenir en haut Aller en bas
boukhoud
Invité



MessageSujet: bon jour   Jeu 26 Nov - 11:12

je ss boukhoudmi zoubida G 03
Revenir en haut Aller en bas
belhadji
Invité



MessageSujet: slml   Lun 30 Nov - 19:26

saha 3idèk prof ammour,kol 3am wnta é ton famille b 1000khir.
Revenir en haut Aller en bas
wiam daa
Invité



MessageSujet: Re: TD NO 01   Mar 1 Déc - 0:42

slm je ss daadoua wiam GN 4
Revenir en haut Aller en bas
wiam daa
Invité



MessageSujet: Re: TD NO 01   Mer 2 Déc - 10:53

bonjour prof.merci pour ce cite. je ss daadoua wiam GN4
Revenir en haut Aller en bas
benslima
Invité



MessageSujet: présentation   Mar 8 Déc - 21:49

slam prof
Revenir en haut Aller en bas
benslima
Invité



MessageSujet: présentation   Mar 8 Déc - 21:56

salam prof ana aktar man mara dkhalt 3andek lakin machi f had la page fi page wahdokhra sc2.mosta.SoSblog.fr.Glog le langage programationpascale.w halit tamarin
je suis benslimane fatima zohra l'année 2sc GROUPE n°2 .
Revenir en haut Aller en bas
benslima
Invité



MessageSujet: p   Mar 8 Déc - 21:59

pardon la page Sc2mosta.Sosblog.fr.Blog le langage programation pascal
Revenir en haut Aller en bas
benslima
Invité



MessageSujet: présentation   Mar 8 Déc - 22:04

salam prof ana aktar man mara dkhalt 3andek lakin machi f had la page fi page wahdokhra sc2.mosta.SoSblog.fr.Glog le langage programationpascale.w halit tamarin
je suis benslimane fatima zohra l'année 2sc GROUPE n°2 .
Revenir en haut Aller en bas
KREIRI AKILA

avatar

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

MessageSujet: slt   Mer 9 Déc - 20:06

salem mon professeur.jesper ke vous allez bien. demain nchalahh
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
daadoua
Invité



MessageSujet: Re: TD NO 01   Jeu 10 Déc - 0:46

salam
Revenir en haut Aller en bas
DJEFFAL
Invité



MessageSujet: SALUT   Ven 11 Déc - 0:43

BON NUIT
Revenir en haut Aller en bas
boukhoud
Invité



MessageSujet: slt   Sam 12 Déc - 16:04

slt tt le monde et merci prof
Revenir en haut Aller en bas
//KARIMA
Invité



MessageSujet: salam   Sam 12 Déc - 19:57

bon soir prof; je ss dermeche karima du groupe numéro 04 et je vous remerciiiii bcp pr cette solution qui etait vraiment claireeee
Revenir en haut Aller en bas
KREIRI AKILA

avatar

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

MessageSujet: slt   Sam 12 Déc - 20:03

salam sava mon professeur
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
KREIRI AKILA

avatar

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

MessageSujet: salam   Jeu 17 Déc - 20:27

استاد اريد الحل لهدل التمرين
ECRIRE L'ALGORITHME ET LE PROGRAMME QUI LIT AU CLAVIER LES COEFFICIENT A,B ET C D'UNE éQUATION DE SECOND DEGRé
( AX2+BX+C=0)
RéSOUDRE L'éQUATION.
استاد x2 هي x اس 2 ok et merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
//karima
Invité



MessageSujet: salam   Ven 18 Déc - 18:08

bon soir ;;;;je ss dermeche karima gp nm 04
Revenir en haut Aller en bas
KREIRI AKILA

avatar

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

MessageSujet: salam   Ven 18 Déc - 22:14

walit salam
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
KREIRI AKILA

avatar

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

MessageSujet: bjr   Dim 20 Déc - 12:18

bjr mon prof et merci pour la reponce merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
larabi*maamar

avatar

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

MessageSujet: Merci MR le Professeur   Mer 23 Déc - 22:47

merci monsieur le professeur pour les cours et les td
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
KREIRI AKILA

avatar

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

MessageSujet: salam   Jeu 24 Déc - 21:05

salam merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: TD NO 01   

Revenir en haut Aller en bas
 
TD NO 01
Revenir en haut 
Page 1 sur 3Aller à la page : 1, 2, 3  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: