Triangle de Pascal

**yushkoya** · 10/07/2006, 13h15

Bonjour, je suis tout nouveau
J'aimerais savoir comment peut-on ecrire en VBS (sous ASP) le triangle de Pascal?
..
Merci

**jmfmarques** · 10/07/2006, 13h30

Je ne connais absolument rien à la syntaxe de VBS, applicable à ce cas ou à n'importe quel autre cas.

Ce que je sais par contre, c'est que, qu'il s'agisse du triangle de Pascal ou du napperon de Sierpinski, il est vain de croire qu'une syntaxe existe indépendamment d'équations mathématiques, donc d'expressions mathématiques à déterminer avant même de mettre en syntaxe (VBS ou autre).

As-tu passé cette étape ? Si oui : rencontres-tu une difficulté pour exprimer sous VBS telle ou telle autre expression de calcul que tu aurais établie ? et si oui : laquelle ?

Je pense qu'un développeur VBS te dira alors comment traduire en syntaxe CETTE expression là, que tu lui auras bien voulu exposer clairement

**yushkoya** · 10/07/2006, 14h37

En JavaScript c'est

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
<SCRIPT LANGUAGE="JavaScript">

function TrianglePascal( niv_){
  var i, k;
  var T_Result = new Array();


  for( i =0; i< niv_; i++){
    T_Result[i] = new Array();
    T_Result[i][0]= 1;
  }

  for( i=1; i< niv_; i++){
    for( k =1; k < i; k++){
      T_Result[i][k] = T_Result[i-1][k-1] + T_Result[i-1][k];
    }

    T_Result[i][k] = 1;
  }
  return( T_Result);
}

function ShowTriangle( tab_){
  var i, k;
  var Niv  = tab_.length;
  var Html = ' ' +Niv +' niveaux';

  Html += '<TABLE BORDER=0 CELLSPACING =1>';
  for( i in tab_){
    Html += '<TR>';
    for( k in tab_[i]){
      Html += '<TD>' +tab_[i][k] +'</TD>';
    }
    Html += '</TR>';
  }
  Html += '</TABLE>';
  document.write( Html);
}
//=============================
//=============================
var T_Pascal = new Array();
T_Pascal = TrianglePascal(5); - le nombre introduit
ShowTriangle( T_Pascal);
</SCRIPT>

Mais je n'arrive pas a le trouver en VBS

**OpenGG** · 10/07/2006, 14h42

Voici deux procédures écrites en Pascal qu'il faudra transcrire.Je l'ai pas testé mais il devrait fonctionner.

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
Const NbLigne=6;
Var coeff:array[1..NbLigne,1..NbLigne] of integer;
 
procedure CalcTriangle;
var L,C:integer;
begin
//initialisation des 1 dans la première colonne des zéros ailleurs
For L:=1 to NbLigne do
begin
coeff[L,1]:=1;
for C:=2 to L do  coeff[L,c]:=0;
end;
//calcul des coeffs
For L:=2 to NbLigne do
        for C:=2 to L do  coeff[L,c]:=coeff[L-1,c-1]+coeff[L-1,c];
 
 
end;
 
Procedure afficheTriangle;
var L,C:integer;
begin
For L:=1 to NbLigne do
begin
for C:=1 to L do write(coeff[L,c]);
writeln;
end;
end;
 
 
;

**jmfmarques** · 10/07/2006, 15h01

Excusez-moi, mais...
Ni le Java ni le pascal n'étant censés être ici connus :
Je vous suggère d'écrire celà :
soit en algo
soit en français normal.

Ce devrait être simple si ces codes sont les votres
Merci

**yushkoya** · 10/07/2006, 15h02

Envoyé par Lelarge

Voici deux procédures écrites en Pascal qu'il faudra transcrire.Je l'ai pas testé mais il devrait fonctionner.

Const NbLigne=6;
Var coeff:array[1..NbLigne,1..NbLigne] of integer;

procedure CalcTriangle;
var L,C:integer;
begin
//initialisation des 1 dans la première colonne des zéros ailleurs
For L:=1 to NbLigne do
begin
coeff[L,1]:=1;
for C:=2 to L do coeff[L,c]:=0;
end;
//calcul des coeffs
For L:=2 to NbLigne do
for C:=2 to L do coeff[L,c]:=coeff[L-1,c-1]+coeff[L-1,c];

end;

Procedure afficheTriangle;
var L,C:integer;
begin
For L:=1 to NbLigne do
begin
for C:=1 to L do write(coeff[L,c]);
writeln;
end;
end;

;

Merci

**yushkoya** · 11/07/2006, 14h18

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
<html>
<head>
<body>
 
<form methot="GET">
<INPUT type=text value="<%=Request.QueryString("i")%>" name="i">
<input type="submit" name="btnSubmit" value="OK">
</form>
<table border="1" cellspacing="2">
<%
dim tabl(5000,5000)
dim i, j
 
' Initialisation
 
For i=0 to Request.QueryString("i")
  tabl(i,0)=i
  tabl(0,i)=i
Next
 
' Calcul
 
For i=0 to Request.QueryString("i")
      For j=1 to i
		tabl(i,j)=tabl(i,j-1)+tabl(i-1,j)
		tabl(j,i)=tabl(i,j-1)+tabl(i-1,j)
	  Next
Next
 
' Affichage
 
For i=0 to Request.QueryString("i")
response.write "<tr>"
    For j=0 to Request.QueryString("i")
    response.write "<td>" & tabl(i,j) & "</td>"
    Next
response.write "</tr>"
Next
%>
</body>
</html>

Triangle de Pascal

VBScript

Discussions similaires

Partager

Partager