salut!!!
voilà je suis étudiant et mon prof m'a demander d'écrire un programme qui nous dit si la loi interne associée à une matrice est commutative ou pas.
je vous met ce que j'ai fait
dèjà, le premier bug dans mon truc, c'est qu'il faut obligatoirement que je rajoute un begin et un end à la fin avec rien entre les deux sinon il me dit "end of file unexpected"
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
16
17
18
19
20
21
22
23
24
25 CONST NMAX=10; TYPE matrice = ARRAY[1..NMAX,1..NMAX] OF INTEGER; FUNCTION commutative(m:matrice;n:INTEGER;VAR x,y:INTEGER):BOOLEAN; VAR i:INTEGER; BEGIN FOR i:=0 TO n-1 DO IF (m[n-i,i+1]=m[i+1,n-i]) THEN BEGIN x:=m[n-i,i+1]; y:=m[i+1,n-i]; WRITELN('loi_non_commutative en'); WRITELN(x,y); commutative:=FALSE; END ELSE BEGIN WRITELN('loi_commutative'); commutative:=TRUE; END END; begin end.
là je comprend pas.
ensuite j'aimerai vérifer si mon programme marche bien mais j'arrive pas à écrire une matrice dans pascal et encore moins à appeler ma fonction.
je sais pas comment on fait!!!!
aider s'il vous plait
Titre modifié et balises [code] ajoutées par Hdd34
Merci de consulter les règles du forum
Partager