Inscription / Connexion Nouveau Sujet
Les carrés tournants - Xcas
Salut a vous!
Faisant mon DM de maths, je tombe sur un problème assez complexe dont voici l'énoncé:
"En utilisant le module tortue de Xcas, écrire un programme qui réalise le tracé de n carrés tournants."
Etant sur mon mobile, je n'ai pas d'illustration, je la posterai ce soir.
Cependant, le premier carré a pour côté a, la longueur séparant le point A du carré ABCD du point A' de A'B'C'D' est de a/5.
En espérant que vous pourrez m'aider.
~L.SE
Voici l'illustration fournie avec l'exercice.
Pour la première figure, n=2, et pour la seconde, n=10.
Merci d'avance.
Bonjour,
Une piste...
Se mettre en mode degrés.
Alt-P pour ouvrir un éditeur de programme
carres(a,n):={
pour j de 1 jusque n faire
avance a;
tourne_gauche 90;
avance a;
tourne_gauche 90;
avance a;
tourne_gauche 90;
avance a;
tourne_gauche 90;
avance a/5;
tourne_gauche atan(1/4);
a := a*sqrt(17)/5;
fpour;
}:;
puis "OK (F9)"
Alt-D pour ouvrir un niveau de dessin tortue.
efface;
cache_tortue;
carres(100;10);
Nicolas
bonjour,
Une belle piste 
Mais si vous ne savez vous mettre en mode degrés ( en décochant radian dans "Cfg" "configuration du CAS"
Vous pouvez mettre
tourne_gauche 14;
ou
tourne_gauche 14.036;
à la place de
tourne_gauche atan(1/4);
et justifier les calculs
la tortue (langage logo) c'est en principe pour les écoliers !!
Pour une classe de seconde ou de première je ferais comme ceci:
Prérequis:
1/ pour définir et construire M tel que vect(AM)=3*vect(AB) on tape M:=A+3*(B-A)
2/ L:=append(L,objet) pour ajouter objet à une liste L
carres(n):={
local A,B,C,k,figure;
A:=point(0,0);
B:=point(10,0);
figure:=[carre(A,B,C)]
pour k de 1 jusque n faire
A:=A+(1/5)*(B-A);
B:=B+(1/5)*(C-B);
figure:=append(figure,carre(A,B,C));
fpour
retourne figure
}:;
on tape carres(20) et on valide (repère orthonormé)
Annuler
connectez vous