Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Adrikks
0 / 0 / 1
Регистрация: 26.11.2016
Сообщений: 15
1

Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве

08.12.2016, 18:24. Просмотров 770. Ответов 5
Метки нет (Все метки)

Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321
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
var
A:array [1..200,1..200] of integer;
i, j, n, m, k, k1: integer;
begin
writeln('Введите размерность двумерного массива:');
write('n=');
read(n);
write('m=');
read(m);
k:=m;
k1:=k;
m:=2*m-1;
for i:=1 to m do
begin
k:=k1;
  for j:=1 to n do
  begin
    if (j<=k) then
      A[i,j]:=i
    else
    begin
      A[i,j]:=k-1;
      k:=k-1;
    end;
  end;
end;
writeln('Двумерный массив:');
for j:=1 to m do
begin
  for i:=1 to n do
  begin
    write(A[j,i]:3)
  end;
  writeln;
end;
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2016, 18:24
Ответы с готовыми решениями:

Подскажите как сделать, чтобы значения писались по вертикали допустим 1 2 3 4 3 2 1, а не как сейчас 1234567
Подскажите как сделать, чтобы значения писались по вертикали допустим 1 2 3 4 3...

В двумерном массиве поменять попарно строки
Вот такая программа: Program PStolb_2; uses Crt; const N = 4; M = 4; Var...

Поменять местами элементы в Двумерном массиве
Здравствуйте!Мир Вам и Вашему дому. Помогите с таким заданием. Поменять...

Как попарно поменять столбцы в двумерном массиве
Поторопился отправить запрос на тему: &quot;Как попарно поменять столбцы в...

В двумерном массиве 3X5 поменять местами 2 и 5 столбцы
В двумерном массиве 3X5 поменять местами 2 и 5 столбцы вывести на экран исх...

5
Puporev
Модератор
55416 / 42545 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
11.12.2016, 13:09 2
Цитата Сообщение от Adrikks Посмотреть сообщение
3х4 допустим, получим массив заполненный 1234567
если 3х4, то
Код
  1  2  3  4
  5  6  7  8
  9 10 11 12
И что нужно получить? Или не так, тогда нарисуйте как.
0
Adrikks
0 / 0 / 1
Регистрация: 26.11.2016
Сообщений: 15
11.12.2016, 13:16  [ТС] 3
Получается так, а нужно, чтобы вместо 5-ок, 6-ок, 7-ок писалось на уменьшение, то есть 3-ки,2-ки, 1..
Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве
0
Puporev
Модератор
55416 / 42545 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
11.12.2016, 13:35 4
Лучший ответ Сообщение было отмечено Adrikks как решение

Решение

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
var a:array [1..10,1..10] of integer;
    m,n,i,j,k:integer;
begin
repeat
writeln('Введите размерность двумерного массива от 2 до 2 по строкам и столбцам:');
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
until(m in [2..10])and(n in [1..10]);
if odd(m) then k:=m div 2+1
else k:=m div 2;
writeln('Двумерный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i<=k then a[i,j]:=i
    else a[i,j]:=m-i+1;
    write(a[i,j]:3)
   end;
  writeln;
 end;
end.
1
Adrikks
0 / 0 / 1
Регистрация: 26.11.2016
Сообщений: 15
11.12.2016, 13:48  [ТС] 5
Спасибо, понял.
0
Puporev
Модератор
55416 / 42545 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
11.12.2016, 13:52 6
Там строку
Pascal
1
writeln('k=',k);
убери, это я так писал, для проверки.
0
11.12.2016, 13:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2016, 13:52

В двумерном массиве поменять местами максимальный и минимальный элементы
Задача: В двумерном массиве поменять местами максимальный и минимальный...

Поменять попарно столбцы в двумерном массиве используя цикл FOR
Поменять попарно (т. е. 1-й эл. со 2-м, 3-й эл. с 4-м и т. д.) столбцы в...

В двумерном массиве поменять местами максимальный и минимальный элементы
Помогите пожалуйста это реализовать В двумерном массиве поменять местами...


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

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

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