Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
1 / 1 / 1
Регистрация: 17.03.2013
Сообщений: 69
1

Найти минимум среди сумм элементов диагоналей главной и побочной

19.04.2013, 12:56. Показов 1735. Ответов 2
Метки нет (Все метки)

Дана матрица M(6,6) действительных чисел. Найти минимум среди сумм элементов диагоналей главной и побочной.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2013, 12:56
Ответы с готовыми решениями:

Дана матрица M(6,6) действительных чисел. Найти минимум среди сумм элементов диагоналей главной и побочной
Дана матрица M(6,6) действительных чисел. Найти минимум среди сумм элементов диагоналей главной и...

Для матрицы найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали
Помогите пожалуйста с задачей, с массивам просто я вообще не дружу. Буду очень благодарен! 1....

Определить минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы
Дана целочисленная квадратная матрица:задается с экрана либо генерируется в пределах от -20 до 20...

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

2
4 / 4 / 6
Регистрация: 27.02.2013
Сообщений: 32
19.04.2013, 14:28 2
Лучший ответ Сообщение было отмечено serg235 как решение

Решение

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
{Дана матрица M(6,6) действительных чисел. Найти минимум среди сумм 
элементов диагоналей главной и побочной.}
Program mas_4_7;
Uses Crt;
Var
  mas:array[1..6,1..6] of Double;
  i,j:integer;
  min:real;
Begin
  Randomize;
  For i:=1 to 6 do begin
    For j:=1 to 6 do begin
      mas[i,j] := Random(100)/10;
      Write (mas[i,j], ' '); end;
    WriteLn; end;
  WriteLn;
  min:=100;
  For i:=1 to 6 do begin
    If (min>mas[i,i])Then min:= mas[i,i];
    If (min>mas[i,7-i])Then min:= mas[i,7-i];
  end;
  WriteLn(min);
  WriteLn;
End.
1
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
19.04.2013, 14:34 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
uses crt;
type
ar = array[1..100,1..100] of real;
var
arr: ar;
i,j,n,m:integer;
procedure print(a,b:integer;arr: ar);
var i,j:integer;
begin
    for i:=1 to a do begin
    for j:=1 to b do begin
        write(arr[i,j]:5:1);
    end;
    writeln();
    end;
    writeln();
    
end;
 
procedure vich(n,m:integer;arr:ar);
var i,j: integer;
sum_1,sum_2,min:real;
 
begin
sum_1:=0;
sum_2:=0;
for i:=1 to n do begin
for j:=1 to m do begin
    if (i=j) then sum_1 := sum_1+arr[i,j];
    if (j=n-i+1) then sum_2 := sum_2+arr[i,j];
end;
end;
    write('glav= ',sum_1,' ');
    write('poboch= ',sum_2);
    writeln();
    if (sum_1>sum_2) then write('glav>poboch')
    else write('poboch>glav');
end;
 
begin
    readln(n,m);
    for i:=1 to n do begin
    for j:=1 to m do begin
        arr[i,j] := random(5);
    end;
    end;
    
    print(n,m,arr);
    vich(n,m,arr);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2013, 14:34

Дана целочисленная квадратная матрица. Определить минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы(оформить в виде проц
Добрый день! Помогите с решением пожалуйста: Дана целочисленная квадратная матрица. Определить: ...

Найти минимум среди произведений элементов диагоналей, параллельных главной диагонали матрицы.
Дана действительная матрица размерности (n × n) . 2. Найти минимум среди произведений элементов...

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

Минимум среди сумм элементов диагоналей матрицы
Дана целочисленная квадратная матрица.Определить: 1.Сумму элементов в тех строках, которые не...


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

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

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