0 / 0 / 1
Регистрация: 02.03.2012
Сообщений: 46
1

Создать матрицу случайным образом ,количество строк и столбцов ввести с клавиатуры.

02.03.2012, 23:38. Показов 4812. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать матрицу случайным образом ,количество строк и столбцов ввести с клавиатуры.
Условие:
Вычислить количество положительных элементов каждого столбца. Результаты вывести в виде двух столбцов:в первом-номера столбцов матрицы,во втором-соответствующие количества.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2012, 23:38
Ответы с готовыми решениями:

Создать квадратную матрицу из N строк и N столбцов
создать квадратную матрицу из N строк и N столбцов состояшию из натуральных чисел Зеркально...

Ввести случайным образом массив с числами от 1 до 99
Ввести случайным образом массив с числами от 1 до 99. Добавлено через 1 час 33 минуты random

Сформировать случайным образом матрицу
Помоги пожалуйста решить несколько несложных задач, я сама никак не могу( 1) Сформировать...

Случайным образом заполнить матрицу 7x7
Случайным образом заполнить матрицу 7x7 вещественных чисел.Заменить главную диагональ матрицы...

3
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
02.03.2012, 23:55 2
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
  Max_Value = 10;
var
  Matr: array[1..Max_Value, 1..Max_Value] of integer;
  Count, n, m: integer;
  i, j: byte;
begin
  randomize;
  repeat
    write('Кол-во строк: ');
    readln(n);
    write('Кол-во столбцов: ');
    readln(m);
  until (n in [1..Max_Value]) and (m in [1..Max_Value]);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      Matr[i, j]:=random(30)-15;
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln('Столбец: ', '    Кол-во: ');
  for j:=1 to m do
  begin
    for i:=1 to n do
      if Matr[i, j] > 0 then inc(Count);
    writeln('   ', j, '            ', Count);
    Count:=0;
  end;
end.
1
0 / 0 / 1
Регистрация: 02.03.2012
Сообщений: 46
03.03.2012, 00:04  [ТС] 3
Ev[G]eN, а как сделать эту задачу,с процедурами ввод,вивод????
0
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
03.03.2012, 00:10 4
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
const
  Max_Value = 10;
type
  TMatr = array[1..Max_Value, 1..Max_Value] of integer;
var
  Matr: TMatr;  
  Count, n, m: integer;
  i, j: byte;
 
procedure FormMass(var Matr: TMatr; n, m: integer);
var
  i, j: byte;
begin
  writeln('Введите матрицу: ');
  for i:=1 to n do
    for j:=1 to m do
    begin  
      write('Matr[', i, ',', j, ']: ');
      readln(Matr[i, j]);
    end;
end;
 
procedure PrintMass(Matr: TMatr);
var
  i, j: byte;
begin
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(Matr[i, j]:4);
    writeln;
  end;
end;
 
begin
  repeat
    write('Кол-во строк: ');
    readln(n);
    write('Кол-во столбцов: ');
    readln(m);
  until (n in [1..Max_Value]) and (m in [1..Max_Value]);
  FormMass(Matr, n, m);
  PrintMass(Matr);
  writeln('Столбец: ', '    Кол-во: ');
  for j:=1 to m do
  begin
    for i:=1 to n do
      if Matr[i, j] > 0 then inc(Count);
    writeln('   ', j, '            ', Count);
    Count:=0;
  end;
end.
1
03.03.2012, 00:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2012, 00:10
Помогаю со студенческими работами здесь

Сформировать матрицу, заполнить ее случайным образом и вывести
Сформировать 2 мерный массив 3х4 случайным образом и вывести его.

Ввести случайным образом (используя функцию random) двумерный массив чисел типа byte
Ввести случайным образом (используя функцию random) двумерный массив чисел типа byte, число строк...

Создать случайным образом множества A и B
Создать случайным образом A и B – множества целых чисел из диапазона. Найти ABBABAAB\,\,,,\, если в...

Создать одномерный массив X[1..10] случайным образом
Создать одномерный массив X случайным образом. вывести его в строку. затем заменить элементы,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru