**TI92P*prgm_seProgram file 07/09/08, 11:33Rrouth„¥Z*() Prgm Local d,i,j,c,l ClrIO Dialog Title "Bonjour !!!" Text " CRITERE DE ROUTH" Text " Version 1.1" Text " créé par moi" EndDlog ©moi, c'est Etienne Sylvain (ne changez pas le nom SVP) Dialog Title "Degré du polynôme" Request "Degré ",d EndDlog expr(d)d int(d/2)+2c d+2l newMat(l,c)mat1 For i,1,d+1 Dialog Title "Coefficient a"&string(i-1) Request "a"&string(i-1)&" ",#("a"&string(i-1)) EndDlog expr(expr("a"&string(i-1)))#("a"&string(i-1)) EndFor For j,d+1,1,­1 expr("a"&string(j-1))mat1[((­1)^(d-j)+1)/2+1,int((d+1-j)/2)+1] EndFor For i,3,l For j,1,c-1 (mat1[i-1,1]*mat1[i-2,j+1]-mat1[i-1,j+1]*mat1[i-2,1])/(mat1[i-1,1])mat1[i,j] EndFor EndFor ClrIO Disp "Résultat : dans la matrice mat1" Pause Disp mat1 For i,1,d+1 DelVar #("a"&string(i-1)) EndFor EndPrgmläåܾð