Discussion :

[hamidas15]

bonjour, en Pascal, connaissez vous un programme qui permette de resoudre les operations sur les matrices, ou bien un autre pour l'algorithme de Gauss sur les systemes lineaires ? merci

[darrylsite]

Je crois que tu t' es trompé de forum. Ici, on aide les gens à programmer par eux meme.
si tu as dejà reflechi sur dessus et que tu es bloqué quelque part alors dis le nous et on t' aidera.

[hamidas15]

Ok, alors voici ce ke ja fai, mai ca ne marche pas :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
program matrices
recherche pivot
begin
 i:=k
  Repeat
   if A[ik]:=0 then i:=i+1;
    until A[ik]<>0 or i:=n+1;
     if i:=n+1 then i[0]:=-1;
end
elimination k,b,A
Begin
 for i:=k+1 to n do
  Begin
   r:=A[ik]/A[kk];
    for j:=k to n do
     A[ij]:=A[ij] - r*A[kj];
      b[i]:=b[i] - r*b[k];
end
remontee
x[n]:=b[n]/A[n,n]
for i:=n-1 down to 1
 Begin
  x[i]:=b[i];
   for j:=i+1 to n do
    x[i]:=x[i] - A[i,j]*x[j];
     x[i]:=x[i]/A[i,i];
  end
coordination
Debut
 saisie (n,b,a);
  k:=1 arret:=0
   Repeat
    recherche pivot;
     if i[0]<>k and i[0]<>-1 then;
      begin
       permuter
        elimination
      end;
    else
     if i[0]:=0 then
      begin
     elimination
      k:=k+1;
      end
    else
     arret:=1
    until (k=n) or arret+1;
     if k=n and A[n,n];
      Begin
       remontee
        affiche vecteur (x);
      end
    else
  writln('pas de solution unique');
end.

[Tux++]

Bonjour,

1° indente ton code stp et mets le entre les balises codes prévues à cet effet (le # en haut a droite)

2° Ton code n'est pas correct syntaxiquement parlant, pasd de déclaration de variable, oubli des mot-clefs procédure/fonctions (je suppose), etc

[hamidas15]

je l'ai indenté, c'est en le copiant dans ce forum qu'il est resté comme ca. justemen pourriez vous m'aider à corriger ?

[droggo]

Fae,

je l'ai indenté, c'est en le copiant dans ce forum qu'il est resté comme ca. justemen pourriez vous m'aider à corriger ?

Tu peux quand même commencer par écrire du code qui ait une chance de presque compiler.

Pascal, ce n'est pas Basic (car une bonne partie de ton code ressemble à ça, sans en être vraiment, d'ailleurs [pseudo-code ?]).

Si tu ne connais pas le langage, ce qui se comprend parfaitement, commence par l'apprendre au lieu d'écrire n'importe quoi en espérant que ça ira tout seul.

La programmation, cela implique une certaine rigueur, ça ne s'improvise pas.