Remerciez-le!

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

Ecrire un algorithme qui lit un nombre entier N, calcule et affiche la factorie

Ecrire un algorithme qui lit un nombre entier N, calcule et affiche la factorielle de N. • Program Factorielle; Var N,I,S:Integer; Begin Write(‘Donner N:’); Readln(N); S:=1; For I:=2 To N Do S:=S*I; Writeln(S) End. Program Factorielle; Var N,I,S:Integer; Begin Write(‘Donner N: ‘); Readln(N); S:=1;I:=2; While (I<=N) Do Begin S:=S*I; I:=I+1 End; Writeln(S) END. Ecrire un algorithme qui lit un nombre N. Ensuite il lit N nombres et affiche le nombre le plus grand. • Program PG; Var N, X, I, Max:Integer; Begin Write(‘Donner N:’);Readln(N); Write(‘Donner Valeur Nr‘,1); Readln(Max); For I:=2 TO N Do Begin Write(‘Donner Valeur Nr‘,I); Readln(X); IF X>Max Then Max:=X; End; Writeln(‘La plus grande: ‘,Max) End. 5 128 36 15 19 370 28 57 370 Ecrire un algorithme qui lit un nombre N. Ensuite il lit N nombres et affiche les nombres (plus grand et plus petit). • Program PG; Var N, X, I, Max,Min:Integer; Begin Write(‘Donner N:’);Readln(N); Write(‘Donner Valeur Nr‘,1); Readln(Max); Min:=Max; For I:=2 TO N Do Begin Write(‘Donner Valeur Nr‘,I); Readln(X); IF X>Max Then Max:=X Else IF X<Min Then Min:=X; End; Writeln(Min,Max) End. 5 128 36 15 19 370 28 57 5 370 Ecrire un algorithme qui joue le rôle d’une calculatrice sur des nombres. Il lit soit des chiffres soit des opérateurs (*,-,+) jusqu’à la saisie de =. Il affiche à la fin le résultat. Utiliser la fonction conversion d’un seul caractère en un entier. • Program CALC; Var C:Char; X,R:Integer; Begin R:=0; Write(‘Donner Opération’);Readln(C); While C<>’=‘ DO Begin Write(‘Donner Valeur:’);Readln(X); Case C Of ‘+’:R:=R+X; ‘-’:R:=R-X; ‘*’:R:=R*X; END; Write(‘Donner Opération’);Readln(C); End; Writeln(‘Résultat ‘,R) End. 4*5  (0+4)*5 Td3 EXO2 • Algorithme Lecture; Variable C:caractere; Debut Répéter Ecrire(‘Donner A, B ou C); Lire(C); Jusqu’à (C=‘A’)Ou (C=‘B’)Ou (C=‘C’); Fin. Td3 EXO2 • Algorithme Lecture; Variable C:caractere; Debut Ecrire(‘Donner A, B ou C); Lire(C); Tant que (C<>‘A’) Et (C<>‘B’) Et (C<>‘C’) Faire Ecrire(‘Réponse incorrecte, Veuillez ressaisir A, B ou C’); Lire(C); FinFaire; Fin. TD3 EXo5 • PROGRAM PUISSANCE; Var R,I,N:Integer; Begin Write(‘Donner N: ‘);Readln(N); R:=1; For I:=1 To N Do R:=R*2; Writeln(R) End. TD3 EXo5 N>0 • PROGRAM FACTORIELLE; Var R,I,N:Integer; Begin Write(‘Donner N: ‘);Readln(N); R:=1; For I:=2 To N Do R:=R*I; Writeln(R) End. TD3 EXO7 N>0 • PROGRAM MAXIMUM; Var MAX,I,N,V:Integer; Begin Write(‘Donner N: ‘);Readln(N); Write(‘Donner valeur: ‘,1);Readln(Max); For I:=2 To N Do Begin Write(‘Donner valeur: ‘,I);Readln(V); IF V>MAX Then MAX:=V; End; Writeln(MAX) End. TD3 EXO8 N>0 • PROGRAM MINMAX; Var MIN,MAX,I,N,V:Integer; Begin Write(‘Donner N: ‘);Readln(N); Write(‘Donner valeur: ‘,1);Readln(Max); Min:=Max; For I:=2 To N Do Begin Write(‘Donner valeur: ‘,I);Readln(V); IF V>MAX Then MAX:=V ELSE IF V<MIN Then MIN:=V; End; Writeln(MIN,MAX) End. TD3 EXO6 • Algorithme Somme; Var S,I,N:Entiers; Debut Lire(N); S0; Pour I de 1 jusqu’à N Faire SS+2*(I-1)+1 FinFaire Ecrire(S) Fin. Fibonacci TD3 Exo10 • Algorithme Fib; Variables A,B,C,I,N:Entiers; Debut Ecrire(‘Donner N’);Lire(N); A0; B1; Pour I=2 à N Faire CA+B; AB; BC FinFaire; Ecrite(C) Fin. A B C I 0 1 1 1 1 2 1 2 2 3 2 3 3 4 TD4 Exo1 • Program Som; Var S,I:Integer; Begin S:=0; For I:=10 To 30 Do S:=S+I End; Writeln(‘Somme: ‘,S) End. Program Som; Var S,I:Integer; Begin S:=0; I:=10; Repeat S:=S+I; I=I+1 Until I>30; Writeln(‘Somme: ‘,S) End. Program Som; Var S,I:Integer; Begin S:=0; I:=10; While I<=30 Do Begin S:=S+I; I=I+1 End; Writeln(‘Somme: ‘,S) End. TD4 Eo2 Program Jour; Var N:Integer; Begin Write(‘Donner N :’); readln(N); Case (N Mod 7) Of 0: Write(‘Mercredi’); 1: Write(‘Jeudi’); 2: Write(‘Vendredi’); 3: Write(‘Samedi’); 4: Write(‘Dimanche’); 5: Write(‘Lundi’); 6: Write(‘Mardi’); End; uploads/Litterature/ fiche-td3.pdf