Discussion :

[zymohydrolyse]

Bonjour à tous je travaille actuellement à la réalisation d'un programme d'évolution d'une population mais j'ai un problème au moment de compiler. Pascal me dit illegal expression pour les lignes en rouge :

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
procedure calculevolution(n:integer);
var i,j,k,l,C:integer; t1,t2:tableaunombres; nbmortetouffement, nbmortisolement, nbnaissance, nbsurvie:integer;
begin
for i:=0 to (lmax+1) do
  for j:=0 to (hmax+1) do
    t2[i,j]:=0;
begin
  for i:=1 to lmax do
    for j:=1 to hmax do
      begin
        C:=0;
        for k:=i-1 to i+1 do
          for l:=j-1 to j+1 do
            if t1[k,l]=1 then C:=C+1;
        C:=C-t1[i,j];
        if (t1[i,j]=1) and (C>=nbmortetouffement) then t2[i,j]=0
        else if (t1[i,j]=1) and (C<=nbmortisolement) then t2[i,j]=0
        else if (t1[i,j]=0) and (C=nbnaissance) then t2[i,j]=1
        else t2[i,j]=t1[i,j]
      end;
  end;
end;

je n'arrive pas à comprendre comment rédiger ça correctement.
Merci d'avance pour votre aide.

[batyann811]

Ton problème doit venir des '=' à la place de ':=' pour tes affectations.

[Dr.Who]

exact et :

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
 
procedure calculEvolution(n:integer);
 var i, j, k, l, C : integer; 
     t1, t2 : tableaunombres; 
     nbmortetouffement, nbmortisolement, nbnaissance, nbsurvie : integer;
begin
  for i := 0 to (lmax+1) do
    for j := 0 to (hmax+1) do
      t2[i,j] := 0;
 
  for i := 1 to lmax do
    for j := 1 to hmax do
    begin
      C := 0;
      for k := i-1 to i+1 do
        for l := j-1 to j+1 do
          if t1[k,l] = 1 then 
            inc(C);
 
        C := C - t1[i,j];
        if (t1[i,j] = 1) then 
          t2[i,j] := 0
        else 
        if (t1[i,j] = 0) and (C = nbnaissance) then 
          t2[i,j] := 1
        else 
          t2[i,j] := t1[i,j];
    end;
end;