С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Katariniana
0 / 0 / 0
Регистрация: 08.06.2011
Сообщений: 13
1

Определить диапазон изменения значений элементов строк матрицы

28.09.2011, 12:34. Просмотров 977. Ответов 1
Метки нет (Все метки)

Помогите Пожалуйста решить следующие задачки, Буду очень благодарна
0
Вложения
Тип файла: docx 3 кр.docx (11.4 Кб, 28 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2011, 12:34
Ответы с готовыми решениями:

Найти сумму наибольших значений элементов строк матрицы
Дана действительная матрица размера m*n. Найти сумму наибольших значений...

Найти сумму наибольших значений элементов строк матрицы
Дана действительная матрица размера m*n. Найти сумму наибольших значений...

Определить числа, равные соответственно разностям наибольших и наименьших значений элементов строк
Дана действительная матрица размера n на m. Определить числа b1...bm, равные...

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

Определить b1,…, bm, соответствующие суммам положительных элементов строк матрицы
Задание 7. Дана действительная матрица размера m x n. Определить числа b1,…, bm...

1
Puporev
Модератор
55506 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,755
28.09.2011, 13:44 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Delphi
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
const n=5;
      m=6;
var a:array[1..n,1..m] of integer;
    i,j,mn,mx:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  mn:=a[i,1];mx:=a[i,1];
  for j:=1 to m do
   begin
    if a[i,j]<mn then mn:=a[i,j];
    if a[i,j]>mx then mx:=a[i,j];
   end;
  a[i,1]:=mn;a[i,m]:=mx;
  for j:=2 to m-1 do
  a[i,j]:=0;
 end;
writeln('Новая матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
Добавлено через 14 минут
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 n=7;
      m=5;
var a:array[1..n+1,1..m] of integer;
    i,j,k:integer;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-20+random(50);
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln;
for j:=1 to m do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]<0 then k:=k+1;
  a[n+1,j]:=k;
 end;
writeln('Новая матрица:');
for i:=1 to n+1 do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.
Добавлено через 15 минут
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
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b,c,d:array[1..nmax*nmax] of integer;
    n,m,k,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Заданная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-3+random(7);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then
 begin
  k:=k+1;
  b[k]:=a[i,j];
  c[k]:=i;
  d[k]:=j;
 end;
writeln('Ненулевые элементы матрицы:');
for i:=1 to k do
write('a[',c[i],',',d[i],']=',b[i]:2,' ');
writeln;
writeln;
writeln('Восстановленная матрица:');
for i:=1 to n do
for j:=1 to m do
a[i,j]:=0;
for i:=1 to k do
a[c[i],d[i]]:=b[i];
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2011, 13:44

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

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

Определить числа матрицы, равные соответственно наименьшим значениям элементов строк
дана действительная матрица размера m x n. Определить числа {b}_{1},...{b}_{m},...


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

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

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