Salut à tous,


je dois afficher une molécule (tracé de lignes et de cercles entre atomes "connectés") à partir d'1 fichier chargé au préalable contenant les positions (X,Y) des atomes. Pour pouvoir redimensionner à l'écran, j'ai effectué un changement de variable xecran et yecran (Treal)
mais j'ai un problème de syntaxe.
En voici un petit aperçu (incomplet je vous l'accorde) :
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
  begin
    origmode := lastmode;
    grdriver:= detect;
 
    initgraph(grdriver,grmode,'d:\tpinfo~1 ');
 
    errcode := graphresult;
 
    if errcode = grok then
     begin
     for i:=1 to 20 do
      begin
       xecran[i]:= X[i] * 250;
       yecran[i]:= Y[i] * 250;
        circle(xecran[i],yecran[i],50);
et pour la ligne il faut tester les connectivités entre les atomes, avec la matrice de connectivité déjà définie auparavant, mais comment le transcrire en TP ?
Merci d'avance