Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 24.01.2010
Сообщений: 5
1

Операции с массивами и матрицами, подсчет кол-ва столбцов содержащих отрицательные элементы.

24.01.2010, 18:18. Просмотров 1088. Ответов 3
Метки нет (Все метки)


Нужна помощь с таким заданием:
Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В противном случае все отрицательные элементы матрицы возвести в квадрат. При выполнении нужно максимально задействовать процедуры и функции.
В частности не могу сообразить, как реализовать подсчет кол-ва столбцов содержащих отрицательные элементы. Подскажите, в каком направлении двигаться.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2010, 18:18
Ответы с готовыми решениями:

Найти количество столбцов, содержащих только отрицательные элементы
количество столбцов, содержащих только отрицательные элементы: #include <iostream> #include...

Вывести номера столбцов, содержащих только отрицательные элементы
Дана вещественная матрица размерности n * m. Вывести номера столбцов, содержащих только...

Вывести номера столбцов, содержащих только отрицательные элементы.
Дана вещественная матрица размерности n * m. Вывести номера столбцов, содержащих только...

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

__________________
Помогаю в написании студенческих работ здесь.
3
Модератор
63211 / 46972 / 32373
Регистрация: 18.05.2008
Сообщений: 113,850
24.01.2010, 18:45 2
Цитата Сообщение от CocaCola Посмотреть сообщение
подсчет кол-ва столбцов содержащих отрицательные элементы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
s:=0;
for j:=1 to m do//по столбцам
 begin
  k:=0;
  for i:=1 to n do//по столбцу вниз
  if a[i,j]<0 then
  begin
   k:=1;
   break; 
  end;
 if k=1 then s:=s+1;
end;
1
даймонд
13.09.2013, 19:59 3
У меня такая же задача, получилиось вот что:
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
a: array[1..m,1..n] of integer;
   i, j, k, s: integer;
 
   Begin
writeln('Enter size');
readln;
s:=0;
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  end;
 begin
  if a[i,j]<0 then begin
   k:=1;
   end;
 if k=1 then s:=s+1;
end;
begin;
if k<0
   then a[i,j]:=a[i,j*2-1]*10;
   end;
begin;
if k>0
then a[i,j]:=a[i,j]*a[i,j]
end;
writeln(a[i,j],' ');
end.
Подскажите, пожалуйста, где ошибка. паскаль читает, но при вводе параметров не работает.
Модератор
63211 / 46972 / 32373
Регистрация: 18.05.2008
Сообщений: 113,850
13.09.2013, 20:46 4
Лучше создайте новую тему и напишите точное и полное задание, а не этот бред.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2013, 20:46

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

Определить номера столбцов содержащих только отрицательные элементы матрицы
Помогите пожалуйста сделать задание : определить номера столбцов содержащих только отрицательные...

Вывести номера столбцов матрицы, содержащих только отрицательные элементы (Pascal -> C++)
Дана вещественная матрица размерности (n x m). Вывести номера столбцов, содержащих только...

Матрица(Поменять местами столбец N и первый из столбцов, содержащих только отрицательные элементы)
Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов, содержащих...

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


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

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

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