Записать на место отрицательных элементов матрицы нули, а на место положительных — еденицы - VB

Формулировка задачи:

всем доброго времени суток) нужно записать на место отрицательных элементов матрицы нули, а на место положительных - еденицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде. имя и размеры матрицы - D(10,10) как это сделать, при помощи операторов интеджер, сингл, гоуту и т.п)


textual

Код к задаче: «Записать на место отрицательных элементов матрицы нули, а на место положительных — еденицы - VB»

for i=2 to 10
  for j=1 to 10
    if i>j then
      tmp =D(i,j)
      D(i,j) = D(j,i)
      D(j,i) = tmp
    end if
  next j
next i
 
otvet1=""
For i=1 to 9
  otvet1 = otvet1 & D(i,i) & "; "
next i
otvet1 = otvet1 & D(10,10)
 
otvet2=""
For i=1 to 8
  otvet2 = otvet2 & D(i+1,i) & "; "
next i
otvet2 = otvet2 & D(10,9)
 
msgbox otvet1 & vbcrlf & otvet2
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.857 из 5

Источник
Похожие ответы