Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Определить минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Робота с структурированными файлами http://www.cyberforum.ru/cpp-beginners/thread901464.html
Создать программу, которая бы обеспечивала создание, просмотр, дополнения и удаление даных из файла, содержащего информацию о группе студентов а именно имя, пол, рост. Организовать поиск который...
C++ Матрица. Найти номер ее ряда с наибольшей суммой элементов и вывести данный ее номер, а также значение наибольшей суммы Дана матрица размерности M x N. Найти номер ее ряда з найбольшою суммой элементов и вивести даный ее номер а также значение найбольшой суммы http://www.cyberforum.ru/cpp-beginners/thread901460.html
QR разложение (есть эскиз кода и алгоритм) C++
Здравствуйте! Требуется реализовать класс матриц, в котором присутствует QR разложение. На википедии нашёл отличный алгоритм с примерами, написал эскиз кода. При реализации алгоритма появились...
C++ Производный класс, аргументы по умолчанию
Здравствуйте. Есть базовый класс и производный. Проблема в том что в производном классе надо сделать один аргумент, который наследуется от базового класса, по умолчанию, но по условии задания я могу...
C++ Поменять местами наибольший и последний элементы массива http://www.cyberforum.ru/cpp-beginners/thread901390.html
Даны действительные числа х1,...,хn (все числа попарно различны). Поменять местами наибольший и последний элементы. 1 Victoria, сколько ваших тем надо переименовать, чтобы вы обратили наконец...
C++ Исправление ошибок Помогите запустить программу #include <iostream.h> #include <stdlib.h> #include <fstream.h> int vvod(); int vivod(); char Name; struct ved { int tn; char fam; подробнее

Показать сообщение отдельно
Сергей_freeze
6 / 6 / 1
Регистрация: 24.12.2011
Сообщений: 354
14.06.2013, 21:12  [ТС]
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
usescrt;
const n = 10;
Varmm :array[1..n,1..n] of integer;
i, j, SumAbs : integer;
MinSum : Word;
Begin
ClrScr;
 
WriteLn('Исходнаяматрица:');
Randomize;
  For i:=1 to n do
begin
      For j:=1 to n do
begin
mm[i,j]:=Random(20);
          If Random(10)<5 then mm[i,j]:=-mm[i,j];
Write(mm[i,j]:4);
end;
WriteLn;
end;
MinSum:=65535;
WriteLn('Суммымодулейэлементовдиагоналейвышепобочной');
For i:=n-1 downto 1 do
begin
SumAbs:=0;
      For j:=1 to i do
SumAbs:=SumAbs+Abs(mm[j,i-j+1]);
Write(SumAbs:4);
      If MinSum>SumAbs then MinSum:=SumAbs;
end;
WriteLn;
WriteLn('Суммы модулей элементов диагоналей ниже побочной');
For i:=2 to n do
begin
SumAbs:=0;
      For j:=1 to n+1-i do
SumAbs:=SumAbs+Abs(mm[i-1+j,n+1-j]);
Write(SumAbs:4);
      If MinSum>SumAbs then MinSum:=SumAbs;
end;
WriteLn;
WriteLn('Минимальнаясумма:',MinSum:4);
ReadLn;
End
Добавлено через 1 час 16 минут
как вообще это на си написать?
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru