Bonjour, je suis tout nouveau
J'aimerais savoir comment peut-on ecrire en VBS (sous ASP) le triangle de Pascal?
..
Merci
Bonjour, je suis tout nouveau
J'aimerais savoir comment peut-on ecrire en VBS (sous ASP) le triangle de Pascal?
..
Merci
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
En JavaScript c'est
Mais je n'arrive pas a le trouver en VBS
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>
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; ;
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
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>
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager