Записать на место отрицательных элементов матрицы нули, а на место положительных — еденицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д