Discussion :

[theblinker]

Alors je voilà je rencontre un petit problème sur un programme à des endroits je suis blouqé!
D'abord voici l'énoncé...
on lance une pièce
pour k€N*, Xk une variable qui vaut 1 quand le keme lancer amène Pile et 0 sinon.Construire un programme en turbo pascal afin qu'il simule les m varaibles X1,X2,...Xm(dont les valeurs seront placées dans le tableau X) et détermine les valeurs de N1,N2,..,Nm(qui seront stockées dans le tableur N)

-m étant une valeur entiere, inférieure à 100,entrée par l'utilisateur
-On note Nn le nombre de série lors des n premiers lancé (on va s'intéresser aux succession de lancers amenant un même côté)

Voici mon programme incomplet...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program simulation;
type suite=array[1..100]of integer;
var X, N :suite;
     m;i:integer;
begin
  readln(m)
  randomize;
  X[1]:=    ;N[1]:=    ;
  for i:=2 to m do begin
      X[i]:=
   end
end.

je pense que j'ai dû oublier une ou eux lignes et et les valeurs de X[1] et N[1]
voilà mercie d'avance pour votre aide

[darrylsite]

Pense aux balises [code];

Voici mon programme incomplet...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
program simulation;
type suite=array[1..100]of integer;
var X, N :suite;
     m;i:integer;
begin
  readln(m)
  randomize;
  X[1]:=    ;N[1]:=    ;
  for i:=2 to m do begin
      X[i]:=
   end
end.

On mettant X[1]:=; Tu veux que l' ordinateur complete à ta place ou quoi ?

[R-Cube]

Je pense qu'il souhaitait que l'on complète.
Je propose cette solution, si vous en avez une meilleure n'hésitez 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
program simulation;
type suite=array[1..100] of Integer;
var X, N:suite;
    m,i:integer;
 begin
 readln(m);
 randomize;
 X[1]:=random(2); N[1]:=1;
 for i:=2 to m do begin
 X[i]:=random(2);
 if X[i]=X[i-1] then N[i]:=N[i-1] 
		else N[i]:=N[i-1]+1;
	end
end.

Si tu veux tu peux rajouter des writeln pour voir tes résultats