Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
sir_90115
8 / 8 / 1
Регистрация: 08.11.2009
Сообщений: 78
#1

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

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

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

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

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

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

Повернуть элементы матрицы на 90 градусов - Turbo Pascal
И если не сложно, вот ещё: При помощи случайных чисел определить элементы квадратной матрицы размерности n × n . Размерность задать в...

Повернуть матрицу на 90 градусов - Pascal
В двумерный массив размером NxN ввести произвольные числа из диапазона от -4 до 10 (включая границы), N - заданное натуральное число....

Повернуть матрицу на 180 градусов. - Pascal
Добрый вечер уважаемые программисты... Помогите решить матрицу, у меня небольшой завал ( Дана квадратная матрица A порядка M....

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

1
Puporev
Модератор
53842 / 41475 / 14582
Регистрация: 18.05.2008
Сообщений: 97,198
21.10.2010, 08:16 #2
Смотрим темы
Стандартные операции с массивами (матрицами)

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

Добавлено через 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
Привет! Вот еще темы с ответами:

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

Дана квадратная матрица. Повернуть ее на 90 градусов в + направлении (процедуры) - Turbo Pascal
const n=10; Type Atr = array of integer; Procedure matrica (a:Atr); var i,j: integer; begin for i:=1 to n do ...

Повернуть матрицу на 90 градусов по часовой стрелке и вывести результат на экран - Turbo Pascal
Помогите решить))) Дана квадратная матрица n x n, состоящая из натуральных чисел. Повернуть её на 90 градусов по часовой стрелке и...

Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении - Turbo Pascal
Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении. Подключить модуль. Заранее спасибо!


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

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

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