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

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

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

D(10,10)

как это сделать, при помощи операторов интеджер, сингл, гоуту и т.п)

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы