Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 16.10.2018
Сообщений: 45
1

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру

31.10.2018, 21:30. Показов 456. Ответов 1
Метки нет (Все метки)

Дана квадратная вещественная матрица размерности n. Построить матрицу вектор (одномерный массив) элементы которой соответственно равны сумме элементов каждой строки.

Препод сказал что нужна ещё одна функция, но не получается.
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program lab64;
uses crt;
const
  n = 5;
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of real;
procedure Pr1(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
    for y := 1 to n do
      a[x, y] := random(10);
end;
 
procedure Pr2(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
  begin
    for y := 1 to n do
    begin
      write(a[x, y]:2);
      end;
    writeln;
  end;
end;
 
procedure Pr3(n: integer);
var
  x: integer;
  function F1(n: integer;var x:integer): real;
  var
    y: integer;
  begin
    b[x] := 0;
    for y := 1 to n do
    begin
      b[x] := b[x] + a[x, y];
    end;
    F1 := b[x];
  end;
 
begin
  for x := 1 to n do
  begin
    F1(n, x);
    b[x] := F1(n, x);
  end;
  write(b);
end;
begin
  Pr1(n);
  Pr2(n);
  writeln;
  Pr3(n);
  writeln;
end.
Это моя попытка.
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program lab65;
 
uses crt;
 
const
  n = 5;
 
var
  a: array[1..n, 1..n] of integer;
  b: array[1..n] of real;
 
procedure Pr1(n: integer);
var
  x, y: integer;
begin
  for x := 1 to n do
    for y := 1 to n do
      a[x, y] := random(10);
end;
 
procedure Pr2(n: integer);
var
  x, y: integer;
  function F2(n: integer; var x: integer): real;
  var y: integer;
  begin
  a[x,y]:=0;
    for x := 1 to n do
    begin
      for y := 1 to n do
      begin
        write(a[x, y]:2);
      end;
      writeln;
      F2:=a[x,y ];
    end;
  end;
  procedure Pr3(n: integer);
  var
    x, y: integer;
    function F1(n: integer; var x: integer): real;
    var
      y: integer;
    begin
      b[x] := 0;
      for y := 1 to n do
      begin
        b[x] := b[x] + a[x, y];
      end;
      F1 := b[x];
    end;
 
 
  begin
    for x := 1 to n do
    begin
      F1(n, x);
      b[x] := F1(n, x);
    end;
    write(b); 
  end;
 
begin
  Pr1(n);
  Pr2(n);
  Pr3(n);
  writeln;
end;
begin
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2018, 21:30
Ответы с готовыми решениями:

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

Оформить программу через процедуру
Срочно помогите оформить программу как через процедуру,буду благодарна const n = 20; m = 40; ...

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

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Код программы: const n=6; var a:array of byte; i,j,k,x:byte; begin for i:=1 to n do ...

1
4352 / 2118 / 2117
Регистрация: 10.12.2014
Сообщений: 8,162
01.11.2018, 05:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
procedure outMatr(a : array [,] of Integer) := a.PrintLn;
function sumRows(a : array [,] of Integer) := a.Rows.Select(r->r.Sum).ToArray;
procedure outArr(v : array of Integer) := v.PrintLn;
begin
  var n := ReadInteger('n =');
  var a := MatrRandomInteger(n,n);
  outMatr(a);
  var v := sumRows(a);
  outArr(v);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2018, 05:11

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

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Оформить с использованием функций и процедур. Нахождение основных значений оформить через функцию,...

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Оформить с использованием функций и процедур. Нахождение основных значений оформить через...

Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать через функцию MAIN()
а помогите теперь эту задачку #include <iostream> int main() { int last = 0, next = 1; ...

Оформить программу через процедуру
Помогите оформить через процедуру program lab1; var x:array of real; n,m,i,j:integer;...


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

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

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