Remerciez-le!

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

Fiche td3 CEcrire un algorithme qui lit un nombre entier N calcule et a ?che la factorielle de N ? Program Factorielle Var N I S Integer Begin Write ? Donner N ? Readln N S For I To N Do S S I Writeln S End Program Factorielle Var N I S Integer Begin Writ

CEcrire un algorithme qui lit un nombre entier N calcule et a ?che la factorielle de N ? Program Factorielle Var N I S Integer Begin Write ? Donner N ? Readln N S For I To N Do S S I Writeln S End Program Factorielle Var N I S Integer Begin Write ? Donner N ? Readln N S I While I N Do Begin S S I I I End Writeln S END CEcrire un algorithme qui lit un nombre N Ensuite il lit N nombres et a ?che le nombre le plus grand ? Program PG Var N X I Max Integer Begin Write ? Donner N ? Readln N Write ? Donner Valeur Nr ? Readln Max For I TO N Do Begin Write ? Donner Valeur Nr ? I Readln X IF X Max Then Max X End Writeln ? La plus grande ? Max End CEcrire un algorithme qui lit un nombre N Ensuite il lit N nombres et a ?che 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 ? Readln Max Min Max For I TO N Do Begin Write ? Donner Valeur Nr ? I Readln X IF X Max Then Max X Else IF X CEcrire un algorithme qui joue le rôle d ? une calculatrice sur des nombres Il lit soit des chi ?res soit des opérateurs - jusqu ? à la saisie de Il a ?che à la ?n 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 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 RX END Write ? Donner Opération ? Readln C End Writeln ? Résultat ? R End ?? CTd EXO ? 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 CTd EXO ? 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 CTD EXo ? PROGRAM PUISSANCE Var R I N Integer Begin Write ? Donner N ? Readln N R For I To N Do R R Writeln R End CTD EXo N ? PROGRAM FACTORIELLE Var R I N Integer Begin Write ? Donner N ? Readln N R For I To N Do R R I Writeln R End CTD EXO N ? PROGRAM MAXIMUM Var MAX I N V Integer