Модераторы: Sardar, Aliance
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывести диагональ, параллельную побочной ... 
:(
    Опции темы
SVlexs
Дата 7.11.2005, 20:37 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Как вывести диагональ, параллельную побочной с наибольшей суммой элементов (в двумерном массиве, где строки и столбцы разные)? Программа должна быть помещена в html.

Например: Введите количество строк __(3)
Введите количество столбцов __(4)

Создаем кнопку (Пуск), которая создает матрицу по заданным строкам и столбцам
Появляется матрица и вводим числа
Код
__(1)  __(2)   __(3)  __(4)                                          
__(5)  __(6)   __(7)  __(8)                                      
__(9)  __(0)   __(1)  __(2)                                       
__(3)  __(4)   __(5)  __(6)


Создаем кнопку (Посчитать), которая выводить диагональ
В форме <textarea> появляется диагональ 3
6
9
_______________________
Примерно наподобие этой задачи

Код
<HTML>
<form name=f1>
Найти в каждой строке min эллемент и посчитать их сумму
Строки    <INPUT type=text name=t1 size=2><br>
Столбцы  <INPUT type=text name=t2 size=2><br>
<INPUT type=BUTTON name=but1 value=Пуск>
<INPUT type=BUTTON name=but2 value=Выполнить>
<textarea type="text" name=ta rows=10></textarea>
</form>
<form name=f2>
</form>
<script language="vbscript">

dim i,s,j,n,m,a(),s1,d,w,r
Sub but1_onclick
n=cint(f1.t1.value)
m=cint(f1.t2.value)
for i=1 to n
   for j=1 to m
      s=s+"<input type=text size=2 name=f2.+cstr(m*i+j-1)>"
   next
   s=s+"<br>"
next
f2.innerHTML=s
End sub 


Sub but2_onclick
redim a(n-1,m-1)
i=0
j=0
for each x in document.f2.elements
   if j<=m-1 then 
      a(i,j)=cdbl(x.value) 
      j=j+1
   else 
      j=0
      i=i+1
      a(i,j)=cdbl(x.value)
      j=j+1
   end if
next
for i=0 to n-1
 for j=0 to m-1
  w=w+cstr(a(i,j))+chr(9)
  next
w=w+vbcrlf
next


for i=0 to n-1
   j=0
   q=cdbl(a(i,j)) 
   for j=0 to m-1
      if a(i,j)<=q then q=cdbl(a(i,j))
   next
d=d+cdbl(q)
r=r+cstr(q)+vbcrlf
next

f1.ta.value=cstr(w)+cstr®+"сумма="+cstr(d)
end sub
</SCRIPT>
</HTML>


Это сообщение отредактировал(а) Sardar - 9.11.2005, 01:20
  Вверх
cardinal
Дата 7.11.2005, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99



Цитата(SVlexs @ 7.11.2005, 18:37)
Как вывести диагональ

Как? Перебрать все варианты и вывести в TextBox наибольший из них. Я не очень понял вопроса...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Sardar
Дата 9.11.2005, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бегун
****


Профиль
Группа: Модератор
Сообщений: 6986
Регистрация: 19.4.2002
Где: Нидерланды, Groni ngen

Репутация: 78
Всего: 317



М
 
SVlexs в следующий раз вместо списка "Размер" жми на кнопку Код;-)

Если тебе нужен алгоритм, то тебе в Алгоритмы. Если сумеешь хотя бы простым текстом его описать, то поможем с кодом, решать же твою лаб. работу за тебя мало кто будет.


--------------------
 Опыт - сын ошибок трудных  © А. С. Пушкин
 Процесс написания своего велосипеда повышает профессиональный уровень программиста. © Opik
 Оценить мои качества можно тут.
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Форум для вопросов, которые имеются в справочниках, но их поиск вызвал затруднения, или для разработчика требуется совет или просьба отыскать ошибку. Напоминаем: 1) чётко формулируйте вопрос, 2) приведите пример того, что уже сделано, 3) укажите явно, нужен работающий пример или подсказка о том, где найти информацию.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | JavaScript: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0595 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.