Discussion :

[debogeur]

Bonjour,
J'ai un devoir à rendre mais je bloque.
J'aimerais faire un programme qui, dans un premier temps, lit les coordonnées d'un vecteur et qui, ensuite, m'affiche sa norme et enfin affiche le vecteur.
SVP quelqu'un peut-il m'aider ?

[Roland Chastain]

Bonjour ! Quel est le compilateur utilisé ? Quelle est la bibliothèque utilisée pour l'affichage ?

Ensuite, quelle est la difficulté qui vous arrête ? Qu'avez-vous fait jusqu'à présent ?

[debogeur]

j'utilise algospear mais aussi turbo pascal. mon souci est au niveau de l'affichage du vecteur

[anapurna]

Salut,

a priori tu doit avoir une commande line qui devrais faire l'affaire pour l'affichage d'un vecteur
il faut juste connaitre et ou calculer les coordonnées

[e-ric]

Salut à tous.

Est-ce un vecteur 2D ou d'une autre dimension ? La norme est-elle euclidienne ?

Enfin, sais-tu calculer la norme, sur le papier, sans parler d'algorithme ?

Pour le compilateur, si tu utilises FreePascal largement préférable à Turbo Pascal, cela pourra simplifier les échanges.

Cdlt

[debogeur]

Je ne connais pas la commande Line. Pourrais-tu me montrer la syntaxe d'utilisation ?
L'utilisateur doit pouvoir rentrer la dimension.

[anapurna]

Salut

Après vérification il n'existe pas de commande Line mais une commande LineTo dans l'unité Graph.
Il est très simple de créer la fameuse commande Line :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Procedure Line(x1,y1,x2,y2 : integer);
begin
   Moveto(x1,y1);
   Lineto(x2,y2) ;
end;

Tu pourras l’améliorer par exemple en forçant une couleur. Toutes les méthodes de base dont tu as besoin se trouvent dans l'unité Graph pour commencer. Après il existe d'autres unités graphiques bien plus sophistiquées mais ceci est un autre débat.

[e-ric]

Salut

Qu'entends-tu pas afficher un vecteur :
- afficher ses composantes sous forme de nombres ?
- le représenter graphiquement dans un système de coordonnées ?

Cdlt

[debogeur]

l'ide considère moveto et lineto comme des identifiants.
affichage graphique

[e-ric]

Salut

As-tu déjà commencé à coder ou au moins à concevoir quelque chose ?
As-tu déjà une idée de la façon dont tu vas représenter un vecteur (par un type enregistrement, un tableau...) ?

Cdlt

[anapurna]

salut

effectivement a priori il y a méprise sur la question que doit tu afficher ?
des chiffre ou un graphique ?

L'ide ? lequel as tu deja fait du graphisme avec pascal ?

[debogeur]

non je n ai pas encor fait du graph la consigne ne precisait pas vraiment la façon d'afficher s'est juste:
faire un programme qui saisi les coordonnée d'un vecteur, affiche la norme, et le vecteur.
consigne: le choix de la dimension sera laissé à la disposition de l'utilisateur
aidez vous des procedures et des fonctions

[debogeur]

Algospear pour l'ide

[Roland Chastain]

@debogeur

Le but du forum n'est pas de faire faire votre travail par les autres. Donc, encore une fois :

quelle est la difficulté qui vous arrête ? Qu'avez-vous fait jusqu'à présent ?

As-tu déjà commencé à coder ou au moins à concevoir quelque chose ?
As-tu déjà une idée de la façon dont tu vas représenter un vecteur (par un type enregistrement, un tableau...) ?

[debogeur]

Je l'ai dit depuis le début que le seul problème que j'ai c'est l'affichage.
Merci de votre aide et du temps que vous avez passé sur ce devoir.

[Roland Chastain]

L'affichage d'un vecteur, cela consiste, j'imagine, à dessiner un repère et à tracer une ligne. Voici un exemple rapide pour vous montrer le principe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
program exemple;
 
uses
  Graph, WinCrt;
 
const
  SCALE = 50;
 
var
  pilote, mode: smallint;
  xcentre, ycentre: integer;
 
begin
  pilote := VGA;
  mode := VGAHI;
  InitGraph(pilote, mode, '');
 
  if GraphResult = grOk then
  begin
    xcentre := GetMaxX div 2;
    ycentre := GetMaxY div 2;
 
    MoveTo(0, ycentre);
    LineTo(GetMaxX, ycentre);
 
    MoveTo(xcentre, 0);
    LineTo(xcentre, GetMaxY);
 
    SetColor(YELLOW);
 
    MoveTo(xcentre, ycentre);
    LineTo(xcentre + 3 * SCALE, ycentre - 2 * SCALE);
 
    ReadKey;
    CloseGraph;
  end;
end.

La compilation de cet exemple a été testée avec Free Pascal 3.0.0. Algospear, je ne sais pas ce que c'est.

[l_autodidacte]

...... Algospear, je ne sais pas ce que c'est.

C'est un environnement de développement développé par (Mohamed HILALI) un professeur d'informatique tunisien (de la région de Mahdia,me semble-t-il, au centre du Sahel).
Il est pris en charge par pratiquement toutes les versions de Windows sans besoin d'émulateur comme DosBox.

Le programme d'installation est téléchargeable ICI

[e-ric]

Salut,

Question un peu hors sujet mais bon : pourquoi les profs continuent à enseigner le Turbo Pascal ?

Mon point de vue :
Son descendant libre direct FreePascal met à disposition des mécanismes bien plus puissants sans les rendre obligatoires pour autant, par ailleurs, il continue à évoluer contrairement à TP qui est scotché dans le passé. Enfin, je ne vois pas d'avantage pédagogique dans le choix de TP face à FP.

Pas la peine de troll-er sur ma question, j'aimerais seulement quelques arguments.

Cdlt

[l_autodidacte]

C'est un choix du Ministère de l’Éducation, les profs n'ont rien à y avoir.

Ce choix concerne uniquement les sections Lettres, Économie et Gestion, Sciences Expérimentales et Mathématiques.

Pour la section Informatique, on utilise également le langage C et suite, Java....