Subversion Repositories wimsdev

Rev

Rev 23 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!if $demo=oui
2
  <p>
3
  Pour la démo, on entre une liste de 
4
  !if $exo=1
5
    suites 
6
   !else
7
    fonctions
8
  !endif
9
  réelles sur lesquelles on veut poser des questions:
10
  </p>
11
!endif
12
!if $obsList!=$empty
13
  !set rowsnb=$[floor($obsnb/2)]
14
  !set extrarow=$[$obsnb%2]
15
  <center>
16
  <table border=1 bgcolor=moccasin>
17
      !for i=1 to $rowsnb
18
        !set c1=!item $i of $obsList
19
	!set c1=!trim $c1
20
	!set c2=!item $[($i+$rowsnb)] of $obsList
21
	!set c2=!trim $c2
22
	!set c1=!char 2 to -2 of $c1
23
	!set c2=!char 2 to -2 of $c2
24
	<tr>
25
	  <td bgcolor=azure>
26
	    $c1
27
	  </td>
28
	  <td bgcolor=azure>
29
	    $c2
30
	  </td>
31
	</tr>
32
      !next i
33
      !if $extrarow!=0
34
        !set c3=!item $obsnb of $obsList
35
	!set c3=!trim $c3
36
	!set c3=!char 2 to -2 of $c3
37
	<tr>
3049 bpr 38
	  <td align="center" colspan=2 bgcolor=azure>
23 reyssat 39
	    $c3
40
	  </td>
41
	</tr>
42
      !endif
43
  </table>
44
  </center>
45
!endif