Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
!!! fichier de présentation de l'étape 4 !!!
2 
<center>
3 
  <b><font color=darkcyan size=+1> Etape $etape <u> saisie des valeurs des fonctions</u></font></b>
4 
<table>
5 
  <tr>
6 
    <td>
7 
      <p style="background-color:lightblue">
8 
      Indiquez pour l'objet et la fonction
9 
      ci-dessous, la valeur de la fonction.
10 
      </p>
11 
    </td>
12 
  </tr>
13 
</table>
14 
</center>
15 
<br>
16 
!set obtemp=!line $[$chronobs+1] of $obsrecord
17 
!set obtemp=!trim $obtemp
18 
!set obtemp=!char 2 to -2 of $obtemp
19 
!set indictemp=!trim $(indicList_fonc[$[$chronobs+1];$[$chronfoncs+1]])
20 
!set com=!char 4 to -2 of $indictemp
21 
!set indictemp=!trim $com
22 
 
23 
!set foncsrep=!trim $(foncsrepList[$[$chronobs+1];$[$chronfoncs+1]])
24 
!set foncsrep=!char 2 to -2 of $foncsrep
25 
 
26 
!set fonc=!line $[$chronfoncs+1] of $foncsrecord
27 
!set fonc=!trim $fonc
28 
!set fonc=!char 2 to -2 of $fonc
29 
 
30 
<center>
31 
  <table border=3>
32 
    <tr>
33 
      <th align=center bgcolor=lightblue>
34 
       Objet
35 
      </th>
36 
      <th align=center bgcolor=wheat>
37 
       Fonction
38 
      </th>
39 
      </th>
40 
      <th align=center>
41 
       Valeur de la fonction
42 
      </th>
43 
    </tr>
44 
    <tr>
45 
      <td bgcolor=lightblue align=center>
46 
        <table>
47 
	  <tr>
48 
	    <td bgcolor=white>
49 
	      $obtemp
50 
	    </td>
51 
	  </tr>
52 
	</table>
53 
      </td>
54 
      <td bgcolor=wheat align=center>
55 
        <table>
56 
	  <tr>
57 
	    <td bgcolor=white>
58 
	      $fonc
59 
	    </td>
60 
	  </tr>
61 
	</table>
62 
      </td>
63 
      <td align=center nowrap>
64 
        !if $(ftypList[$(foncstypList[$[$chronfoncs+1]]);])!=matrix
65 
          <input size=20 name=foncsrep value=$foncsrep>
66 
	 !else
67 
	   !set foncsrep=!declosing $foncsrep
68 
	   !set foncsrep=!translate ; to $\
69 
	   $ in $foncsrep
70 
           <textarea rows=6 cols=10 name=foncsrep>$foncsrep</textarea>
71 
	!endif
72 
	&nbsp; type du résultat: <font color=magenta><b>
73 
	$(typafList[$(foncstypList[$[$chronfoncs+1]]);]) </b></font>
74 
      </td>
75 
    </tr>
76 
    <tr>
77 
      <td colspan=3 bgcolor=white>
78 
        <hr>
79 
        Saisir ici si besoin une indication pour cette question:
80 
	<br>
81 
	<center>
82 
	  !set wims_backslash_insmath=no
83 
	  !set indictemp=!reinput $indictemp
84 
	  <textarea name=exo_indic rows=5 cols=60>$indictemp</textarea>
85 
	  !set wims_backslash_insmath=yes
86 
	</center>
87 
      </td>
88 
    </tr>
89 
  </table>
90 
</center>
91 
<br>
92 
 
93 
!read comsDir/valideb