FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Sauriez-vous compter les carrés ?

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Sauriez-vous compter les carrés ?   Jeu 7 Jan 2016 - 4:48

Code:

rem ============================================================================
rem               Un petit casse-tête
rem ============================================================================
label verifier
dim n%,solution%,t$
n% = 3+rnd(8) : solution% = n%*(2*n%*n%+3*n%+1)/6
t$ = "Combien y a-t-il de carrés dans cette grille "+chr$(13)+ "de " + str$(n%)
t$ = t$ + " X " + str$(n%) + " ?"
width 0,700 : color 0,0,0,128 : font_color 0,255,255,0
picture 10 : full_space 10 : width 10,400 : height 10,400 : top 10,20 : left 10,10
2d_target_is 10
alpha 20 : top 20,50 : left 20,430 : font_bold 20
caption 20,t$
edit 30 : top 30,100 : left 30,450 : width 30,50 : set_focus 30
font_color 30,0,0,255 : font_bold 30
button 40 : top 40,150 : left 40,450 : font_bold 40 : caption 40,"Valider"
on_click 40,verifier
Grille(n%)
end
rem ============================================================================
SUB Grille(n%)
    dim_local i,cote
    cote = width(10)/n%
    2d_pen_color 255,255,0 : 2d_fill_color 0,0,0
    2d_rectangle 0,0,width(10),height(10)
    for i = 1 to n%
        2d_line 0,i*cote,width(10),i*cote
        2d_line i*cote,0,i*cote,height(10)
    next i
END_SUB
rem ============================================================================
Verifier:
   if numeric(text$(30)) = 0
      message "Entrez une valeur numérique, SVP !"
      text 30,"" : set_focus 30 : return
   end_if
   if val(text$(30)) = solution%
      message " Bravo !"
   else
      message "Erreur !" + chr$(13)+ "La solution est : "+ str$(solution%)
   end_if
return
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Sauriez-vous compter les carrés ?   Jeu 7 Jan 2016 - 11:27

Hé oui ! il ne faut pas confondre carré et case. Very Happy

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Sauriez-vous compter les carrés ?   Jeu 7 Jan 2016 - 13:25

Bien sûr.
Il s’agit de compter les carrés et non les cases ;  sinon, ça sera ultra facile !
As-tu pu venir à bout de ce casse-tête, ou ce casse-tête a-t-il fini par te casser les pieds ? Razz
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Sauriez-vous compter les carrés ?   

Revenir en haut Aller en bas
 
Sauriez-vous compter les carrés ?
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Quelle partie de votre cerveau utilisez-vous ?
» que penser vous d' avast
» Vous avez demandé la POLICE, ne quittez pas...
» Moi c'est Mérillym, vous pouvez m'appeler Méry :D
» [Nocturne] Demande d'aide pour code css complet s'il vous plait.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: