|
Algorithmique |
| |||||
Le plan est muni d'un repère ; A, B et C sont trois points dont on donne les coordonnées : il faut faire afficher les coordonnées du point D tel que ABCD soit un parallélogramme.
On demande aux élèves de trouver un algorithme avec les trois parties : Entrée, Traitement et Sortie et de préciser les variables qui seront utilisées. Cette recherche d'algorithme vient naturellement après celui du milieu d'un segment et du symétrique d'un point dans une symétrie centrale. En effet une solution consiste à :
On doit obtenir la présentation suivante : Le graphique (qui est automatique dans la feuille préparée) peut être obtenu de la manière suivante : Avec Excel
Avec Calc
Avec Excel ou Calc, le graphique apparaît alors avec les points A, B, C et D. On peut aussi modifier la présentation (couleur de fond, couleur du quadrillage, forme et couleur des marques etc.) ainsi que l'échelle de chaque axe si on veut fixer l'unité principale et secondaire (pour le quadrillage) voire limiter la zone de représentation. On peut ensuite demander aux élèves d'écrire leur algorithme avec Algobox : Dans l'onglet Dessiner dans un repère d'Algobox, on peut, après avoir ajouté une ligne à l'algorithme, cocher Utiliser un repère et cliquer sur Ajouter TRACER POINT ; une boîte de dialogue permet alors d'entrer les coordonnées du point (en désignant les variables correspondantes). On peut aussi tracer des segments. Télécharger le fichier Algobox. En exécutant l'algorithme on obtient la fenêtre suivante : Dans la feuille de calcul précédente d'Excel, on peut aussi créer un bouton pour exécuter un programme Visual Basic (langage intégré à Excel) traduisant l'algorithme précédent : Private Sub CommandButton1_Click() Dim xa As String, xb As String, xc As String, ya As String, yb As String, yc As String Dim xi As Double, yi As Double Dim xd As Double, yd As Double Cells(8, 4).Value = "": Cells(9, 4).Value = "" Cells(11, 4).Value = "": Cells(12, 4).Value = "" Cells(14, 4).Value = "": Cells(15, 4).Value = "" Cells(18, 4).Value = "": Cells(19, 4).Value = "" Cells(22, 4).Value = "": Cells(23, 4).Value = "" xa = InputBox("Donner l'abscisse du point A", "Coordonnées du point A", 2) If xa = "" Then Exit Sub Cells(8, 4).Value = xa ya = InputBox("Donner l'ordonnée du point A", "Coordonnées du point A", 6) If ya = "" Then Exit Sub Cells(9, 4).Value = ya xb = InputBox("Donner l'abscisse du point B", "Coordonnées du point B", 1) If xb = "" Then Exit Sub Cells(11, 4).Value = xb yb = InputBox("Donner l'ordonnée du point B", "Coordonnées du point B", 1) If yb = "" Then Exit Sub Cells(12, 4).Value = yb xc = InputBox("Donner l'abscisse du point C", "Coordonnées du point C", 5) If xc = "" Then Exit Sub Cells(14, 4).Value = xc yc = InputBox("Donner l'ordonnée du point C", "Coordonnées du point C", 3) If yc = "" Then Exit Sub Cells(15, 4).Value = yc 'Calculs intermédiaire xi = (Val(xa) + Val(xc)) / 2 yi = (Val(ya) + Val(yc)) / 2 'affichage du résultat intermédiaire Cells(18, 4).Value = xi Cells(19, 4).Value = yi 'Calcul des coordonnées de D xd = 2 * xi - Val(xb) yd = 2 * yi - Val(yb) Cells(22, 4).Value = xd Cells(23, 4).Value = yd End Sub Télécharger le fichier Excel complété. Avec Calc le programme est un peu plus long du fait du mode d'accès aux cellules de la feuille. Télécharger le fichier Calc complété. Remarques
|