Une petite calculatrice en Pure

Good07 · Message par **Good07** » sam. 28/août/2004 7:59

Bonjour à tous !

Je rentre de vacance et je viens de parcourir le forum qui est toujours aussi actif. Vous ne prenez jamais de vacance ?

Il y en a même qui doivent souffrir d'insomnie

J'ai les noms...

Enfin bref, moi j'ai profité des miennes pour faire une petite calculatrice.
C'est vrai quoi ! Le forum de Pure n'en avait pas.

Quand on débute c'est assez simple à programmer. De plus, j'ai fait le listing juste avec la doc de pure car je n'avais pas d'ordinateur avec moi sauf mon psion MX5 qui ne me quitte jamais. En rentrant j'ai tapé le listing et corrigé quelques bugs mais dans l'ensemble je suis assez content du résultat.

Voici le listing du programme:

Code : Tout sélectionner

;---------------------------------------------------
; Good07
; Calculatrice Franc/Euro
; Le 25/08/2004
;---------------------------------------------------

; le bouton Euro permet d'initialiser la frappe en Euro et la somme est convertie en Franc dans l'afficheur du dessus
; le bouton FR inverse le processus
; le bouton Cal permet de passer en mode calculatrice simple avec la simulation d'une bande papier qui imprime les différents calculs
; Au sujet de cette bande, je n'ai pas trouvé d'astuce qui permette de de la faire scroller vers le haut pour que le dernier calcul
; soit toujours visible. Je suis obligé d'utiliser l'ascenseur de la fenêtre pour le faire.(si vous avez une idée !)
; Vous excuserez le manque de commentaire du listing et le nom des variables peu explicite parfois mais décidemment on ne se refait pas.

Global nomb$, franc.b, euro.b, Enomb$, Fnomb$, nb1.f, nb2.f, op.b, operateur$, point.b, cal.b, totoperateur.s, totop.b, texte.s, res$,ligne.b,i.b
franc = 0
euro = 1
cal = 0
totop = 0

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
  #Button_1
  #Button_2
  #Button_3
  #Button_4
  #Button_5
  #Button_6
  #Button_7
  #Button_8
  #Button_9
  #Button_euro
  #Button_franc
  #Button_pourcent
  #Button_C
  #Button_div
  #Button_mul
  #Button_moins
  #Button_dec
  #Button_egal
  #Button_plus
  #Button_cal
  #String_0
  #String_1
  #Text_fr
  #Text_euro
  #Listview_1
  #String_cal
EndEnumeration

;- Fonts
;
Global FontID1
FontID1 = LoadFont(1, "DS-Digital", 24)
Global FontID2
FontID2 = LoadFont(2, "DS-Digital", 48)

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 349, 236, 557, 427,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar |#PB_Window_ScreenCentered , "Calculatrice Euro/Franc")
    If CreateGadgetList(WindowID())
      ButtonGadget(#Button_0, 10, 330, 60, 40, "0")
      ButtonGadget(#Button_1, 10, 280, 60, 40, "1")
      ButtonGadget(#Button_2, 80, 280, 60, 40, "2")
      ButtonGadget(#Button_3, 150, 280, 60, 40, "3")
      ButtonGadget(#Button_4, 10, 230, 60, 40, "4")
      ButtonGadget(#Button_5, 80, 230, 60, 40, "5")
      ButtonGadget(#Button_6, 150, 230, 60, 40, "6")
      ButtonGadget(#Button_7, 10, 180, 60, 40, "7")
      ButtonGadget(#Button_8, 80, 180, 60, 40, "8")
      ButtonGadget(#Button_9, 150, 180, 60, 40, "9")
      ButtonGadget(#Button_euro, 10, 130, 60, 40, "€")
      ButtonGadget(#Button_franc, 80, 130, 60, 40, "FR")
      ButtonGadget(#Button_pourcent, 150, 130, 60, 40, "%")
      ButtonGadget(#Button_C, 220, 130, 60, 40, "C")
      ButtonGadget(#Button_div, 220, 180, 60, 40, "/")
      ButtonGadget(#Button_mul, 220, 230, 60, 40, "X")
      ButtonGadget(#Button_moins, 220, 280, 60, 40, "-")
      ButtonGadget(#Button_dec, 80, 330, 60, 40, ".")
      ButtonGadget(#Button_egal, 150, 330, 60, 40, "=")
      ButtonGadget(#Button_plus, 220, 330, 60, 40, "+")
      ButtonGadget(#Button_cal, 10, 380, 60, 40, "CAL")
      StringGadget(#String_0, 10, 80, 270, 40, "0", #PB_String_ReadOnly | #PB_String_Numeric | #PB_Text_Right)
      SetGadgetFont(#String_0, FontID1)
      StringGadget(#String_1, 10, 30, 270, 40, "", #PB_String_ReadOnly | #PB_String_Numeric | #PB_Text_Right)
      SetGadgetFont(#String_1, FontID1)
      TextGadget(#Text_fr, 280, 50, 30, 20, "FR", #PB_Text_Center)
      TextGadget(#Text_euro, 280, 100, 30, 20, "€", #PB_Text_Center)
      ListViewGadget(#Listview_1, 290, 130, 260, 290)
      StringGadget(#String_cal, 10, 40, 540, 70, "0", #PB_String_ReadOnly | #PB_String_Numeric | #PB_Text_Right)
      SetGadgetFont(#String_cal, FontID2)
      
    EndIf
  EndIf
EndProcedure

Procedure affichage()
  If franc = 1 And cal = 0
    nomb.f = ValF(GetGadgetText(#String_0)) / 6.55957
    Enomb$ = StrF(nomb.f, 2)
    SetGadgetText(#String_1, Enomb$)
  EndIf
  If euro = 1 And cal = 0
    nomb.f = ValF(GetGadgetText(#String_0)) * 6.55957
    Fnomb$ = StrF(nomb.f, 2)
    SetGadgetText(#String_1, Fnomb$)
  EndIf
EndProcedure

Procedure calculette()
  If nb1.f <> 0
    nb2.f = ValF(GetGadgetText(#String_cal))
    Select operateur$
      Case "-"
        nb1 = nb1 - nb2
      Case "+"
        nb1 = nb1 + nb2
      Case "X"
        nb1 = nb1 * nb2
      Case "/"
        If nb2 = 0
          MessageRequester("Erreur !", "Division par zéro !", 1)
          nb1 = 0
        Else
          nb1 = nb1 / nb2
        EndIf
    EndSelect
    op = 0
  Else
    nb1 = ValF(GetGadgetText(#String_cal))
  EndIf
  If nb1 - Int(nb1) <> 0
    SetGadgetText(#String_cal, StrF(nb1, 11))
  Else
    SetGadgetText(#String_cal, StrF(nb1, 0))
  EndIf
  affichage()
  point = 0
EndProcedure

Procedure calcul()
  If nb1.f <> 0
    nb2.f = ValF(GetGadgetText(#String_0))
    Select operateur$
      Case "-"
        nb1 = nb1 - nb2
      Case "+"
        nb1 = nb1 + nb2
      Case "X"
        nb1 = nb1 * nb2
      Case "/"
        If nb2 = 0
          MessageRequester("Erreur !", "Division par zéro !", 1)
          nb1 = 0
        Else
          nb1 = nb1 / nb2
        EndIf
    EndSelect
    op = 0
  Else
    nb1 = ValF(GetGadgetText(#String_0))
  EndIf
  If nb1 - Int(nb1) <> 0
    SetGadgetText(#String_0, StrF(nb1, 2))
  Else
    SetGadgetText(#String_0, StrF(nb1, 0))
  EndIf
  affichage()
  point = 0
EndProcedure

Procedure ajoutligne(); gestion de la bande papier du mode calculatrice
  If totop = 0
    texte = "------------------------------------------"
    date$ = FormatDate("%dd,%mm,%yyyy,%hh,%ii", Date())
    AddGadgetItem(#Listview_1, -1, texte)
    AddGadgetItem(#Listview_1, -1, date$)
    AddGadgetItem(#Listview_1, -1, texte)
  EndIf
  If totop = 1
    AddGadgetItem(#Listview_1, -1, nomb$)
  Else
    texte = Mid(totoperateur, totop - 1, 1) + " " + nomb$
    AddGadgetItem(#Listview_1, -1, texte)
  EndIf
  ligne=ligne+1
  SendMessage_(#Listview_1,#LB_SETTOPINDEX,ligne,0)
EndProcedure

Procedure init()
  nomb$ = ""
  Enomb$ = ""
  Fnomb$ = ""
  res$ = ""
  nb1.f = 0
  nb2.f = 0
  res.f = 0
  point = 0
  op = 0
  totoperateur = ""
  totop = 0
  If cal = 0
    SetGadgetText(#String_0, "0")
    SetGadgetText(#String_1, "0")
  ElseIf cal = 1
    SetGadgetText(#String_cal, "0")
    ajoutligne()
  EndIf
EndProcedure

Procedure touche(touch$)
  nomb$ = nomb$ + touch$
  If cal = 0
    SetGadgetText(#String_0, nomb$)
    affichage()
  Else
    SetGadgetText(#String_cal, nomb$)
  EndIf
  op = 0
EndProcedure

Procedure pourcentage()
  If cal = 1 And operateur$ = "X"
    nb2.f = ValF(GetGadgetText(#String_cal))
    res.f = (nb1.f * nb2.f) / 100
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_cal, res$)
  ElseIf cal = 0 And operateur$ = "X"
    nb2.f = ValF(GetGadgetText(#String_0))
    res.f = (nb1.f * nb2.f) / 100
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_0, res$)
    affichage()
  EndIf
  If cal = 1 And operateur$ = "+"
    nb2.f = ValF(GetGadgetText(#String_cal))
    res.f = ((nb1.f * nb2.f) / 100) + nb1.f
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_cal, res$)
  ElseIf cal = 0 And operateur$ = "+"
    nb2.f = ValF(GetGadgetText(#String_0))
    res.f = ((nb1.f * nb2.f) / 100) + nb1.f
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_0, res$)
    affichage()
  EndIf
  If cal = 1 And operateur$ = "-"
    nb2.f = ValF(GetGadgetText(#String_cal))
    res.f = nb1.f - ((nb1.f * nb2.f) / 100)
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_cal, res$)
  ElseIf cal = 0 And operateur$ = "-"
    nb2.f = ValF(GetGadgetText(#String_0))
    res.f = nb1.f - ((nb1.f * nb2.f) / 100)
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_0, res$)
    affichage()
  EndIf
  If cal = 1 And operateur$ = "/"
    nb2.f = ValF(GetGadgetText(#String_cal))
    res.f = (nb1.f / nb2.f) * 100
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_cal, res$)
  ElseIf cal = 0 And operateur$ = "/"
    nb2.f = ValF(GetGadgetText(#String_0))
    res.f = (nb1.f / nb2.f) * 100
    res$ = StrF(res.f, 2)
    SetGadgetText(#String_0, res$)
    affichage()
  EndIf  
EndProcedure

Open_Window_0()
HideGadget(#Listview_1, 1)
HideGadget(#String_cal, 1)
ResizeWindow(319, 427)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad0,0)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad1,1)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad2,2)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad3,3)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad4,4)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad5,5)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad6,6)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad7,7)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad8,8)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Pad9,9)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Decimal,10)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Divide,11)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Multiply,12)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Add,13)
AddKeyboardShortcut(#Window_0,#PB_Shortcut_Subtract,14)
;AddKeyboardShortcut(#Window_0,#PB_Shortcut_Decimal,10)


Repeat  
  Event = WaitWindowEvent()
  clavier=EventMenuID()
  If clavier=0
    If nomb$ = "" And nomb$ <> "0."
      nomb$ = "0."
      If cal = 0
        SetGadgetText(#String_0, nomb$)
      Else
        SetGadgetText(#String_cal, nomb$)
      EndIf
      point = 1
      affichage()
    Else
      touche("0")
    EndIf
  EndIf
  If clavier=1
    touche("1")
  EndIf
  If clavier=2
    touche("2")
  EndIf
  If clavier=3
    touche("3")
  EndIf
  If clavier=4
    touche("4")
  EndIf
  If clavier=5
    touche("5")
  EndIf
  If clavier=6
    touche("6")
  EndIf
  If clavier=7
    touche("7")
  EndIf
  If clavier=8
    touche("8")
  EndIf
  If clavier=9
    touche("9")
  EndIf
  If clavier=10
    If nomb$ = ""
      nomb$ = "0."
      SetGadgetText(#String_0, nomb$)
      point = 1
      affichage()
    EndIf
    If nomb$ <> "" And point = 0
      nomb$ = nomb$ + "."
      SetGadgetText(#String_0, nomb$)
      point = 1
    EndIf
  EndIf
  
  If Event = #PB_EventGadget
    
    Select EventGadgetID()
        
      Case #Button_0
        touche("0")
        
      Case #Button_1
        If nomb$ = "" And nomb$ <> "0."
          nomb$ = "0."
          If cal = 0
            SetGadgetText(#String_0, nomb$)
          Else
            SetGadgetText(#String_cal, nomb$)
          EndIf
          point = 1
          affichage()
        Else
          touche("1")
        EndIf
        
      Case #Button_2
        touche("2")
        
      Case #Button_3
        touche("3")
        
      Case #Button_4
        touche("4")
        
      Case #Button_5
        touche("5")
        
      Case #Button_6
        touche("6")
        
      Case #Button_7 ;
        touche("7")
        
      Case #Button_8
        touche("8")
        
      Case #Button_9
        touche("9")
        
      Case #Button_euro
        If cal = 0
          franc = 0
          euro = 1
          SetGadgetText(#Text_euro, "€")
          SetGadgetText(#Text_fr, "FR")
        ElseIf cal = 1
          ResizeWindow(319, 427)
          HideGadget(#String_0, 0)
          HideGadget(#String_1, 0)
          HideGadget(#Text_fr, 0)
          HideGadget(#Text_euro, 0)
          HideGadget(#String_cal, 1)
          HideGadget(#Listview_1, 1)
          franc = 0
          euro = 1
          SetGadgetText(#Text_euro, "€")
          SetGadgetText(#Text_fr, "FR")
          cal = 0
        EndIf
        
      Case #Button_franc
        If cal = 0
          franc = 1
          euro = 0
          SetGadgetText(#Text_euro, "FR")
          SetGadgetText(#Text_fr, "€")
        ElseIf cal = 1
          ResizeWindow(319, 427)
          HideGadget(#String_0, 0)
          HideGadget(#String_1, 0)
          HideGadget(#Text_fr, 0)
          HideGadget(#Text_euro, 0)
          HideGadget(#String_cal, 1)
          HideGadget(#Listview_1, 1)
          franc = 1
          euro = 0
          SetGadgetText(#Text_euro, "FR")
          SetGadgetText(#Text_fr, "€")
          cal = 0
        EndIf
        
        
      Case #Button_pourcent
        pourcentage()
        
      Case #Button_C
        init()
        
      Case #Button_div
        If op = 0 And cal = 0
          calcul()
        Else
          calculette()
        EndIf
        operateur$ = "/"
        If cal = 1
          totoperateur = totoperateur + operateur$
          totop = totop + 1
          ajoutligne()
        EndIf
        nomb$ = ""
        op = 1
        
      Case #Button_mul
        If op = 0 And cal = 0
          calcul()
        Else
          calculette()
        EndIf
        operateur$ = "X"
        If cal = 1
          totoperateur = totoperateur + operateur$
          totop = totop + 1
          ajoutligne()
        EndIf
        nomb$ = ""
        op = 1
        
      Case #Button_moins
        If op = 0 And cal = 0
          calcul()
        Else
          calculette()
        EndIf
        operateur$ = "-"
        If cal = 1
          totoperateur = totoperateur + operateur$
          totop = totop + 1
          ajoutligne()
        EndIf
        nomb$ = ""
        op = 1
        
      Case #Button_dec
        If nomb$ = ""
          nomb$ = "0."
          SetGadgetText(#String_0, nomb$)
          point = 1
          affichage()
        EndIf
        If nomb$ <> "" And point = 0
          nomb$ = nomb$ + "."
          SetGadgetText(#String_0, nomb$)
          point = 1
        EndIf
        
      Case #Button_egal
        If cal = 0
          calcul()
        Else
          calculette()
        EndIf
        If cal = 1
          totoperateur = totoperateur + "="
          totop = totop + 1
          ajoutligne()
          AddGadgetItem(#Listview_1, -1, "= " + GetGadgetText(#String_cal))
        EndIf
        nb1 = 0
        operateur$ = ""
        point = 0
        
      Case #Button_plus
        If op = 0 And cal = 0
          calcul()
        Else
          calculette()
        EndIf
        operateur$ = "+"
        If cal = 1
          totoperateur = totoperateur + operateur$
          totop = totop + 1
          ajoutligne()
        EndIf
        nomb$ = ""
        op = 1
        
      Case #Button_cal
        cal = 1
        init()
        ResizeWindow(557, 427)
        HideGadget(#String_0, 1)
        HideGadget(#String_1, 1)
        HideGadget(#Text_fr, 1)
        HideGadget(#Text_euro, 1)
        HideGadget(#String_cal, 0)
        HideGadget(#Listview_1, 0)
        ClearGadgetItemList(#Listview_1)
        ajoutligne()
    EndSelect
  EndIf
  
Until Event = #PB_EventCloseWindow

End

Voilà, j'espère qu'il n'y a pas trop de bugs (j'ai pas eu le temps de tout contrôler ), mais j'ai eu le temps de faire le compte de ce que j'ai dépensé en vacance avec et là

... Mon banquier va me tuer c'est sur !

Au fait elle accepte le calcul en chaine du genre :
2x4+78/89-456=-447,...

Bon calcul à tous !

et n'hésitez pas à faire des commentaires

comtois · Message par **comtois** » sam. 28/août/2004 9:02

Elle est sympa ta calculette .

j'aime bien l'affichage en colonne de toutes les opérations ,c'est pas mal .

j'aime moins d'avoir en permanence les euros et les francs, surtout quand j'en ai pas besoin . Tu pourrais t'inspirer de la calculette windows , un seul afficheur , et des OptionGadgets pour sélectionner l'affichage en euros ou en francs .

j'ai l'impression qu'il a beaucoup plu pendant tes vacances, tu as eu le temps de cogiter

nico · Message par **nico** » sam. 28/août/2004 9:07

J'aime bien, mais je trouverais sympa de garder le visuel du calcul, de plus la calcul de window ne le fait pas!

Good07 · Message par **Good07** » sam. 28/août/2004 9:08

Pour Comtois.
Si tu veux mon avis, cette année l'auvergne c'était pire que la bretagne, 3 jours de vrai beau temp sur trois semaines de congé

La galère et avec les rames en plus

Good07 · Message par **Good07** » dim. 29/août/2004 9:11

Bonjour à tous !

Merci por vos commentaires.
Nico écrit:

J'aime bien,mais je trouverais sympa de garder le visuel de calcul...

Nico tu veux dire que l'affichage s'effectue comme sur les calculatrices actuelles. c'est à dire que l'on affiche tout ce que l'on tape par ex:
789/12*45+(45-12)+sqr(45) etc...
C'est ça

Comtois écrit:

J'aime moins d'avoir en permanence les euros et le francs, surtout quand j'en ai pas besoin. Tu pourrais t'inspirer de la calculette windows, un sul afficheur et des optionsgadgets pour selectionner l'affichage en euros et en francs

Tu as tout à fait raison, mais en vacance je n'avais que le modèle de la calculatrice offert gracieusement (

) par mon banquier...
Je vais refondre l'interface dans ce sens. Il suffit juste de transformer le résultat en euros ou en francs peu importe.

Merci pour vos commentaires

Pas de delai de livraison pour la prochaine, avec la reprise du boulot et le travail à la maison ....

A +

André.

nico · Message par **nico** » dim. 29/août/2004 9:22

Oui, c'est ça!

Good07 · Message par **Good07** » dim. 29/août/2004 9:28

Bonjour Nico.

C'est OK. Je vais voir ce que je peux faire dans ce sens.

A+

André

djmcg · Message par **djmcg** » sam. 18/sept./2004 15:06

Merci à Good07 pour la calculatrice.
C'est un bon sujet pour apprendre PB.

Au fait, quelle est la "déontologie" sur PUREBASIC, si on inclus dans ces programme, des programme tout ou partie, ou si on crée des morceau de programme fortement influencé par la lecture des forum PB

J'ai bien sûr l'intention de réécrire mes vieux code...

Mais, je doit bien avoué, que réinventer la roue, me paraît absurde.

En mars prochain, je remet sur la table un vieux projet.
En ce qui me concerne, j'ai pas de problème de mettre a disposition mes programme au contraire, après avoir lu le soldat inconnu... sur le sujet.

Donc, il est probable que dans le chapitre a propos j'y inclus des remerciement, mais la liste pourrait être longue, alors ...

Vous avez un avis ? Pour un bon comportement et un respect des programmeur et parfois prof... d'après ce que je peux lire.

Merci.

Chris · Message par **Chris** » sam. 18/sept./2004 15:34

djmcg a écrit :Au fait, quelle est la "déontologie" sur PUREBASIC, si on inclus dans ces programme, des programme tout ou partie, ou si on crée des morceau de programme fortement influencé par la lecture des forum PB

Il faut envoyer 5 euros par ligne de code recopiée.
Tu peux envoyer les chèques à ma banque, je te donnerais les coordonnées en MP

Plus sérieusement, les codes qui sont dans le forum sont libres. Sauf avis contraire de ceux qui les ont posté, tu peux les utiliser. (Ceux qui ne veulent pas qu'on utilise leur codes n'ont qu'à le garder pour eux, le forum est un lieu public, les codes le sont donc aussi!).
Par contre, si quelqu'un du forum t'aide plus particulièrement, tu peux toujours lui mettre un petit remerciement dans le A Propos...

En fait, c'est toi qui est seul juge de l'importance de l'aide que t'apporte le forum, et donc, de qui tu dois remercier.

djmcg · Message par **djmcg** » sam. 18/sept./2004 15:45

Ben merci

Cela donne vraiment envie de participer.

Avec moi sa va être un peu lent, (vu ma vie professionnel pour l'instant)

mais je désespere pas...

Good07 · Message par **Good07** » sam. 18/sept./2004 17:45

Je pense que chacun est libre de prendre mon code ou de s'en inspirer. C'est d'ailleur le but de ce forum je pense. Sinon je l'aurai simplement mise en executable, mais je ne pense pas qu'il soit vraiment génial.

Au contraire, si quelqu'un à une idée pour l'améliorer c'est encore mieux. Je ne suis pas un as de la programmation et j'ai encore beaucoup à apprendre.

Alors allez y avec vos idées je suis là pour voir ! Je vous enverrai la note après...

PureBasic est un forum où règne la bonne humeur et l'humour

A+

djmcg · Message par **djmcg** » sam. 18/sept./2004 18:18

estra

si je vois un jour que je peux améliorer, je ne manquerais de te le dire

Je n'en suis pas encore là, mais mes vieille connaissance reviènne doucement. Mais je me souvient que je suis pas un as des math...

tu vois le genre, en vla un qui code sans les math... ta d'ja vu ca ??

Merci encore.

Aujourd'hui, j'ai sorti des vieux listing, ou que les année passe...

Heis Spiter · Message par **Heis Spiter** » sam. 18/sept./2004 19:44

djmcg a écrit :tu vois le genre, en vla un qui code sans les math... ta d'ja vu ca ??

Je ne citerais que ce qu'un fois un prof de C a dit :

Greg Perry a écrit :Mythe 1: Seuls des mathématiciens peuvent programmer les ordinateurs.

Dieu merci, c'est un mythe : si c'était la vérité, des milliers de personnes (dont l'auteur de ce livre) se trouveraient instantanément au chômage.

Backup · Message par **Backup** » sam. 18/sept./2004 20:05

ben oui !!

je reprendrai a mon actif un celebre paradox !!

un mathematicien se trouve a 10 metres devant un mur
se dit que pour toucher ce mur il devra parcourir au moins la moitie de cette distance soit 10 m/2=5 m

il se deplace donc sur les 5 m calculé !

puis il recommence son resonnement (c'est un st cyrien(par oposition a polytechnique)<--je vous raconterai ça un autre jour !)
donc 5 m/2 encore a parcourir =2.5m
ect... le pauvre mathemeticien ne touchera jamais le mur !!

il restera toujours une valeur a diviser en 2 !!!

nous autres informaticien , on extrapole, et on le prend en pleine poire le mur !! (tant pis pour les Maths !!

) ....... et pour le mur !