Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
parval
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 2
#1

Поменять местами закрашенные области матрицы - Turbo Pascal

15.11.2015, 17:01. Просмотров 214. Ответов 1
Метки нет (Все метки)

Задана матрица целых чисел размером (N; N). Поменять местами
две закрашенные области. Запрещено использование дополнительных
массивов.

Как я понял,надо из зеленой закрашенной области перейти в синюю.
за ранее спасибо!
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2015, 17:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Поменять местами закрашенные области матрицы (Turbo Pascal):

Матрица. Поменять местами две закрашенные области
Заданная матрица целых чисел размером (N, N). поменять местами две...

В квадратной матрице поменять местами две треугольные области
В квадратной матрице поменять местами две треугольные области (верхнюю и...

В квадратной матрице поменять местами две треугольные области
В квадратной матрице поменять местами две треугольные области (правую и левую),...

Определить, попадает ли точка с координатами {x,y} в закрашенные области с заданными параметрами.
Прошу помочь. Определить, попадает ли точка с координатами {x,y} в...

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

Поменять местами столбец матрицы A, в котором имеется хотя бы одно простое число, со строкой матрицы B
Меняются местами столбец матрицы A, в котором имеется хотя бы одно простое...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
16.11.2015, 16:15 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
uses crt;
const n=10;
type mas=array[1..n,1..n] of integer;
var a:mas;
    i,j,tmp:integer;
procedure vv_mas(var x:mas;s:string;f:boolean;c1,c2:integer);
{если массив нужно только вывести, то f=false; если еще и задать, то f=true; с1 и с2 цвета} 
var i,j:integer;
begin
 textcolor(lightgray);
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if f then a[i,j]:=random(21);
     if (i<=n div 2)and((j<=n div 2)or(i>=n-j+1)) then textcolor(c1);
     if (i>n div 2)and((j>n div 2)or(i<=n-j+1)) then textcolor(c2);
     write(a[i,j]:3);
     textcolor(lightgray);
    end;
   writeln
  end
end;
begin
 vv_mas(a,'исxодный:',true,blue,green);  
 for i:=1 to n do
  for j:=1 to n do
   if (i<=n div 2)and((j<=n div 2)or(i>=n-j+1)) 
    then 
     begin
      tmp:=a[n-i+1,n-j+1];
      a[n-i+1,n-j+1]:=a[i,j];
      a[i,j]:=tmp
     end;
 vv_mas(a,'полученный:',false,green,blue);
 readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2015, 16:15
Привет! Вот еще темы с решениями:

Поменять местами элементы матрицы
Необходимо в квадратной матрице поменять местами элементы,лежащие выше главной...

Поменять строки матрицы местами
Дана матрица 6х10,поменять 1,2,3 и 4,5,6 строки местами.Воспользоваться...

Поменять местами элементы матрицы
На форуме нашел 3 таких кода, ни один из них не понял в месте перестановки...

Поменять элементы матрицы местами
короче условие задачи было таким!сделать квадратную матрицу размерностью от 5...


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

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

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