Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 26.03.2009
Сообщений: 7
1

Вычислить сумму элементов матрицы в заштрихованной области

02.04.2009, 23:16. Показов 3003. Ответов 1
Метки нет (Все метки)

1) Вычислить сумму элементов матрицы в заштрихованной области. Уведення и вывод матрицы оформить в виде процедур.
Название: 123.JPG
Просмотров: 296

Размер: 3.6 Кб
2) Составить программу решения задачи на Паскале. Вывод матрицы на экран оформить в виде процедуры.
Дана матрица, вывести все «особенные» элементы. Элемент считается «особенным», если он больше суммы других элементов столбца.
ПОЖАЛУЙСТА ПОМОГИТЕ
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2009, 23:16
Ответы с готовыми решениями:

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

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

Сумма элементов из заштрихованной области матрицы
Найти сумму элементов из заштрихованной области массива 9x9. Ширина полосы задается пользователем:...

сумма элементов матрицы в заштрихованной области
Товарищи программисты, помогите пожалуйста с задачкой: Дана матрица NxN. Определить сумму...

1
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
03.04.2009, 09:18 2
Лучший ответ Сообщение было отмечено T-REX как решение

Решение

№1. Разбирайся.
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
49
uses crt;
type matr=array[1..50,1..50] of real;
procedure Vvod(var x:byte;var m:matr);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to x do
m[i,j]:=10*random;
end;
procedure Vyvod(x:byte;var m:matr);
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to x do
  begin
    for j:=1 to x do
    if ((j>=i)and(j<=x-i+1))
    or (j<=i)and(j>=x-i+1) then
      begin
       textcolor(12);
       write(m[i,j]:5:1);
      end
    else
      begin
       textcolor(15);
       write(m[i,j]:5:1);
      end;
    writeln;
  end;
end;
var a:matr;
    n,i,j:byte;
    s:real;
begin
clrscr;
randomize;
write('Razmer matricy n=');
readln(n);
Vvod(n,a);
Vyvod(n,a);
s:=0;
for i:=1 to n do
for j:=1 to n do
if ((j>=i)and(j<=n-i+1))
or (j<=i)and(j>=n-i+1) then
s:=s+a[i,j];
write('Summa=',s:0:1);
readln
end.
Добавлено через 29 минут 51 секунду
№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
40
41
42
43
44
45
46
47
uses crt;
type matr=array[1..50,1..50] of integer;{тип матрицы}
procedure Vyvod(x:byte;var m:matr);{вывод матрицы на экран(размер, матрица)}
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to x do
  begin
    for j:=1 to x do
    write(m[i,j]:4);
    writeln;
  end;
end;
var a:matr;
    n,i,j,imx,jmx:byte;
    s,mx:integer;
begin
clrscr;
write('Razmer matricy n=');
readln(n);
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
  begin
    write('a[',i,',',j,']=');{ввод делать с клавиатуры, рандомом не получится}
    readln(a[i,j]);
  end;
clrscr;{очистим экран от ввода}
Vyvod(n,a);{вывод}
for j:=1 to n do{смотрим столбцы по-порядку}
  begin
   mx:=a[1,j];imx:=1;{макс пока первый, его номер в строке=1}
   s:=0;{сумма=0}
   for i:=1 to n do{идем вниз по столбцу}
     begin
      s:=s+a[i,j];{суммируем}
      if a[i,j]>mx then
        begin
         mx:=a[i,j];{находим макс}
         imx:=i;{его номер в столбце=номеру строки}
        end;
     end;
    if mx>s-mx then writeln('Element a[',imx,',',j,']=',mx);
{если сумма без максимального меньше максимальношо, выводим элемент}
  end;
readln
end.
Пример
9_1_1
1_8_1
1_1_7
Результат
a[1,1]=9
a[2,2]=8
a[3,3]=7
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2009, 09:18

Найти S - сумму элементов из заштрихованной области массива А
Помогите пожалуйста с задачами, очень нужно в институт. задача. По заданным вещественным числам...

Найти сумму элементов массива в заштрихованной области двумерного массива
Найти сумму элементов массива в заштрихованной области двумерного массива.

Определить максимальный элемент матрицы в заштрихованной области
Напишите функцию определяющую максимальный элемент матрицы в заштрихованной области x x x x x ...

Найти наибольшее из значений в заштрихованной области матрицы
Дана действительная квадратная матрица порядка 3N. Найти наибольшее из значений в заштрихованной...


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

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

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