Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Prof : FENNI Salah Lycée Ibn Rochd – La Chebba ©® 1992 Corrigés Exercices En Tu

Prof : FENNI Salah Lycée Ibn Rochd – La Chebba ©® 1992 Corrigés Exercices En Turbo Pascal Corrigés exercices en Turbo Pascal FENNI SALAH ©® 1992 Page 2 LES STRUCTURES SIMPLES Exercice 4 [ V ] Readln (A) ; [ F ] Readln ('A') ; [ F ] Readln (A+B) ; [ F ] Readln (45) ; [ F ] Readln ('A =', A); [ F ] Readln (Nom) ; [ F ] Readln (Test) ; [ F ] Readln (Jour) ; [ F ] Writeln (Jour) ; [ V ] Writeln ('A = ', A) ; [ F ] Writeln (A:6:2) ; [ V ] Writeln (45) ; [ V ] Writeln (5 mod 7 div 2) ; [ F ] Writeln (Nom[2]) ; [ V ] Writeln (A+B, Nom, Test) ; Exercice 5 Exercice 6 0) Début Sortie_Inverse 1) Ecrire ("A = "), Lire (A) 2) Ecrire ("B = "), Lire (B) 3) Ecrire ("C = "), Lire(C) 4) Ecrire (C, " ", B, " ", A) 5) Fin Sortie_Inverse 0) Début Cylindre 1) Ecrire ("Donner le rayon : "), Lire(R) 2) Ecrire ('Donner la hauteur : "), Lire (H) 2) V  PI*R*R*H 3) Ecrire ("Volume = ", V) 4) Fin Cylindre Exercice 7 Exercice 8 0) Début Surface_rectangle 1) Ecrire ("Largeur = "), Lire (la) 2) Ecrire ("Longueur = "), Lire (lo) 3) S la * lo 4) Ecrire ("La surface du rectangle dont la longueur mesure ", lo, " m et la largeur mesure ", la," m, a une surface égale à ", s," mètres carrés.") 5) Fin Surface_rectangle 0) Début Piscine 1) Ecrire ("Donner les dimensions de la piscine"), Lire (LO, LA, PR) 2) V  LO*LA*PR 3) EAU  V*1000 4) Ecrire ("Le volume = ", V) 5) Ecrire ("Quantité d'eau = ", EAU, " litres") 6) Fin Piscine Exercice 9 Exercice 10 0) Début Aire_Trapeze 1) Ecrire ("Donner les dimensions du trapèze "), Lire (H, B1, B2) 2) S H*(B1 + B2) 3) Ecrire ("La surface = ", S) 4) Fin Aire_trapeze 0) Début Permut 1) Lire (A, B) 2) AUX  A 3) A  B 4) B  AUX 5) Ecrire ("La nouvelle valeur de A est : ", A) 6) Ecrire ("La nouvelle valeur de B est : ", B) 7) Fin Permut Exercice 11 Exercice 12 0) Début Permut_Circulaire 1) Lire (A, B, C) 2) AUX  A 3) A  C 4) C  B 5) B  AUX 6) Ecrire (A, " ", B, " ", C) 7) Fin Permut_Circulaire 0) Début Permut 1) Lire (X, Y) 2) X  X+Y 3) Y  X-Y 4) X  X-Y 5) Ecrire (X, " ", Y) 6) Fin Permut Exercice 13 Exercice 14 0) Début Division 1) Ecrire ("A = "), Lire (A) 2) Ecrire ("B = "), Lire (B) 3) Q  A div B 4) R  A mod B 5) Ecrire ("Le quotient est ", q, " et le reste est ", r) 6) Fin Division 0) Début Temperature 1) Ecrire ("Donner une température en °C : "), Lire (D) 2) F  9/5 * D + 32 3) Ecrire (D, " °C = ", F, " Fahrenheit") 4) Fin Temperature Exercice 15 Exercice 16 0) Début Mile_marin 1) Ecrire ("Donner le nombre de Km : "), Lire (km) 2) Mm  km/1.852 3) Ecrire (km," km = ", mm," miles marins") 4) Fin mile_marin 0) Début Conversion 1) Ecrire ("Nombres de bits = "), Lire (bit) 2) Octet  bit/8 3) Kilo  octet/1024 4) Mega  kilo/1024 5) Giga  mega/1024 6) Ecrire (octet, kilo, mega, giga) 7) Fin conversion Exercice 17 Exercice 19 0) Début Temps 1) Ecrire ("Donner une durée en secondes "), Lire (T) 2) H  T div 3600 3) M  (T div 60) mod 60 4) S  T mod 60 5) Ecrire (H, " : ", M, " : ", S) 6) Fin Temps 0) Début Interet_Simple 1) Ecrire ("Donner la somme initiale : "), Lire (SOM) 2) Ecrire ("Donner le taux d'intérêt : "), Lire (TAUX) 3) INTERET  (SOM * TAUX/100) * 5 4) VA  SOM + INTERET 5) Ecrire ("Après 5 ans la somme sera = ", VA) 6) Fin Interet_Simple Corrigés exercices en Turbo Pascal FENNI SALAH ©® 1992 Page 3 Exercice 20 Exercice 21 0) Début Consommation 1) Ecrire ("Nombre de Km parcouru : "), Lire(Y) 2) Ecrire ("Nombre de litres d'essence : "), Lire (L) 3) TAUX  (L*100)/Y 4) Ecrire ("Taux de consommation est = ", TAUX, " %") 5) Fin Consommation 0) Début Résistance 1) Ecrire ("Donner les trois résistances : "), Lire (R1, R2, R3) 2) Rser  R1 + R2 + R3 3) Rpar  1/ (1/R1 + 1/R2 + 1/R3) 4) Ecrire ("Résistance résultante sérielle : ", Rser) 5) Ecrire ("Résistance résultante parallèle : ", Rpar) 6) Fin Résistance Exercice 18 Exercice 22 0) Début Futur 1) Ecrire ("Donner un verbe du 1er groupe : "), Lire (verbe) 2) Ecrire ("Je ", verbe, "ai") 3) Ecrire ("Tu ", verbe, "as") 4) Ecrire ("Il ou elle ", verbe, "a") 5) Ecrire ("Nous ", verbe, "ons") 6) Ecrire ("Vous ", verbe, "ez") 7) Ecrire ("Ils ou elles ", verbe, "ont") 8) Fin Futur 0) Début NBR_3 1) Ecrire ("Saisir un entier formé de 3 chiffres non nuls : "), Lire (N) 2) c  n div 100 3) d  n mod 100 div 10 4) u  n mod 10 5) r1  c*100+u*10+d 6) r2  u*100+d*10+c 7) r3  u*100+c*10+d 8) r4  d*100+c*10+u 9) r5  d*100+u*10+c 10) Ecrire (N, r1, r2, r3, r4, r5) 11) Fin NBR_3 Exercice 23 Exercice 24 0) Début Sup_Inf 1) Ecrire ("A = "), Lire (A) 2) Ecrire ("B = "), Lire (B) 3) SUP  (A + B + abs (A - B)) div 2 4) INF  (A + B - abs (A - B)) div 2 5) Ecrire ("Valeur sup = ", SUP, " Valeur inf = ", INF) 6) Fin Sup_Inf 0) Début IMAGE 1) Ecrire ("Entrer la largeur de l'image: "), Lire(l) 2) Ecrire ("Entrer la hauteur de l'image: "), Lire (h) 3) Ecrire ("Entrer la résolution de l'image: "), Lire(r) 4) Ecrire ("Entrer le codage de l'image: "), Lire(c) 5) n  l*r*h*r 6) p  (n*c) / (1024*1024) 8) Ecrire (n,p) 9) Fin IMAGE Exercice 25 Exercice 26 Program Date; Uses Wincrt, Windos; Var A, M, J : Word; Begin Write ('Entrez L''année : ');Readln (A); Write ('Entrez Le Mois : '); Readln (M); Write ('Entrez Le Jour : '); Readln (J); Setdate (A,M,J); End. Program Distance ; Uses Wincrt ; Var Xa, Ya, Xb, Yb : Integer ; Dist : Real ; Begin Writeln ('Entrez Les Coordonnées Du Point A : Xa,Ya '); Readln (Xa,Ya) ; Writeln ('Entrez Les Coordonnées Du Point B : Xb,Yb '); Readln (Xb, Yb); Dist := Sqrt (Sqr(Xa-Xb)+Sqr(Ya-Yb)); Writeln ('La Distance Entre A Et B Est ', Dist :2 :2); End. Exercice 27 Exercice 27 Program Prix_TTC ; Uses Wincrt ; Var Pnet, Tva : Integer; Pttc : Real; Begin Writeln('Entrez Le Prix Net De L''article : '); Readln(Pnet); Writeln('Entrez Le Taux De La Tva (En %) : ' ); Readln(Tva); Pttc := Pnet+Pnet*Tva/100; Writeln('Le Prix Ttc Est ', Pttc :2 :2); End. Program Prix_NET ; Uses Wincrt ; Var Tva : Integer; Pttc,Pnet : Real; Begin Writeln('Entrez Le Prix Ttc De L''article : '); Readln(Pttc); Writeln('Entrez Le Taux De La Tva (En %) : ' ); Readln(Tva); Pnet := Pttc*100/(100+Tva); Writeln('Le Prix Net Est ', Pnet :2 :2); End. Corrigés exercices en Turbo Pascal FENNI SALAH ©® 1992 Page 4 LES STRUCTURES CONDITIONNELLES Exercice 1 Program Min2 ; Uses Wincrt ; Var a, b, min : Integer ; Begin Writeln ('Saisir deux entiers : ') ; Readln (a, b) ; IF a<b Then min := a Else min := b ; Writeln ('La plus petite valeur est : ', min) ; End. Exercice 2 Program Max3 ; Uses Wincrt ; Var a, b, c, maxi : Integer ; Begin Writeln ('Saisir trois entiers : ') ; Readln (a, b, c) ; maxi := a ; IF b>maxi Then maxi := b ; IF c>maxi Then maxi := c ; Writeln ('La plus grande valeur est : ', maxi) ; End. Exercice 3 Program Racine ; Uses Wincrt ; Var x : Real ; Begin Write ('Saisir un réel ') ; Readln (x) ; IF x >= 0 Then Writeln ('Racine carrée ', x,' = ', sqrt(x)) Else Writeln ('Donnée incorrecte') ; End. Exercice 4 Program Aire_Triangle ; Uses Wincrt ; Var a, b, c, S, P : Real; Begin Writeln ('Donner 3 réels positifs :'); Readln (a, b, c); IF (a+b=c) Or (a+c=b) Or (b+c=a) Then Writeln ('Il ne s''agit pas d''un triangle') Else Begin P := (a+b+c)/2; S := sqrt (P*(P-a)*(P-b)*(P-c)); End; Writeln ('Aire de triangle = ', S:4:2); End. Exercice 6 Program Parite ; Uses Wincrt ; Var N uploads/Litterature/ corrige-exercices-pascal-fenni-2018p 1 .pdf