Thème : TP

mardi 21 septembre 2010

Colle informatique

Groupe 1. Première séance : survol de la programmation Maple.

mardi 28 septembre 2010

Colle informatique

Groupe 2. Première séance : survol de la programmation Maple.

mardi 16 novembre 2010

Colle informatique

Groupe 1. Deuxième séance : méthode d'Euler. La séance se poursuivra en TD d'info.

mardi 18 janvier 2011

Colle informatique

Groupe PC. Troisième séance. Dichotomie et suites récurrentes. On est allé jusqu'à la suite de Fibonacci.

mercredi 19 janvier 2011

Colle informatique

Groupe PSI. Troisième séance exceptionnellement programmée ce mercredi. Dichotomie et suites récurrentes. On est allé jusqu'à la suite de Fibonacci.

mardi 15 février 2011

Colle informatique

Groupe PC.

TP sur les polynômes et les développements limités

mardi 22 février 2011

Colle informatique

Groupe PSI.

TP sur les polynômes et les développements limités.

mardi 29 mars 2011

Colle informatique

Groupe PC. TP sur la méthode de Newton.

mardi 5 avril 2011

Colle informatique

Groupe PSI. Méthode de Newton.

mardi 24 mai 2011

Colle informatique

Groupe PC.

Evaluation Maple

TP sur le calcul matriciel et l'intégration

jeudi 16 juin 2011

Corrigé de l'évaluation Maple

>    factorielle_montante:=proc(n)

>    local fact,i;

>    fact:=1;# initialisation de la variable fact

>    for i from n to 2*n do

>    fact:=fact*i;

>    end do;

>    fact;

>    end proc;

factorielle_montante := proc (n) local fact, i; fact := 1; for i from n to 2*n do fact := fact*i end do; fact end proc

>    factorielle_montante(20);

6707341935727141628215296000000

La procédure à écrire est récursive

>    maximum:=proc(L)

>    local n,M;

>    n:=nops(L):# nombre d'éléments de la liste L

>    if nops(L)=1 then M:=L[1]:

>    else M:=maximum(L[1..n-1]):

>    if M<=L[n] then M:=L[n]:# on compare le maximum des n-1 premiers elts au dernier elt de la liste

>    end if:

>    end if:

>    M:

>    end proc:

>    L:=[seq(rand(1000)(),k=1..10)];

L := [409, 160, 488, 574, 554, 628, 123, 972, 570, 891]

>    maximum(L);

972

>    max(op(L));

972

>   

>    factorielle_manquante:=proc(n)

>    local fact,i;

>    fact:=1; # initialisation de la variable fact

>    for i from 1 to n by 2 do # le by 2 indique que les pas se font de deux en deux

>    fact:=fact*i;

>    end do;

>    fact;

>    end proc;

factorielle_manquante := proc (n) local fact, i; fact := 1; for i by 2 to n do fact := fact*i end do; fact end proc

>    factorielle_manquante(20);

654729075

La procédure à écrire est récursive

>    minimum:=proc(L)

>    local n,m;

>    n:=nops(L):# nombre d'éléments de la liste L

>    if nops(L)=1 then m:=L[1]:

>    else m:=minimum(L[1..n-1]):

>    if m>=L[n] then m:=L[n]:# on compare le minimum des n-1 premiers elts au dernier elt de la liste

>    end if:

>    end if:

>    m:

>    end proc:

>    L:=[seq(rand(1000)(),k=1..10)];

L := [997, 279, 318, 744, 43, 382, 713, 179, 691, 449]

>    minimum(L);

43

>    min(op(L));

43

[ accueil | Plan des forums | plan du site [xml] | flux rss [xml] ]

Moteur de contenu :
Movable Type 3.33-fr