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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 5613
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 : 5086
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 : 5613
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: