Exercice suivant

Listes

Question posée à l'examen du 11 octobre 1999

Indiquez ligne après ligne ce qu'imprime le programme suivant:

program listes;
var gDe,gA:integer;

procedure compter1(inDe,inA : integer);
begin
  if(inDe<inA) then begin
    writeln(inDe);
    compter1(inDe+1,inA);
    end; (* if *)
end;

procedure compter2(inDe,inA : integer);
begin
  if(inDe<inA) then begin
    compter2(inDe+1,inA);
    writeln(inDe);
    end; (* if *)
end;

procedure compter3(inDe,inA : integer);
begin
  if(inDe<inA) then begin
    writeln(inDe);
    compter3(inDe+1,inA);
    writeln(inDe);
    end; (* if *)
end;

procedure compter4(var inDe,inA : integer);
begin
  if(inDe<inA) then begin
    writeln(inDe);
    inDe:=inDe+1;
    compter4(inDe,inA);
    writeln(inDe);
    end; (* if *)
end;

begin
  gDe:=1;
  gA:=4;
  writeln('Avant compter1');
  compter1(gDe,gA);

  gDe:=1;
  gA:=4;
  writeln('Avant compter2');
  compter2(gDe,gA);

  gDe:=1;
  gA:=4;
  writeln('Avant compter3');
  compter3(gDe,gA);

  gDe:=1;
  gA:=4;
  writeln('Avant compter4');
  compter4(gDe,gA);
end.

Solution

Exercice suivant

Site Hosting: Bronco