Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 14.12.2015
Сообщений: 5

Задача на двумерные массивы. Сформировать матрицу и посчитать суммы столбцов и строк

14.12.2015, 11:04. Показов 1650. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сформировать матрицу kxk, состоящую из чисел, вычисленных по формуле : A(ij)=(N-1+I)^j, (N-вводится с клавиатуры). Подсчитать суммы столбцов и строк. Вывести результаты в следующем виде:

Code
М А Т Р И Ц А Чисел и их степеней
* 1 2 3 ... Сум.
1 A11 A12 A13 ... Сум1
2 A21 A22 A23 ... Сум2
3 A31 A32 A33 ... Сум3
. ... ... ... ... ....
--- --- --- ---
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.12.2015, 11:04
Ответы с готовыми решениями:

Двумерные массивы: Сформировать и вывести матрицу
Сформировать и вывести на экран матрицу размером nxn, заданных датчиком случайных чисел на интервале .

Двумерные массивы. Сформировать квадратную матрицу...
Сформировать квадратную матрицу порядка n по заданому образцу: 6 0 0 0 0 1 0 5 0 0 2 0 0 0 4 3 0 0 0 0 4 3 0 0 ...

Двумерные массивы: сформировать матрицу по образцу
сформировать квадратную матрицу порядка n по заданному образцу(n-четное)

1
 Аватар для иван я
17 / 17 / 16
Регистрация: 15.12.2012
Сообщений: 536
15.12.2015, 12:37
Лучший ответ Сообщение было отмечено Aragorn1 как решение

Решение

Aragorn1,
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
Program Create;
uses crt;
const v_max=100; v_min=1;
Type Mas = Array[1..100, 1..100] Of Integer;
Var a : Mas;
       sum,i,j,n:integer;
Begin
write( 'Введите размерность матрицы: ');
readln(n);
Randomize;
For i:=1 To n Do        
    For j:=1 To n Do
      a[i,j]:=Random(v_max-v_min + 1) + v_min;
 
  WriteLn;
  WriteLn('Исходная матрица:');
  For i:=1 To n Do      
    Begin
      For j:=1 To n Do
        Write(a[i,j]:5);
      WriteLn;
    End;
      writeln;
   For i:=1 To n Do
   begin
      For j:=1 To n Do
      begin
      sum:=sum+a[i,j];
        End;
          WriteLn('Сумма строки ',i,'= ',sum);
          sum:=0;
          end;
            writeln;
          For j:=1 To n Do
   begin
      For i:=1 To n Do
      begin
      sum:=sum+a[i,j];
        End;
          WriteLn('Сумма столбца ',j,'= ',sum);
          sum:=0;
          end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.12.2015, 12:37
Помогаю со студенческими работами здесь

Двумерные массивы. Сформировать квадратную матрицу по образцу
Сформировать квадратную матрицу

Двумерные массивы. Сформировать матрицу заданного вида
помогите написать прогу)) Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки размера n*n...

Двумерные массивы: Сформировать квадратную матрицу порядка N по заданному образцу
пожалусто помогите с задачей: Сформировать квадратную матрицу порядка n по заданному образцу. 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 0 0...

Двумерные массивы - Найти количество строк, столбцов матрицы
Помогите решить пожалуйста. Дана целочисленная матрица размера MxN. Найти количество ее строк столбцов, все элементы которых различны.

Сформировать матрицу, подсчитать суммы столбцов и строк
Сформировать матрицу КхК, состоящую из целых чисел от N в обратном порядке ( N, N-1, N-2, ...). Подсчитать суммы столбцов и строк . Вывести...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru