• Home
    • Home
    • Wouf's Blog
    • Boutique TShirt
    • Sponsoring
  • Math
    • Math au collège
    • Applis et boutiques
    • Cours particuliers
  • Jeux
    • Echecs
    • Poker
    • Des chiffres et des lettres
    • Dogs and cats (mastermind)
    • boggle - version Anglaise
    • boggle - version Française
  • Info
    • Console Python
    • SVG EDIT
    • fond d'écran
    • Prénom en chinois
    • Boite à outils
    • Mes Logiciels
    • DIVERS
    • Webmaster?
    • Liens

Laurent Petitprez

Tweet


Les conseils de Wouf

Beaucoup d’élèves entrant au lycée ont en effet des difficultés à manipuler les fractions, les racines carrées, les puissances, à factoriser des expressions… Ces notions, apprises au collège, sont mal assimilées, et le programme des classes de lycée ne prévoit pas de les retravailler en profondeur.

Cet ouvrage propose une remédiation pas à pas. Un code simple et mnémotechnique est associé à chacune des règles et rappelé dans toutes les corrections d’exercices. Il permet de se repérer et de comprendre ses erreurs.

Tout le monde est égal devant le slip.

Jan Bucquoy

Voir toutes les citations.


Magic 500

Magic 500 n'est que le jeu où l'on devine un nombre, après essais successifs (trop grand, trop petit...)

Développé par les membres de Microloges, le club d'informatique de Beaumetz les loges, Magic 500 présente l'interêt d'offrir des sources quickbasic qui peuvent servir d'exemples aux débutants...

source: magic.bas

Le fichier principal:

DECLARE SUB jeu (moinsbon!)
DECLARE SUB regle ()
DECLARE SUB beethov ()
DECLARE SUB init (e$)
DECLARE SUB texte (a$, li!, co!, couleur!, t$)
DECLARE SUB espace (w!)
DECLARE SUB elise ()
CONST nbnb = 5         'nb de nb à trouver
CONST nbch = 3          'nb de chiffre à trouver
CONST nbenr = 30
TYPE sov
      chnom AS STRING * 20
      chnbes AS INTEGER
     END TYPE

DIM joueur AS sov
joueur.chnom = "Adam"


'                              Page de garde...
'__________________________________________________

DO


WIDTH 40, 25
CLS

texte "MICRoLoGES", 12, 5, 3, "non"

elise

texte "PRESENTE:", 14, 10, 4, "oui"

CLS

texte " M A G I C  5 0 0", 12, 1, 5, "non"

SLEEP 2
'_______________________________________________
'page 2

WIDTH 80, 50
CLS
OPEN "score.wou" FOR RANDOM AS #1 LEN = LEN(joueur)
i = 1

texte "MEILLEURS SCORES", 1, 25, 2, "non"
texte "NOM", 5, 15, 3, "non"
texte "ESSAIS", 5, 50, 3, "non"

max = LOF(1) / LEN(joueur)

IF max > nbenr THEN max = nbenr

FOR i = 1 TO max
  GET #1, i, joueur




  LOCATE 7 + i, 2
  COLOR 1
  PRINT i
  LOCATE 7 + i, 15
  PRINT joueur.chnom
  LOCATE 7 + i, 50
  COLOR 5
  PRINT joueur.chnbes


 NEXT



CLOSE #1
moinsbon = joueur.chnbes
IF moinsbon = 0 OR max < nbenr THEN moinsbon = 9999


LOCATE 50, 35
COLOR 2
PRINT "J";
COLOR 1
PRINT "ouer/";
COLOR 2
PRINT "R";
COLOR 1
PRINT "ègles/";
COLOR 2
PRINT "Q";
COLOR 1
PRINT "uitter";





DO
init e$  'on initialise la liste de nb aleatoires
LOOP UNTIL INSTR("jJrRqQ", e$) > 0 AND e$ <> ""



 


 SELECT CASE UCASE$(e$)


 CASE "J"
	jeu moinsbon

 CASE "Q"
 fin$ = "oui"

 CASE "R"
       regle

 END SELECT

 LOOP UNTIL fin$ = "oui"

SUB jeu (moinsbon)
DIM joueur AS sov
    DIM j AS sov
CLS
WIDTH 80, 50
BEEP

FOR no = 1 TO nbnb

 nbcach = INT(RND * 9 * 10 ^ (nbch - 1)) + 10 ^ (nbch - 1)
 DO
   essai = essai + 1
   PRINT
   COLOR 3
   PRINT "Encore "; nbnb - no + 1; "nombre";
   IF nbnb - no + 1 > 1 THEN PRINT ("s");
   PRINT " ...trouver. ";

  
   COLOR 3
   PRINT " Essai nø ";
   COLOR 4
   PRINT essai;
   COLOR 3
   PRINT " >  ";
   t = 0


   FOR y = 1 TO nbch

   t$ = ""
     DO
      t$ = INKEY$
     LOOP UNTIL INSTR("0123456789q", t$) > 0 AND t$ <> ""
     IF t$ = "q" THEN STOP
   PRINT t$;
   t = t * 10 + VAL(t$)

   t$ = ""
   
   
   NEXT y
  
   IF t > nbcach THEN PRINT "   trop grand "
   IF t < nbcach THEN PRINT "   trop petit "


 LOOP UNTIL t = nbcach
   COLOR 4
   PRINT " BRAVO !"
   IF no <nbnb THEN elise ELSE beethov
   espace (5)


NEXT no


PRINT "                           Mission accomplie !"
SLEEP 3

' ici on regarde le score et on le sauve si il est bon

IF essai < moinsbon THEN
PRINT " Bravo ! Vous entrez dans le top "; nbenr
PRINT
BEEP

INPUT "Entrez votre nom : "; nom$
OPEN "score.new" FOR RANDOM AS #2 LEN = LEN(joueur)

OPEN "score.wouf" FOR RANDOM AS #1 LEN = LEN(joueur)

 ok$ = "non"
 
 i2 = 0
 
 
max = LOF(1) / LEN(joueur)
 IF max = 0 THEN
       ok$ = "oui"
       j.chnom = nom$
       j.chnbes = essai
       i2 = i2 + 1
       PUT #2, i2, j
     END IF


 FOR i = 1 TO max

 GET #1, i, joueur

  IF (essai < joueur.chnbes OR joueur.chnbes = 0) AND ok$ = "non" THEN
       ok$ = "oui"
      
       j.chnom = nom$
       j.chnbes = essai
       i2 = i2 + 1
       PUT #2, i2, j
      
      
       END IF

       i2 = i2 + 1
       PUT #2, i2, joueur
      

 NEXT

 IF ok$ = "non" THEN

       ok$ = "oui"
     
       j.chnom = nom$
       j.chnbes = essai
       i2 = i2 + 1
       PUT #2, i2, j
      END IF


CLOSE #2
CLOSE #1

KILL "score.wou"
NAME "score.new" AS "score.wou"


END IF


END SUB

SUB regle
WIDTH 40, 25

CLS
texte "Règles", 5, 10, 5, "non"
texte "du jeu", 5, 23, 5, "oui"
espace (5)
COLOR 4
PRINT "Il s'agit de découvrir ";
PRINT nbnb;
PRINT " nombres cachés en dépensant"
PRINT "le moins d'essais possibles."
PRINT
PRINT " Les nombres sont des entiers de "; nbch; " chiffres"
PRINT
PRINT " plus petit, ou plus grand"
PRINT "seront mes seules indications"
PRINT
texte "BONNE CHANCE", 23, 12, 3, "oui"

LOCATE 25, 10
COLOR 4
PRINT " presser une touche";
SLEEP

END SUB
source: divers.bas

Et ce fichier externe, comme un "include"...

SUB beethov
ECOUTE$ = "T180 o2 P2 P8 L8 GGG L2 E-"
SUITE$ = "P24 P8 L8 FFF L2 D"
PLAY ECOUTE$ + SUITE$

END SUB

SUB elise
   PLAY ON
   lise$ = "o3 L8 E D+ E D+ E o2 B o3 D C L2 o2 A"
   PLAY "MB X" + VARPTR$(lise$)

END SUB

SUB espace (w)
FOR i = 1 TO w
 PRINT
 NEXT

END SUB

SUB init (e$)
DO
e$ = INKEY$
z = z + 1
LOOP UNTIL e$ <> ""
RANDOMIZE (z)

END SUB

SUB texte (a$, li, co, couleur, t$)
      
      LOCATE li, co
      COLOR couleur
      FOR i = 1 TO LEN(a$)
       PRINT (MID$(a$, i, 1)); " ";
       IF t$ = "oui" THEN SLEEP 1
       NEXT



END SUB
Téléchargements:

Télécharger le zip (EXE + sources)

Liens divers:

Quick Basic

Quick Basic est téléchargeable: qb45fr.zip

Un autre exemple sur Wikipedia: Exemple de programme sous Qbasic


 


Tweets de @wouf

Comment ???

NEWS

  • Page : https://site2wouf.fr/magic500.php
  • Catégorie : Informatique

Etat des lieux du site2wouf.fr, été 2021.

Je profite des vacances et de la météo désastreuse dans le Pas-de-Calais en ce mois de juillet pour dresser un état des lieux du site. La première version date des débuts d'internet mais la version actuelle, avec ce nom de domaine est né en 2008, en janvier.

Environs quatre millions de pages ont été visitées depuis 2008. 84% des visiteurs sont français, le reste se partageant majoritairement entre les Etats Unis, et l' Afrique du Nord (6% pour la Tunisie)

Historiquement, les premières versions regroupaient surtout des pages de type leçons en Mathématiques couvrant l'ensemble du collège, ce sont ces pages qui continuent à générer le plus de visites aujourd'hui. (Ainsi la page d'entrée la plus fréquente est une leçon de trigonométrie pour les élèves de troisième. )

Aujourd'hui, à la dispositions des élèves et des collègues, vous pouvez trouver sur le site2wouf.fr :

  • 3600 feuilles de problèmes gratuites en pdf pour tous (la résolution dépend du niveau)
  • 2400 feuilles de problèmes gratuites en pdf adaptées au cyc
...

lien vers l'article sur wouf blog
 

TIPS

FSG< vous aide à générer gratuitement un sitemap !

Voir tous les conseils.

Dernière mise à jour:

Juin-juillet 2021

Nouvelles Pages !

  • Exercices du jour : autour de Thalès !
  • Activité du jour "L'ascenseur fou fou fou! version2"
  • Les exercices du jour : Fractions

Voir toutes les mises à jour.

 

Trois liens disponibles !

Votre propre message ici, c'est possible! Plus d'informations



Sauf mention contraire, le site est placé sous double licence Creative Commons et GNU Free Documentation License, par contre les grandes images décoratives appartiennent à Corbis et sont licenciées par microsoft

Contact: w0uf@free.fr (avec un zéro à la place du O)