[Algorithme] Suites

[matmout69]

Bonsoir,

Cela fait plusieurs jours que je cherche un programme de ce genre :


J'aimerais savoir si vous sauriez comment reproduire ce genre sur Ti Nspire CX CAS, merci

Cordialement,

[Adriweb]

Je ne peux que te conseiller de regarder nos corrections d'exercices d'algorithmique qui font justement ce genre de choses.

Et puis pour apprendre à programmer en Basic sur la Nspire, regarde par ici : https://www.youtube.com/watch?v=MB9HHiW ... KDx8Y8KacD

[matmout69]

Merci beaucoup !

[Levak]

Si ce n'est pas indiscret, le screenshot que tu montres, est-ce un mockup ou est-il issu d'une véritable application (PC/tablette/site internet) ?

[Bisam]

Il me semble que c'est Algobox... mis je ne peux pas t'en dire plus : je ne l'ai jamais utilisé.
Critor connait certainement, en revanche.

[Adriweb]

Oui, c'est algobox, j'ai meme un prototruc qui convertit du code (a gauche) en Nspire-Basic (a droite) en direct...



Pour le fun :

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all

                             
-- Algobox to TI-Nspire Basic converter
-- Adrien "Adriweb" Bertrand
-- v0.2 alpha
-- July 7th, 2014

platform.apilevel = '2.0'

function string:trim()
    return self:gsub("^%s*(.-)%s*$", "%1")
end

function deleteNumbersAtBeginning(str)
    return str:gsub('^%d*(%s*.+)$', function(x) return x end)
end

local __VAL = "%w+%[*%w*%]*" -- regexp for a value.

function replaceThings(str)
    str = str:gsub('^%s*(VARIABLES)%s*$', "")--"© %1")
    str = str:gsub('^(%s*)(%w+) EST_DU_TYPE (.+)%s*$', "%1Local %2")--        © %3")
    str = str:gsub('^%s*(DEBUT_ALGORITHME)%s*$', "")--"© %1")
   
    str = str:gsub('^%s*DEBUT_.*$', '')
   
    str = str:gsub('!=', '≠')
    str = str:gsub('==', '=')
    str = str:gsub('('..__VAL..')%%('..__VAL..')', 'mod(%1, %2)')
    str = str:gsub('random%(%)', 'rand%(%)')

    str = str:gsub('^(%s*)('..__VAL..') PREND_LA_VALEUR (.+)%s*$', "%1%2:=%3")
   
    str = str:gsub('^(%s*)POUR (.-) ALLANT_DE (.-) A (.-)%s*$', "%1For %2,%3,%4")
    str = str:gsub('^(%s*)TANT_QUE (.-) FAIRE%s*$', "%1While %2")
    str = str:gsub('^(%s*)SINON%s*$', "__SINON__")
    str = str:gsub('^(%s*)SI (.-) ALORS%s*$', "%1If %2 Then")
   
    str = str:gsub('^(%s*)AFFICHER (.+)%s*$', "%1Disp %2")
    str = str:gsub('^(%s*)LIRE (%w+)%s*$', "%1Request \"%2= %?\", %2")
    str = str:gsub('^(%s*)(TRACER_.+)%s*$', '') -- "%1© %2") -- to handle later.
   
    str = str:gsub('^(%s*)FIN_POUR', '%1EndFor')
    str = str:gsub('^(%s*)FIN_SINON', '%1EndIf')
    str = str:gsub('^(%s*)FIN_SI', '%1EndIf')
    str = str:gsub('^(%s*)FIN_TANT_QUE', '%1EndWhile')
    str = str:gsub('^%s*(FIN_ALGORITHME)%s*$', "")--"© %1")
   
    -- todo : handle powers like    "1e-8"  => "1−8"  ( <=  there is a charactere between, no space)
   
    return str
end

function secondPass(code)
    code = code:gsub(":(%s*)EndIf\n:__SINON__", "%1 : Else")
    return code
end

code = [[1   VARIABLES
2     x EST_DU_TYPE NOMBRE
3     y EST_DU_TYPE NOMBRE
4     a EST_DU_TYPE NOMBRE
5   DEBUT_ALGORITHME
6     LIRE a
7     x PREND_LA_VALEUR 1
8     y PREND_LA_VALEUR a
9     TANT_QUE (abs(y-x)>1.−8) FAIRE
10      DEBUT_TANT_QUE
11      x PREND_LA_VALEUR (x+y)/2
12      y PREND_LA_VALEUR a/x
13      SI (x<y) ALORS
14        DEBUT_SI
15        AFFICHER approx(x), " < approx(racine) < ", approx(y)
18        FIN_SI
19        SINON
20          DEBUT_SINON
21          AFFICHER approx(y), " < approx(racine) < ", approx(x)
24          FIN_SINON
25      FIN_TANT_QUE
26  FIN_ALGORITHME]]

lineBreak = [[

]]
progLines = ":"

function convert(code)
    newCodeTbl = {}
   
    for line in code:gmatch("[^\r\n]+") do
        --ligneNew = deleteWhiteSpacesAtBeginning(line)
        ligneNew = deleteNumbersAtBeginning(line)
        ligneNew = replaceThings(ligneNew)
        newCodeTbl[#newCodeTbl+1] = ligneNew
    end
       
    progLines = ""
    for i,ligne in ipairs(newCodeTbl) do
        if #ligne > 0 then
            progLines = progLines .. ":" .. ligne .. lineBreak
        end
    end
   
    progLines = secondPass(progLines)
   
    progStr = [[Define algo()=
Prgm
]] .. progLines .. [[
:EndPrgm]]

    destED:setText(progLines)
end


function on.enterKey()
    code = sourceED:getText()
    convert(code)
    _res, _err = math.evalStr("DelVar algo:"..progStr)
    if not _res then
        print("Problem while saving (" .. (_err==910 and "syntax error" or ("errCode: " .. _err)) .. ")" )
    else
        print("Program saved successfully !")
    end
end

function on.construction()
    toolpalette.enableCopy(true)
    toolpalette.enableCut(true)
    toolpalette.enablePaste(true)
    sourceED = D2Editor.newRichText():setBorder(1):setText(code):setReadOnly(false):setBorder(1)
    sourceED:registerFilter({escapeKey = on.enterKey})
    destED = D2Editor.newRichText():setBorder(1):setText(progLines):setReadOnly(true):setBorder(1)
    convert(code)
end

function on.resize(w,h)
   sourceED:move(1,1)
   sourceED:resize(w/2-2,h-30-2)
   destED:move(w/2+1,1)
   destED:resize(w/2-2,h-30-2)
   W,H = w,h
end

function on.paint(gc)
    gc:drawString("Press [enter] to export the program",W/2-105,H-26,"top")
end


function myErrorHandler(line, errMsg, callStack, locals)
    print("Error handled ! ", errMsg)
    return true -- let the script continue
end
platform.registerErrorHandler(myErrorHandler)