Bouaziz Mohamed

Mohamed Bouaziz

Informations

• Publié par: mohamed_3si
• Publié le: 14 mars 2012
• Nombre de lectures: 1 277
• Langue: Français

Extrait

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