VBNet - Форум - Ludi dobrie... Pascal Triangle na ASP ili VBS

Вопрос: Ludi dobrie... Pascal Triangle na ASP ili VBS Добавлено: 10.07.06 17:23

Автор вопроса: Gosha

Pomogite napisat'.
Rabotaet na Java, a nado na VBS...
Thanx zaranee

<SCRIPT LANGUAGE="JavaScript">

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

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

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

T_Result[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_){
Html += '<TD>' +tab_[k] +'</TD>';
}
Html += '</TR>';
  }
  Html += '</TABLE>';
  document.write( Html);
}
var T_Pascal = new Array();
T_Pascal = TrianglePascal(5);
ShowTriangle( T_Pascal);
</SCRIPT>

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 10.07.06 18:20
	А почему бы не объяснить по-человечески, что этот код должен делать? Ответить

Номер ответа: 2 Автор ответа: Gosha Вопросов: 3 Ответов: 6	Профиль \| \| #2	Добавлено: 10.07.06 18:37
	Etot kod doljen generirovat' Treugolnik Paskalya takogo tipa 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 ... nado vvesti chislo strok i on vidaet takoj "treugol'nik" Ответить

Номер ответа: 3 Автор ответа: Gosha Вопросов: 3 Ответов: 6	Профиль \| \| #3	Добавлено: 11.07.06 11:33
	Nikto ne mojet pomoch? Ответить

Номер ответа: 4 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837	Профиль \| \| #4	Добавлено: 11.07.06 12:10
	Это вроде только половинка треугольника паскаля. Ответить

Номер ответа: 5 Автор ответа: Gosha Вопросов: 3 Ответов: 6	Профиль \| \| #5	Добавлено: 11.07.06 16:12
	Esli komu interesno, to u menya poluchilos Ответить

Номер ответа: 6 Автор ответа: Gosha Вопросов: 3 Ответов: 6	Профиль \| \| #6	Добавлено: 11.07.06 16:12
	Esli komu interesno, to u menya poluchilos <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> Ответить

Номер ответа: 7 Автор ответа: Gosha Вопросов: 3 Ответов: 6	Профиль \| \| #7	Добавлено: 12.07.06 19:23
	A teper mne eto nado na ASP.NET... =( Ответить

Страница: 1 |