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
» Découpe dans une image
par JL35 Aujourd'hui à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Aujourd'hui à 21:51

» Pour faire plaisir à Marc37.
par Marc Aujourd'hui à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Aujourd'hui à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Hier à 22:44

» KGF_dll - nouvelles versions
par Klaus Hier à 22:30

» Mah-Jong anglais
par jjn4 Hier à 14:22

» Partie fractionnaire d'un flottant
par silverman Hier à 14:19

» bug CREATE_HIDE : corruption de form
par silverman Hier à 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Hier à 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Hier à 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Sauriez-vous compter les carrés ?

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5744
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 - 2: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 : 5174
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Sauriez-vous compter les carrés ?   Jeu 7 Jan 2016 - 9: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 : 5744
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 - 11: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 ?
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: