Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 30.01.2015
Сообщений: 81
1

Дан двумерный массив А. Расставить его столбцы в следующем порядке:первый,последний,второй,предпоследний и т.д

30.10.2015, 11:26. Просмотров 895. Ответов 1
Метки нет (Все метки)

Дан двумерный массив А. Расставить его столбцы в следующем порядке: первый,последний,второй,предпоследний и т.д
Желательно с процедурами Init, print,insert
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2015, 11:26
Ответы с готовыми решениями:

Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,., второй,первый
Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,..,...

Дан двумерный массив А. Расставить его столбцы в следующем порядке-первый, последний, второй, предпоследний, третий.
Дан двумерный массив А. Расставить его столбцы в следующем порядке-первый, последний, второй,...

Дан файл чисел. Расставить его элементы в следующем порядке: первый, последний, второй, предпоследний и т.д
Помогите с задачкой. Дан файл чисел. Расставить его элементы в следующем порядке: первый,...

Поменять местами первый и последний столбцы, второй и предпоследний и т.д
Не могу понять почему не работает.((((( В двумерном массиве размерности N x M поменять местами...

1
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
30.10.2015, 17:18 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
39
40
41
const n=3;m=7;
type mas=array[1..n,1..m] of integer;
var a:mas;j,mm:integer;
procedure init(var x:mas);
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to m do
   x[i,j]:=random(11)
end;
procedure print(x:mas;mm:string);
var i,j:integer;
begin
 writeln(mm,':');
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:3);
   writeln
  end;
 writeln
end;
procedure insert(var x:mas;st1,st2:integer);
var i,j,temp:integer;
begin
 for i:= 1 to n do
   begin
    for j:=st2 downto st1+1 do
     begin
       temp:= a[i,j];
       a[i,j]:=a[i,j-1];
       a[i,j-1]:=temp
     end
   end
end;
begin
 init(a);
 print(a,'A');
 j:=2;
 while j<=m do begin insert(a,j,m); inc(j,2) end;
 print(a,'A''');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2015, 17:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А
Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А. Расставить в...

вывести символы в следующем порядке: первй символ из входного файла, последний символ, второй символ, предпоследний смвл
Дан файл in.txt, содержащий текст. Требуется вывести в файл out.txt символы в следующем порядке:...

Получите новый массив - поменяйте местами первый на последний, второй на предпоследний
Дан массив А из n элементов. Получите новый массив - поменяйте местами первый на последний, второй...

Дан файл целых чисел, содержащий не менее четырех элементов. Вывести его нулевой, первый, предпоследний и последний элем
Дан файл целых чисел, содержащий не менее четырех элементов. Вывести его нулевой, первый,...


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

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

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