Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Fuhezo
0 / 0 / 0
Регистрация: 03.03.2013
Сообщений: 15
1

В данной целочисленной квадратной матрице порядка N

03.03.2013, 10:32. Просмотров 978. Ответов 1
Метки нет (Все метки)

Всем доброе утро)
Помогите)
В данной целочисленной квадратной матрице порядка N (N - заданное нечетное натуральное число >= 5) Найти сумму элементов выделенной области. Посчитать области где 1. Задаем через рандом числа) Спасибо

00100
01110
11111
01110
00100
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2013, 10:32
Ответы с готовыми решениями:

В данной квадратной целочисленной матрице порядка 17 указать индексы всех элементов с наибольшим значением
В данной квадратной целочисленной матрице порядка 17 указать индексы всех...

В целочисленной квадратной матрице определить номера строк, все элементы которых четны
В заданной целочисленной квадратной матрице Y порядка nхn(n<=8) определить...

В заданной квадратной матрице порядка n найти наименьший элемент
В данной квадратной матрице порядка n найти наименьший элемент. Получить...

Поворот элементов целочисленной квадратной матрицы
Написать программу, осуществляющую поворот элементов целочисленной квадратной...

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

1
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,343
03.03.2013, 11:24 2
Лучший ответ Сообщение было отмечено Fuhezo как решение

Решение

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
45
46
47
48
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j,k,p,s:integer;
begin
randomize;
textbackground(1);
textcolor(15);
clrscr;
repeat
write('Размер матрицы от 5 до ',nmax,' n=');
readln(n);
until n in [5..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);
{середина матрицы}
if odd(n) then
 begin
  k:=n div 2+1;
  p:=0;//добавка в нижней части матрицы
 end
else
 begin
  k:=n div 2;
  p:=1;
 end;
s:=0;{сумма}
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i<=k)and(j>=k-i+1)and(j<=n+i-k){верхняя часть}
    or (i>k)and(j>=i-k+1-p)and(j<=n-i+k+p) then{нижняя}
     begin
      textcolor(10);
      s:=s+a[i,j];
     end
    else textcolor(15);
    write(a[i,j]:3);
   end;
  writeln;
 end;
textcolor(10);
writeln('');
writeln('Сумма в выделенной области=',s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2013, 11:24

В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент.
В данной действительной квадратной матрице порядка n найти наибольший по модулю...

Все элементы с наибольшим значением в данной квадратной матрице целых чисел порядка n заменить нулями
Составить алгоритм и программу для решения задачи. Все элементы с наибольшим...

В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением
В данной действительной квадратной матрице порядка n найти сумму элементов...


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

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

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