Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Hayabussa
0 / 0 / 0
Регистрация: 19.07.2015
Сообщений: 23
1

Найти модуль суммы отрицательных и сумму положительных элементов и создать новую матрицу по заданному условию

30.10.2016, 12:24. Просмотров 380. Ответов 8
Метки нет (Все метки)

программу нужно написать с использование процедур и функций
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2016, 12:24
Ответы с готовыми решениями:

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

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1)Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Если модуль суммы отрицательных больше суммы положительных элементов, заменить все отрицательные нулями
Здравствуйте! Помогите, пожалуйста, сделать блок-схему к программе. Условие. Дан массив F1,...,...

8
Puporev
30.10.2016, 13:03
  #2
 Комментарий модератора 
Напишите текст задачи в теме, ссылка удалена.
0
Hayabussa
0 / 0 / 0
Регистрация: 19.07.2015
Сообщений: 23
30.10.2016, 13:11  [ТС] 3
Составить программу, которая в матрице В(m,n) находит модуль суммы отрицательных элементов и сумму положительных.
Из найденных элементов сформировать новую матрицу С(m,3), в каждой строке которой первые два элемента -найденные суммы, а третий элемент равен минус единице, если первая сумма больше второй, нулю, если они равны, единице, если первая сумма меньше второй. Вывести исходную и полученную матрциу так, чтобы в каждой строке сначала располагалась строка исходной матрицы, а затем строка полученной
0
Puporev
Модератор
56824 / 43420 / 30022
Регистрация: 18.05.2008
Сообщений: 103,428
30.10.2016, 13:43 4
Цитата Сообщение от Hayabussa Посмотреть сообщение
находит модуль суммы отрицательных элементов и сумму положительных.
В каждой строке матрицы?
0
30.10.2016, 13:43
Hayabussa
0 / 0 / 0
Регистрация: 19.07.2015
Сообщений: 23
30.10.2016, 13:47  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
В каждой строке матрицы?
даа
0
Puporev
Модератор
56824 / 43420 / 30022
Регистрация: 18.05.2008
Сообщений: 103,428
30.10.2016, 13:58 6
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
const nmax=15;
var b,c:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    sp,so:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to m do
 begin
  c[i,1]:=0;
  c[i,2]:=0;
  for j:=1 to n do
   begin
    b[i,j]:=-10+random(21);
    if b[i,j]<0 then c[i,1]:=c[i,1]+abs(b[i,j])
    else c[i,2]:=c[i,2]+b[i,j];
    if c[i,1]>c[i,2] then c[i,3]:=1
    else if c[i,1]=c[i,2] then c[i,3]:=0
    else c[i,3]:=-1;
    write(b[i,j]:4);
   end;
  for j:=1 to 3 do
  write(c[i,j]:4);
  writeln;
 end;
end.
1
Hayabussa
0 / 0 / 0
Регистрация: 19.07.2015
Сообщений: 23
30.10.2016, 14:01  [ТС] 7
Ввод и вывод матрицы нужно делать с клавиатуры(через процедуры)
0
Puporev
Модератор
56824 / 43420 / 30022
Регистрация: 18.05.2008
Сообщений: 103,428
30.10.2016, 14:02 8
Делай, хотя я этого в задании не вижу.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4620 / 2905 / 2255
Регистрация: 22.11.2013
Сообщений: 8,110
30.10.2016, 15:00 9
Можно чуть проще
Pascal
22
    if b[i,j]<0 then c[i,1]:=c[i,1]-b[i,j]
Строго говоря, можно и без матриц:
Pascal
15
16
17
18
19
20
21
22
23
24
  for i:=1 to m do begin
    FillChar(c,SizeOf(c),#0);
    for j:=1 to n do begin
      b:=-10+Random(21);
      if b<0 then c[1]:=c[1]-b else c[2]:=c[2]+b;
      if c[1]>c[2] then c[3]:=1 else if c[1]<c[2] then c[3]:=-1;
      Write(b:4);
    end;
    for j:=1 to 3 do Write(c[j]:4); WriteLn;
  end;
0
30.10.2016, 15:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2016, 15:00

Определить, что больше: сумма положительных элементов или модуль суммы отрицательных элементов
Помогите!! Дан массив 7*2 из целых чисел заполненный случайными числами из интервала ....

Найти модуль суммы отрицательных элементов матрицы и сумму положительных элементов
Составить программу, которая в каждой строке матрицы B(m,n), m≤10, n≤12, находит модуль суммы...

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


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

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

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