С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 07.11.2019
Сообщений: 16
1
Delphi 6-7

Работа с матрицами

01.12.2019, 17:54. Показов 292. Ответов 1

Author24 — интернет-сервис помощи студентам
Задача с матрицами.
1. Дана матрица размера M на N. Поменять местами левую нижнюю и верхнюю правую четверти матрицы.
2. Есть матрица порядка M. Обнулить элементы лежащие на главной диогонали и выше неё. Условный оператор не использовать.
Написать в консоли
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.12.2019, 17:54
Ответы с готовыми решениями:

Работа с матрицами
"Дана матрица. Сформировать одномерный массив, где на нечетных местах находится сумма,...

Работа с матрицами
Здраствуйте нужна помощь. вот задание ---Среди столбцов заданной матрицы найти столбец , сумма...

Работа с матрицами
Будьте так добры написать программу на Delphi. В двухмерном массиве n на m найдите среднее...

Работа с матрицами
Здравствуйте. Нужна помощь с задачей: Дана действительная матрица размерности (n*n) .Если среднее...

1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
01.12.2019, 18:40 2
1.
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
var a:array[1..10,1..20] of integer;
    m,n,i,j,k:byte;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
repeat
write('Введите количество строк четное число от 2 до 10 m=');
readln(m);
until(m mod 2=0)and(m in [2..10]);
repeat
write('Введите количество столбцов четное число от 2 до 20 n=');
readln(n);
until(n mod 2=0)and(n in [2..20]);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to m div 2 do
for j:=n div 2+1 to n do
 begin
  k:=a[i,j];
  a[i,j]:=a[n div 2+i,j-n div 2];
  a[n div 2+i,j-n div 2]:=k;
 end;
writeln('Обмен блоков');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
Добавлено через 6 минут
2.
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
var a:array[1..10,1..10] of integer;
    m,i,j:byte;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
repeat
write('Введите размер матрицы от 2 до 10 m=');
readln(m);
until m in [2..10];
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Обнуление элементов выше главной диагонали и на на ней');
for i:=1 to m do
for j:=i to m do
a[i,j]:=0;
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
Добавлено через 7 секунд
2.
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
var a:array[1..10,1..10] of integer;
    m,i,j:byte;
begin
SetConsoleCP(1251);
SetConsoleOutPutCp(1251);
randomize;
repeat
write('Введите размер матрицы от 2 до 10 m=');
readln(m);
until m in [2..10];
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Обнуление элементов выше главной диагонали и на на ней');
for i:=1 to m do
for j:=i to m do
a[i,j]:=0;
for i:=1 to m do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.
0
01.12.2019, 18:40
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.12.2019, 18:40
Помогаю со студенческими работами здесь

Работа с матрицами
НУЖНО ТОЖЕ САМОЕ ТОЛЬКО БЕЗ ИСПОЛЬЗОВАНИЯ ГЛОБАЛЬНЫХ ПАРАМЕТРОВ (ПОДПРОГРАММЫ ДОЛЖНЫ ОБМЕНИВАТЬСЯ...

Работа с матрицами
Доброго времени суток! Может кто-то сможет подсказать по поводу следующего: Задана матрица...

Работа с матрицами
всем привет парни. сижу мучаюсь ничего в голову не лезет. выручайте. есть программа, ее нужно...

работа с матрицами
здравствуйте! решите примеры пожалуйста. А то я совсем не разбираюсь в delphi. 1.Даны...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­­­­­­­­­­­­­х­р­о­н­­н­­­ы­­й счётчик с управляющим сигналом зад
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru