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

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

26.03.2012, 03:23. Показов 1424. Ответов 1
Метки нет (Все метки)

Найти сумму элементов из области матрицы отмеченной символом ‘*’:
0 0 0 * 0 0 0
0 0 * * * 0 0
0 * * * * * 0
* * * * * * *
0 * * * * * 0
0 0 * * * 0 0
0 0 0 * 0 0 0
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2012, 03:23
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
26.03.2012, 07:44 2
Лучший ответ Сообщение было отмечено tralala как решение

Решение

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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j,k,p,s:integer;
begin
textbackground(0);
textcolor(15);
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);
{середина матрицы}
if odd(n) then k:=n div 2+1
else k:=n div 2;
p:=ord(n mod 2<>0);{добавка для нижней половины 0 или 1}
s:=0;{сумма}
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if ((i in [1..k])and(j in [k-i+1..n-k+i])){верхняя часть}
    or ((i in [k+1..n])and(j in [i-k+p..n-i+k-p+1])) then{нижняя}
     begin
      textcolor(10);
      s:=s+a[i,j];
     end
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
writeln('Сумма в выделенной области=',s);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2012, 07:44

Найти s - сумму элементов из области массива А, отмеченной символом ' * '
const n =...; double A , s; * 0 0 0 0 0 * 0 * 0 0 0 * 0 0 0 * 0 * 0 0 0 0 0 * 0 0 0 0 0 * 0...

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

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

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

Найти сумму элементов в заштрихованной области матрицы
Дана матрица А чисел размером 5х5 элементов. Найти сумму элементов массива А из заштрихованной...

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


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

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

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