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

Найти сумму элементов из области матрицы А, отмеченной символом ' * '

17.02.2017, 10:54. Показов 608. Ответов 3
Метки нет (Все метки)

Pascal
1
var A : array [1..n,1..n] of real; (n–нечетно)
Найти сумму элементов из области матрицы А, отмеченной символом ' * '

______1_________n
______0 0 0 * 0 0 0
______0 0 * * * 0 0
______0 * * * * * 0
______* * * * * * *
______0 * * * * * 0
______0 0 * * * 0 0
n_____0 0 0 * 0 0 0


получается символы в "ромбе "
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2017, 10:54
Ответы с готовыми решениями:

Найти сумму элементов из области матрицы отмеченной символом ‘*’:
Найти сумму элементов из области матрицы отмеченной символом ‘*’: 0 0 0 * 0 0 0 0 0 * * * 0 0 0...

Найти среднее арифметическое элементов отмеченной области матрицы
Найти среднее арифметическое элементов отмеченной области матрицы.

Найти среднее арифметическое элементов отмеченной области матрицы
Найти среднее арифметическое элементов отмеченной области матрицы. области на картинке.

Найти процентное соотношение положительных и отрицательных элементов отмеченной области матрицы
Найти процентное соотношение положительных и отрицательных элементов отмеченной области матрицы.

3
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
17.02.2017, 14: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
34
35
36
37
38
39
var
A:array [1..100,1..100] of integer;
n,i,j,sum,k:integer;
begin
randomize;
sum:=0;
k:=0;
repeat
writeln('n=');
readln(n);
until n mod 2 > 0;
for i:=1 to n do begin
    writeln;
    for j:=1 to n do begin
        A[i,j]:=random(10);
        write(A[i,j]:3);
    end;
end;
j:=1;
k:=-1;
for i:=((n div 2)+1) downto 1 do begin
    k:=k+1;
    for j:=1 to n do
    if j>k then
       if (j<=n-k) then
          sum:=sum+A[i,j];
end;
k:=0;
for i:=((n div 2)+2) to n do begin
    k:=k+1;
    for j:=1 to n do
    if j>k then
       if (j<=n-k) then
          sum:=sum+A[i,j];
end;
writeln;
writeln('Sum=',sum);
readln;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6163 / 3692 / 2555
Регистрация: 22.11.2013
Сообщений: 10,522
Записей в блоге: 1
17.02.2017, 14:39 3
Hitoku,
Pascal
23
24
25
26
    for j:=1 to n do
    if j>k then
       if (j<=n-k) then
          sum:=sum+A[i,j];
то есть, суммировать элементы от k+1 до n-k.

Если нужны элементы от k+1 до n-k, то почему бы так и не написать вместо 23-26 и 31-34?
Pascal
31
  for j:=1+k to n-k do sum:=sum+a[i,j];
Добавлено через 4 минуты
Pascal
19
20
21
22
23
24
25
26
27
28
k:=0;
for i:=1+n div 2 downto 1 do begin
  for j:=1+k to n-k do sum:=sum+a[i,j];
  Inc(k);
end;
k:=0;
for i:=2+n div 2 to n do begin
  Inc(k);
  for j:=1+k to n-k do sum:=sum+a[i,j];
end;
2
1748 / 1340 / 1407
Регистрация: 28.10.2016
Сообщений: 4,266
17.02.2017, 15:33 4
bormant, ну да, так покороче Ну я особо не оптимизировал. Как в голову пришло сначала - так и написал. И j:=1 (19) забыл убрать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2017, 15:33

Найти сумму элементов из области матрицы А
var A : array of real; Найти сумму элементов из области матрицы А, отмеченной символом '*'...

Найти сумму элементов из области матрицы А...
Нужно составить алгоритм на Pascal var A : array of real; Найти сумму элементов из области...

Найти сумму элементов заштрихованной области матрицы
Дано: Матрица NxN, N - нечетное число а) Найти сумму элементов заштрихованной области (без...

Найти сумму элементов матрицы в треугольной области
нужно написать прогу которая считает сумму элементов треугольника в массиве размером nxn где n...


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

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

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