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

В двухмерном массиве найти все элементы, сумма индексов столбца и строки

30.06.2013, 18:53. Просмотров 475. Ответов 7
Метки нет (Все метки)

Помогите написать программу,пожалуйста
Заранее спасибо!
Условие:
В двухмерном массиве найти все элементы, сумма индексов столбца и строки
которых нечетное число, и получить из них одномерный массив.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2013, 18:53
Ответы с готовыми решениями:

В двухмерном массиве найти все элементы, сумма индексов столбца и строки которых четное число
В двухмерном массиве найти все элементы, сумма индексов столбца и строки которых четное число, и...

В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число.
В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых...

В двухмерном массиве вычислить произведение элементов, произведение индексов столбца и строки которых четное число.
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор...

В двухмерном массиве найти номер строки, сумма элементов которой максимальная
В двухмерном массиве найти номер строки, сумма элементов которой максимальная

В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя...

7
Puporev
Модератор
58084 / 44190 / 30528
Регистрация: 18.05.2008
Сообщений: 105,807
30.06.2013, 19:30 2
Pascal
1
2
3
4
5
6
7
8
k:=0;
for i:=1 to m do
for j:=1 to n do
if odd(i+j) then
 begin
  k:=k+1;
  b[k]:=a[i,j]
 end;
1
dima3452
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 25
01.07.2013, 11:47  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
k:=0;
for i:=1 to m do
for j:=1 to n do
if odd(i+j) then
 begin
  k:=k+1;
  b[k]:=a[i,j]
 end;
Какая-то маленькая программа получилась :S
0
Puporev
Модератор
58084 / 44190 / 30528
Регистрация: 18.05.2008
Сообщений: 105,807
01.07.2013, 12:11 4
Это не вся программа, а основная ее часть. Ввод и вывод данных сам пиши.
0
01.07.2013, 12:11
dima3452
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 25
01.07.2013, 15:17  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Это не вся программа, а основная ее часть. Ввод и вывод данных сам пиши.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a:array [1..100,1..100] of integer;
b:array[1..1000] of integer;
k,a,b,c,i,j,n,m,:integer;
begin
write('razmer ');
read(n,m);
writeln;
writeln('ishodniy:');
k:=0;
for i:=1 to m do
for j:=1 to n do
if odd(i+j) then
 begin
  k:=k+1;
  b[k]:=a[i,j]
 end;
writeln;
write('odnomerniy masiv');
end.
Что-то я запутался совсем,не запускается..может еще какие-то переменные дописать?
0
Cyborg Drone
Модератор
6903 / 3599 / 2614
Регистрация: 17.08.2012
Сообщений: 11,505
01.07.2013, 15:32 6
dima3452, у Вас нет ни ввода значений элементов двумерного массива, ни вывода значений элементов одномерного массива.
0
dima3452
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 25
01.07.2013, 16:14  [ТС] 7
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
dima3452, у Вас нет ни ввода значений элементов двумерного массива, ни вывода значений элементов одномерного массива.
А как будет правильно? А то я думал что все написал.
0
Cyborg Drone
Модератор
6903 / 3599 / 2614
Регистрация: 17.08.2012
Сообщений: 11,505
01.07.2013, 16:42 8
Нет, далеко не всё. Нужно сначала откуда-то взять значения элементов массива a: ввести с клавиатуры, прочитать из файла или сгенерировать случайно. Для этого нужно создать цикл в цикле (так как массив a двумерный) и в теле внутреннего цикла получить конкретные a[i, j]. В этом же месте также можно сформировать массив b (незачем программу раздувать: получил a[i, j], проверил сумму индексов, если нечётная, поместил a[i, j] в b[k], k := k+1). Далее нужно создать цикл, в котором элементы массива b будут куда-либо выводиться (на дисплей или в файл).
0
01.07.2013, 16:42
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.07.2013, 16:42

В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив
В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив.

В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя...

В массиве все элементы, имеющие нечетное значение суммы индексов, заменить на максимальный элемент строки
Народ!помогите пожалуйста решить задачу)) В массиве все элементы, имеющие нечетное значение...


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

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

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