Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
1 / 1 / 0
Регистрация: 20.11.2011
Сообщений: 7
1

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

30.11.2012, 12:09. Показов 2162. Ответов 1
Метки нет (Все метки)

Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный "след' (т.е. сумму элементов главной диагонали). Использовать функцию для нахождения следа матрицы и функцию печати матрицы.

Если не сложно, помогите решить.
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2012, 12:09
Ответы с готовыми решениями:

Даны две квадратные матрицы.Напечатать квадрат той из них,в который наименьший след.
Заранее спасибо!!!

Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный след
Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный "след' (т.е. сумму...

Даны две квадратные матрицы n-го порядка. Напечатать ту из них, в которой наименьший след (сумма диагональных элементов)
Вот пример кода, по нему нужно сделать задание которое я написал в заголовке, как...

Даны две квадратные вещественные матрицы 10 порядка. Напечатать квадрат той из них, в которой наименьший след
Даны две квадратные вещественные матрицы 10 порядка. Напечатать квадрат той из них, в которой...

1
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,151
Записей в блоге: 1
01.12.2012, 14:33 2
Лучший ответ Сообщение было отмечено betteam как решение

Решение

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
Type matr=array[1..20,1..20] of integer;
Var A,B:matr;
    n,m:byte;
Procedure Vv_viv(Var A:matr;n:byte);
Var i,j:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
End;
Function Sled(A:matr;n:byte):integer;
Var i,s:integer;
Begin
    s:=0;
    For i:=1 to n do
     s:=s+A[i,i];
    Sled:=s;
End;
Begin
    write('Введите размерность матрицы A: ');readln(n);
    write('Введите размерность матрицы B: ');readln(m);
    writeln('Матрица A');
    Vv_viv(A,n);
    writeln('Матрица B');
    Vv_viv(B,m);
    writeln('След матрицы A = ',Sled(A,n));
    writeln('След матрицы B = ',Sled(B,m));
    if Sled(A,n)<Sled(B,m) then writeln('След матрицы A меньше')
     else writeln('След матрицы B меньше');
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2012, 14:33

Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный "след"
Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный &quot;след&quot; (т.е. сумму...

Даны две матрицы. Напечатать квадрат той из них, в которой наименьший след
Даны две квадратные вещественные матрицы 4-ого порядка.напечатать квадрат той из них в которой...

Напечатать матрицу которая имеет минимальный "след”
Добрый день: Есть задача: Даны две квадратные матрицы nxn. Напечатать ту из них, которая имеет...

Напечатать ту матрицу из двух, которая имеет минимальный след
Даны две квадратные матрицы. Напечатать ту из них, ко¬торая имеет минимальный &quot;след&quot; (т.е. сумму...


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

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

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