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

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

16.11.2014, 12:59. Показов 541. Ответов 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
Program lab5_2;
Uses Crt;
Type matr = array [1..5,1..5] of integer;
 mas = array [1..5] of integer;
Var a:matr; b:mas; i,j,jmax,amax:integer;
Begin
clrscr;
writeln('Введите матрицу:');
for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]);
writeln('Исходная матрица:');
for i:=1 to 5 do 
begin
for j:=1 to 5 do write(a[i,j]:3); writeln
end;
for i:=1 to 5 do
begin
jmax:=1; amax:=a[i,1];
for j:=2 to 4 do if a[i,j] > amax then 
begin
amax := a[i,j]; jmax := j
end;
b[i]:=amax
end;
writeln('Полученный массив:');
for i:=1 to 5 do write(b[i]:3);
writeln
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2014, 12:59
Ответы с готовыми решениями:

Найти произведение нечетных отрицательных элементов каждой строки матрицы, результат записать в массив
Помогите пожалуйста написать программку: "Найти произведение нечетных отрицательных элементов...

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

Найти средние значения элементов каждой строки матрицы и записать их в одномерный массив
Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести...

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В
const n=5;m=7; var A:array of integer; B: array of real; i,j,k:integer; begin ...

3
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
18.11.2014, 14:06 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
34
35
36
37
38
{Найти средние геометрические нечетных элементов каждой строки матрицы,
результат записать в одномерный массив}
 
Program lab5_2;
Uses
  Crt,  math;
Type
  matr = array [1..5,1..5] of integer;
  mas = array [1..5] of real;
Var
  a:matr; b:mas; i,j,jmax,amax:integer;
  sum:real;
Begin
  clrscr;
  writeln('Введите матрицу:');
  for i:=1 to 5 do
    for j:=1 to 5 do
      read(a[i,j]);
  writeln('Исходная матрица:');
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(a[i,j]:3);
      writeln
    end;
  for i:=1 to 5 do
    begin
      sum:=1;
      for j:=1 to 5 do
        sum:=sum*a[i,j];
      b[i]:=power(sum,1/5);
    end;
  writeln('Полученный массив:');
  for i:=1 to 5 do
    write(b[i]:8:2);
  writeln;
  readln;
End.
Добавлено через 6 минут
Подправил:
Но есть нюанс, если в строке нет нечетных, то записывается 1. Можно, конечно, подсчитать количество нечетных в строке и если их значение = 0, то вот здесь что делать? Писать в соответствующий элемент массива 0?
Но ведь у нас и среднее геометрическое может быть равно 0.
Коллизия, короче.

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
{Найти средние геометрические нечетных элементов каждой строки матрицы,
результат записать в одномерный массив}
 
Program lab5_2;
Uses
  Crt,  math;
Type
  matr = array [1..5,1..5] of integer;
  mas = array [1..5] of real;
Var
  a:matr; b:mas; i,j,jmax,amax:integer;
  sum:real;
Begin
  clrscr;
  writeln('Введите матрицу:');
  for i:=1 to 5 do
    for j:=1 to 5 do
      read(a[i,j]);
  writeln('Исходная матрица:');
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(a[i,j]:3);
      writeln
    end;
  for i:=1 to 5 do
    begin
      sum:=1;
      for j:=1 to 5 do
        if odd(a[i,j]) then
          sum:=sum*a[i,j];
      b[i]:=power(sum,1/5);
    end;
  writeln('Полученный массив:');
  for i:=1 to 5 do
    write(b[i]:8:2);
  writeln;
  readln;
End.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
18.11.2014, 14:12 3
Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
Но ведь у нас и среднее геометрическое может быть равно 0
Каким образом? 0 не является нечетным числом, так что среднее геометрическое нечетных всегда ненулевое...
1
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
18.11.2014, 14:29 4
UI, о, спасибо! Притормозил я. Значит, можно смело писать в b[i] нулевое значение.0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2014, 14:29

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В
Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести...

Найти наибольшие элементы каждой строки матрицы, и записать их в одномерный массив
Сформировать двумерный массив А размером 6*8 с по мощу генератора случайных чисел и вывести...

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

Найти максимальные элементы каждой строки(столбца) матрицы и записать их в одномерный массив
Найти максимальные элементы каждой строки(столбца) матрицы и записать их в одномерный массив...


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

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

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