Вещественная Матрица. Найти сумму элементов каждого столбца матрицы. Сформировать одномерный массив из найденных сумм

@AleksXXX · Регистрация: 07.06.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте! Помогите с решением и блок схемой.Пожалуйста!
Ввести вещественную матрицу Х(10,15).Найти сумму элементов каждого столбца матрицы.Сформулировать,одномерный массив из найденных сумм.Нарисовать blok-cxemy.Определить объем памяти для данных и вычеслительную сложность.Определить наилучший и наихудший варианты входных данных!?

Добавлено через 10 часов 47 минут
Напишите пожалуйста горю

@SladkayaVata · 08.06.2012, 12:25

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
42
43
const n=10; m=15;
type matr=array [1..n,1..n] of real;
mas=array[1..m] of real;
var a:matr;
    x,s:mas;
 h:integer;
procedure random_matr(var a:matr);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to n do 
              a[i,j]:=random(2);
                      end;
end;
Procedure Print_matr(A:matr);
var i,j:integer;
begin
    for i:=1 to n do begin
        for j:=1 to n do write(a[i,j]:5); 
        writeln; 
                      end;
end;
Procedure print_mas(s:mas);
var i,j:integer;
begin
  for i:=1 to n do
  write(s[i],' ');
end;
procedure sum_str1(a:matr; h:integer; var x:real);
var u:integer;
begin
  for u:=1 to n do
  x:=x+a[u,h];
end;
begin {Основная программа}
randomize;
      random_matr(a);
      print_matr(a);
            for h:=1 to n do
                sum_str1(a,h,x[h]);      
      Print_mas(x);
      Readln;
end.

Вот программа, а с остальным сам подумай и сделай

P.s. если нужно вводить матрицу вручную, то в процедуре random_matr поменяй строку
a[i,j]:=random(2);
на
read(a[i,j]);

@AleksXXX · 09.06.2012, 08:03 **[ТС]**

Спасибо Большое!!! Блок-схему попробую сам,честно незнаю как( может кто нибудь начеркает уже завтра нести сдаваться( Заранее спасибо!

Добавлено через 16 часов 24 минуты
Help нарисуйте пожалуйста выход одномерного массива и конец

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7

	Вещественная Матрица. Найти сумму элементов каждого столбца матрицы. Сформировать одномерный массив из найденных сумм 08.06.2012, 07:04. Показов 2493. Ответов 2 Метки нет (Все метки) Здравствуйте! Помогите с решением и блок схемой.Пожалуйста! Ввести вещественную матрицу Х(10,15).Найти сумму элементов каждого столбца матрицы.Сформулировать,одномерный массив из найденных сумм.Нарисовать blok-cxemy.Определить объем памяти для данных и вычеслительную сложность.Определить наилучший и наихудший варианты входных данных!? Добавлено через 10 часов 47 минут Напишите пожалуйста горю 0

@AleksXXX 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 7
	09.06.2012, 08:03 [ТС]
	Спасибо Большое!!! Блок-схему попробую сам,честно незнаю как( может кто нибудь начеркает уже завтра нести сдаваться( Заранее спасибо! Добавлено через 16 часов 24 минуты Help нарисуйте пожалуйста выход одномерного массива и конец 0

Вещественная Матрица. Найти сумму элементов каждого столбца матрицы. Сформировать одномерный массив из найденных сумм

Решение