Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ОЧЕРЕДЬ!!! даны указатели р1 и р2 на начало и конец непраздной очереди. вытянуть из очереди элементы, пока значение начального элемента очереди не станет парным, и выводить значение вытянутых элементов(если... https://www.cyberforum.ru/ pascal/ thread28552.html Упорядочить массив по неубыванию методом подсчета Pascal
Отсортировать массив отмеченным способом, использовать процедуры введения и вывода массивов, выделить в задаче вспомогательные алгоритмы и оформить их в виде подпрограмм. Упорядочить массив по...
Pascal Превратить исходный массив, поменяв местами все пары соседних элементов https://www.cyberforum.ru/ pascal/ thread28549.html
Составить программу решения задачи на Паскале, использовать процедуры введения и вывода массивов, выделить в задаче вспомогательные алгоритмы и оформить их в виде подпрограмм. Превратить исходный...
Pascal Множественные числа(кто знает сюда) https://www.cyberforum.ru/ pascal/ thread28547.html
Используя множественные числа А, В, С, что состоят из больших латинских букв, заполненные из клавиатуры, составить программу, которая находит: Cu(B\a)
Pascal Разработайте программу копирования длинной строки в короткую
Разработайте программу копирования: а) длинной строки в короткую; б)длинной в длинную, рассматривая строки как массивы символов.( не использовать спец. функции, и Length заменять на Ord).. у...
Pascal сохранить график в текстовом режиме https://www.cyberforum.ru/ pascal/ thread28533.html
задча такова: нужно сделать так, что б этот график сохранился в текстовом режиме при помощи создания массива, заполненного пробелами, и внесения в него графика про помощи псевдо-графики. ...
Pascal Закрасить элементы матрицы в соответствии с рисунком... Дана матрица NxN, закрасить её элементы в соответствии с рисунком (рисунок ниже). Где 1,2,3,4 - закрасить цветом. https://www.cyberforum.ru/ pascal/ thread28528.html Множества в Паскаль Pascal
Напечатать слова предложения в алфавитном порядке Добавлено через 34 секунды Очень сильно прошу всех помочь.
Pascal Среди чисел x^1,x^2...x^n найти наибольшее и наименьшее 1.Составить программу на языке Паскаль с использованием трех видов цикла. Дано действительное число X и натуральное число N. Среди чисел x^1,x^2...x^n найти наибольшее и наименьшее.(^-степень) https://www.cyberforum.ru/ pascal/ thread28512.html Pascal Нарисовать картинку в Pascal https://www.cyberforum.ru/ pascal/ thread28511.html
Вот пропустил тему! Помогите вывести картину(см. вложения) в Pascal R окружности=100. с помощью Uses Graph; используя процедуры rectangle, circle и т.д. Буду очень благодарен
Pascal Составить программу для вычисления значений переменных
1.Составить программу на языке Паскаль с использованием трех видов цикла. Дано действительное число X и натуральное число N. Среди чисел x^1,x^2...x^n найти наибольшее и наименьшее.(^-степень)...
Pascal задача на множество! Всем привет!!Не могу решить задачу,осталась одна ,и не могу(((. вот условия: Даны следующие описания: type продукт= ассортимент=set of продукт магазины=array of ассортимент... https://www.cyberforum.ru/ pascal/ thread28508.html
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.04.2009, 09:18 0

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

03.04.2009, 09:18. Показов 3059. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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

Вернуться к обсуждению:
Вычислить сумму элементов матрицы в заштрихованной области Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2009, 09:18
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2009, 09:18

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

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

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

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

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