Вычислить сумму элементов главной диагонали матрицы

@cuhdpom · Регистрация: 09.06.2010

Студворк — интернет-сервис помощи студентам

надо решить через функции задачу..непонимаю как решить:

Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n<=15. Вычислить сумму элементов главной диагонали матрицы.

@*~<`PIK`>~* · 16.06.2010, 21:57

Вот)))

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
program Project1;
 
{$APPTYPE CONSOLE}
 
  var mas:array[1..15, 1..15] of integer;
      i,j,n:integer;
 
function summa:integer;
begin
For i:=1 to Length(mas) do
result:=result+mas[i,i];
end;
 
begin
Write('n = ');
Readln(n);
 
Randomize;
For i:=1 to n do
For j:=1 to n do
mas[i,j]:=Random(2);
 
Writeln(summa);
Readln;
end.

@cuhdpom · 16.06.2010, 22:18 **[ТС]**

спасибо!!!

@skiser1 · 18.06.2010, 10:57

У меня такое-же задание. Выдает ошибку на 10 строке 67 String expression expected (Нужно выражение строкового типа). Помогите. И что такое {$APPTYPE CONSOLE}?
Спасибо.

Добавлено через 1 час 9 минут
Вот удалось сделать программу и проверить в паскале. Может кто оценит.

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
program matriza15;
uses crt;
var
    a: array [1..15,1..15] of integer;
    i,j,n,sum1:integer;
begin
    ClrScr;
    write('n=');
    readln(n);
    writeln('matriza');
for i:=1 to n do
for j:=1 to n do
    a[i,j]:=random(100)-20;
for i:=1 to n do begin
    writeln;
for j:=1 to n do
    write(a[i,j]:5);
end;
    writeln;
    sum1:=0;
for i:=1 to n do
    sum1:=sum1+a[i,i];
    writeln('SUM. diagonali=',sum1);
    readln
end.

@Mad_Dog · 18.06.2010, 12:54

Выдает ошибку на 10 строке 67 String expression expected (Нужно выражение строкового типа). Помогите. И что такое {$APPTYPE CONSOLE}?

Немного перепутали Паскаль и Дельфи...

@*~<`PIK`>~* · 18.06.2010, 13:03

Сообщение от skiser1

И что такое {$APPTYPE CONSOLE}?

просто я писал в консольном приложении в Delphi

@cuhdpom · 19.06.2010, 00:48 **[ТС]**

это не прально=(

Добавлено через 1 минуту
во первых я написал что делается через функции ....

Добавлено через 1 минуту
*~<`PIK`>~*, эта прога написана не прально непонятно что выводится
skiser1, у тебя одни циклы сплошные надо через функции написать это обязательное условие

@*~<`PIK`>~* · 19.06.2010, 14:08

Сообщение от cuhdpom

*~<`PIK`>~*, эта прога написана не прально непонятно что выводится

выводится сума элементов главной диагонали

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Project1;
 
  var mas:array[1..15, 1..15] of integer;
      i,j,n:integer;
 
function summa:integer;//функция которая находит сумму элементов главной диагонали
begin
For i:=1 to Length(mas) do
result:=result+mas[i,i];
end;
 
begin
Write('n = ');
Readln(n);//считываем N
 
Randomize;
For i:=1 to n do
For j:=1 to n do
mas[i,j]:=Random(100);//заполняем массив от 1 до N рандомными числами
 
Writeln(summa);//выводим сумму
Readln;
end.

что не так??????

@cuhdpom · 20.06.2010, 12:12 **[ТС]**

тут не прально

Pascal
1
2
For i:=1 to n do
For j:=1 to n do

@*~<`PIK`>~* · 20.06.2010, 12:44

Сообщение от cuhdpom

тут не прально

что не прально???????Это не подсчет суммы а заполнение массива.

@DeLuxe · 20.06.2010, 12:49

*~<`PIK`>~*,

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
program Project1;
const nmx=15;
type arr=array[1..nmx, 1..nmx] of integer;
var i,j,n:integer;
    mas:arr;
function summa(mas:arr; n:integer):integer; {функция которая находит сумму элементов главной диагонали}
var i,j,s:integer;
begin
For i:=1 to n do
for j:=1 to n do if i=j then s:=s+mas[i,j];
summa:=s;
end;
 
begin
Write('n = ');
Readln(n);{считываем N}
 
Randomize;
For i:=1 to n do
For j:=1 to n do
mas[i,j]:=Random(100);{заполняем массив от 1 до N рандомными числами}
 
Writeln(summa(mas,n));{выводим сумму}
Readln;
end.

@*~<`PIK`>~* · 20.06.2010, 15:29

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
program Project1;
const nmx=15;
type arr=array[1..nmx, 1..nmx] of integer;
var i,j,n:integer;
    mas:arr;
function summa(mas:arr; n:integer):integer; {функция которая находит сумму элементов главной диагонали}
var i,j,s:integer;
begin
For i:=1 to n do
for j:=1 to n do if i=j then s:=s+mas[i,j];
//ну это же можно сделать в 1 цикле а не в 2
summa:=s;
end;
 
begin
Write('n = ');
Readln(n);{считываем N}
 
Randomize;
For i:=1 to n do//и вот здесь cuhdpom сказал шо не правильно почему не пойму
For j:=1 to n do
mas[i,j]:=Random(100);{заполняем массив от 1 до N рандомными числами}
 
Writeln(summa(mas,n));{выводим сумму}
Readln;
end.

@DeLuxe · 20.06.2010, 15:34

Не по теме:

*~<`PIK`>~*, и не стоит здесь слушать всяких умников, пусть думают что хотят. твоя программа была действительно неправильной, но совсем не в том месте где тебе указали.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12

	Вычислить сумму элементов главной диагонали матрицы 16.06.2010, 20:37. Показов 2345. Ответов 12 Метки нет (Все метки) надо решить через функции задачу..непонимаю как решить: Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n<=15. Вычислить сумму элементов главной диагонали матрицы. 0

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12
	16.06.2010, 22:18 [ТС]
	спасибо!!! 0

@cuhdpom 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 12
	19.06.2010, 00:48 [ТС]
	это не прально=( Добавлено через 1 минуту во первых я написал что делается через функции .... Добавлено через 1 минуту *~<`PIK`>~, эта прога написана не прально непонятно что выводится skiser1*, у тебя одни циклы сплошные надо через функции написать это обязательное условие 0

@DeLuxe
	20.06.2010, 15:34
	Не по теме: *~<`PIK`>~*, и не стоит здесь слушать всяких умников, пусть думают что хотят. твоя программа была действительно неправильной, но совсем не в том месте где тебе указали. 1