Bouaziz Mohamed

De
Publié par

PROJET ALGORITHMIQUELes Sous Programmes{******************************************************************************}program Alumettes ;uses wincrt;Cours :Les

Publié le : mercredi 14 mars 2012
Lecture(s) : 1 277
Nombre de pages : 3
Voir plus Voir moins
PROJET ALGORITHMIQUE
Les Sous Programmes {******************************************************************************}
program Alumettes ; uses wincrt; Cours :Les structures var n:integer; de données: procedure saisie (var n:integer); begin Type Réelle randomize; Type Entier n:=random(11)+10; write; writeln('Les nombres des allumettes=',n); Type chaîne end; {******************************************************************************} Exercice:Les procedure jouerre (var x:integer); structures de données: begin repeat Exercice 1 writeln('Tirez des alumettes =');readln(x); Exercice 2 until (x in [1..3] )and (x<=n) ; Cours :Les structures n:=n-x ; de contrôle conditionnels: writeln('Il reste ',n,' allumettes '); end; Procedure jouer (var n:integer); var x:integer; begin Cours :Les structures de contrôle repeat conditionnels: Jouerre (x); if n=0 then Exercice 1 writeln('Jouer 1 perds ') Exercice 2 else Exercice 3 begin Exercice 4 Jouerre (x); Exercice 5
if n=0 then Exercice 6 writeln('Jouer 1 perds '); Exercice 7 end; Exercice 8 until (n=0); Exercice 9 end; Cours les structures {******************************************************************************} de contrôle itérative: begin Boucle Pour Saisie (n); jouer(n); Tant Que end. Exercice sur Les structures de {******************************************************************************} contrôle Itérative: {******************************************************************************} Exécution du programmesur DEV PASCAL Exercice 1 Exercice 2 Exercice 3 Exercice 4 Exercice 5 Exercice 6 Exercice 7 Cours:Les Sous Programmes:
Introduction
Exercice :Les Sous Programmes:
Exercice 1 Exercice 2 Exercice 3 Exercice 4
Soyez le premier à déposer un commentaire !

17/1000 caractères maximum.

Diffusez cette publication