Programme Stats L1
Posté le 13/06/2011 00:18
Bonsoir,
Je viens soliciter votre aide. J'avais programmé il y a longtemps en langage casio, mais j'ai oublié pas mal de "trucs" syntaxique... Et en plus de ca, je n'ai pas de logiciel sur moi pour tapper comme il faut.
J'ai donc besoin de vous pour me "convertir" mon programme (Test de Khicarré pour ceux a qui ca peut parler)
Periode de partiel oblige, je n'aurais pas le temps de faire ca sur une machine permettant le transfert, j'aurais juste quelque minutes pour mettre le prog sur ma calculatrice.
Pouvez vous maider en me faisant le fxi de ce prog?
Merci d'avance
programme
programme
"nb ligne:"
?->L
"nb colonne:"
?->C
{L+1,C+1}->Dim Mat A
{L+1,C+1}->Dim Mat B
{L+1,C+1}->Dim Mat C
"1er ligne:"
1->J
while J <= L
1->I
while I <= C
?->A
A->MatA[J,I]
I+1->I
endW
J+1->J
"ligne suivante"
endW
------calcul des toto-----------
1->J
while J <= L
1->I
0->A
while I <= C
MatA[J,I]+A->A
I+1->I
endW
A->MatA[C+1,I]
A->MatB[C+1,I]
J+1->J
endW
1->J
while J <= C
1->I
0->A
while I <= L
MatA[J,I]+A->A
I+1->I
endW
A->MatA[I,L+1]
A->MatB[I,L+1]
J+1->J
endW
1->I
0->A
while I <= L
MatA[I,C+1]+A->A
endW
A->MatA[L+1,C+1]
A->MatB[L+1,C+1]
----------------
"création du tableau théorique"
1->J
while J <= L
1->I
while I <= C
(MatA[J,C+1]*MatA[L+1,I])/MatA[L+1,C+1]->MatB[J,I]
I+1->I
endW
J+1->J
endW
"création du tableau X^2"
1->J
while J <= L
1->I
while I <= C
(MatB[J,I]-MatA[J,I])^2/MatA[J,I]->MatC[J,I]
I+1->I
endW
J+1->J
endW
------calcul des toto-----------
1->J
while J <= L
1->I
0->A
while I <= C
MatC[J,I]+A->A
I+1->I
endW
A->MatC[C+1,I]
J+1->J
endW
1->J
while J <= C
1->I
0->A
while I <= L
MatC[J,I]+A->A
I+1->I
endW
A->MatC[I,L+1]
J+1->J
endW
1->I
0->A
while I <= L
MatC[I,C+1]+A->A
endW
A->MatC[L+1,C+1]
