Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
sir_90115
8 / 8 / 2
Регистрация: 08.11.2009
Сообщений: 78
#1

Повернуть массив вправо на 90 градусов

20.10.2010, 13:02. Просмотров 1197. Ответов 1
Метки нет (Все метки)

Задание:
1.С помощью подпрограммы сформировать массив Ann из целых чисел. С заданными верхним и нижним пределом диапазона чисел, из которых будет состоять массив. Пределы диапазона вводить с клавиатуры.
2. С помощью подпрограммы повернуть этот массив на 90 градусов по часовой стрелке.

Заранее благодарен...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2010, 13:02
Ответы с готовыми решениями:

Повернуть массив на 90 градусов
Нужно повернуть массив на 90 градусов,но только нужно повернуть его так чтобы...

Повернуть элементы матрицы на 90 градусов
При помощи случайных чисел определить элементы квадратной матрицы размерности ...

Повернуть элементы матрицы на 90 градусов
И если не сложно, вот ещё: При помощи случайных чисел определить элементы...

Повернуть матрицу на 90 градусов
В двумерный массив размером NxN ввести произвольные числа из диапазона от -4 до...

Повернуть матрицу на 180 градусов.
Добрый вечер уважаемые программисты... Помогите решить матрицу, у меня...

1
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,534
21.10.2010, 08:16 #2
Лучший ответ Сообщение было отмечено sir_90115 как решение

Решение

Смотрим темы
Стандартные операции с массивами (матрицами)

Описание, объявление и заполнение массивов (матриц)

Добавлено через 18 часов 10 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Pov90(var a:matr;n:byte);
var i,p,k:byte;
    x:integer;
begin
p := n div 2;
for i:=1 to p do
for k:=i to n-i do
  begin
    x:=a[i,k];
    a[i,k]:=a[n-k+1,i];
    a[n-k+1,i]:=a[n-i+1,n-k+1];
    a[n-i+1,n-k+1]:=a[k,n-i+1];
    a[k,n-i+1]:=x;
  end;
end;
 
var a:matr;
    xn,xk:integer;
    n,i,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
writeln('Введите нижний и верхний пределы диапазона чисел:');
readln(xn,xk);
until xn<xk;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for k:=1 to n do
      begin
       a[i,k]:=random(xk-xn+1)+xn;
       write(a[i,k]:5);
      end;
    writeln;
  end;
writeln;
Pov90(a,n);
writeln('Поворот на 90 градусов по часовой стрелке:');
for i:=1 to n do
  begin
    for k:=1 to n do
    write(a[i,k]:5);
    writeln;
  end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2010, 08:16

Повернуть двумерную матрицу на 90 и 180 градусов
2. Вводим с клавиатуры размерности двухмерной матрицы (количество строк и...

Дана квадратная матрица. Повернуть ее на 90 градусов в + направлении (процедуры)
const n=10; Type Atr = array of integer; Procedure matrica (a:Atr);...

Повернуть квадратную матрицу на угол 45 градусов по часовой стрелке
Помогите пожалуйста. Долго бился, не получилось ничего. Условие: Как повернуть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru