TD NO 01

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.

MERCI BEAUCOUP MR LE PROFESSEUR POUR LE COUR D4AUJOURD'hui je l'ai bien compris

pardant monsieur pour le retard et merci pour les information

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

SLM

je ss boukhoudmi zoubida G 03

saha 3idèk prof ammour,kol 3am wnta é ton famille b 1000khir.

slm je ss daadoua wiam GN 4

bonjour prof.merci pour ce cite. je ss daadoua wiam GN4

slam prof

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 .

pardon la page Sc2mosta.Sosblog.fr.Blog le langage programation pascal

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 .

salem mon professeur.jesper ke vous allez bien. demain nchalahh

salam

BON NUIT

slt tt le monde et merci prof

bon soir prof; je ss dermeche karima du groupe numéro 04 et je vous remerciiiii bcp pr cette solution qui etait vraiment claireeee

salam sava mon professeur

استاد اريد الحل لهدل التمرين
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

bon soir ;;;;je ss dermeche karima gp nm 04

walit salam

bjr mon prof et merci pour la reponce merci

merci monsieur le professeur pour les cours et les td

salam merci