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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 5501
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 : 4988
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 : 5501
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 32 bits :: Les inutilitaires-
Sauter vers: