Сформировать массив Z(N,N). Повернуть его на 270 градусов

[Firstaid]

Доброго времени суток всем!

Такое задание: Сформировать массив Z(N,N). Повернуть его на 270 градусов.

Как сформировать квадратную матрицу я знаю, а вот как повернуть ее на 270 градусов - нет. Каким образом это можно сделать?

[Cuprum5]

Вероятно, используя фокусы с координатами. А на каком языке это надо сделать?

//ST[stroka][stolbec] - старый массив, данные
//NOV[stroka][stolbec] = {0};
int str, stl;

for(str = 0; str < N; str++)       //координаты ячейки в старом массиве
    for(stl = 0; stl < N; stl++)
        NOV[stl][N-str] = ST[str][stl];

Проверьте код - я не проверял. Потом скажете - работает/нет, ладно?

[Aleksandr H.]

http://forundex.ru/yap/Povernutj-mat...radusov-634053

[Cuprum5]

Зачем эти rotate90(); - мой код гораздо компактнее и удобнее, возьмите лучше его.

[RyV_9]

Если задан поворот на 270 градусов против часовой стрелки (традиционное задание поворота в декартовых осях), то он равносилен повороту на 90 градусов по часовой стрелке. Поэтому ответ Cuprum5 верен с точностью до последней строки, надо чуть исправить:
NOV[stl][N-str-1] = ST[str][stl];

[Firstaid]

Сообщение от Cuprum5

А на каком языке это надо сделать?

На Basic. В среде Visual Basic 6.0

[Firstaid]

Сообщение от RyV_9

Поэтому ответ Cuprum5 верен с точностью до последней строки, надо чуть исправить:
NOV[stl][N-str-1] = ST[str][stl];

А как это в VB 6.0 реализовать? Что использовать для поворота матрицы? Какие функции?

[ViktorR]

Коли знаешь как изготовить матрицу

Как сформировать квадратную матрицу я знаю, а вот как повернуть ее на 270 градусов - нет. Каким образом это можно сделать?

то

А как это в VB 6.0 реализовать? Что использовать для поворота матрицы? Какие функции?

должно быть несложно.
Ведь у тебя есть решение на Cи. Открывай Google или Yndex и задавай вопросы типа: "Циклы в Basic", "Двумерные массивы Basic" или что-то в этом роде.
Как то это не очень хорошо у тебя твой "хлеб" (желание учиться) отнимать.

PS: Неужто за десять дней не нашёл решения ... ???

[Cuprum5]

FirstAid, говорите сразу язык, ладно?
Предполагаем, что массив имеет целые числа.
Excel.

Sub Massiv()
Const N As Integer = 4
Dim Z(N - 1, N - 1) As Integer
Dim NOV(N - 1, N - 1) As Integer
Dim str, stl As Integer

For str = 0 To N - 1
    For stl = 0 To N - 1
        Z(str, stl) = stl
    Next stl
Next str

Sheets("Лист1").Cells(1, 1) = "Vhodnoi massiv Z"
For str = 0 To N - 1
    For stl = 0 To N - 1
        Sheets("Лист1").Cells(str + 2, stl + 1) = Z(str, stl)
    Next stl
Next str

For str = 0 To N - 1
    For stl = 0 To N - 1
        NOV(stl, N - 1 - str) = Z(str, stl)
    Next stl
Next str

Sheets("Лист1").Cells(7, 1) = "Vihodnoi massiv NOV"
For str = 0 To N - 1
    For stl = 0 To N - 1
        Sheets("Лист1").Cells(str + 8, stl + 1) = NOV(str, stl)
    Next stl
Next str
End Sub

Если помог - нажми на весы.

[Firstaid]

Сообщение от Cuprum5

Sub Massiv()
Const N As Integer = 4
Dim Z(N - 1, N - 1) As Integer
Dim NOV(N - 1, N - 1) As Integer
Dim str, stl As Integer

For str = 0 To N - 1
    For stl = 0 To N - 1
        Z(str, stl) = stl
    Next stl
Next str

Sheets("Лист1").Cells(1, 1) = "Vhodnoi massiv Z"
For str = 0 To N - 1
    For stl = 0 To N - 1
        Sheets("Лист1").Cells(str + 2, stl + 1) = Z(str, stl)
    Next stl
Next str

For str = 0 To N - 1
    For stl = 0 To N - 1
        NOV(stl, N - 1 - str) = Z(str, stl)
    Next stl
Next str

Sheets("Лист1").Cells(7, 1) = "Vihodnoi massiv NOV"
For str = 0 To N - 1
    For stl = 0 To N - 1
        Sheets("Лист1").Cells(str + 8, stl + 1) = NOV(str, stl)
    Next stl
Next str
End Sub

Только среда у меня не Excel, а Visual Basic 6.0 поэтому нужно внести какие-либо изменения

Вот например вот это Sheets("Лист1").Cells(str + 8, stl + 1) = NOV(str, stl) - это что? Вывод массива?