Получить квадратную матрицу по образцу

@jennifer_rostoc · Регистрация: 07.11.2015

Author24 — интернет-сервис помощи студентам

Пропустила эту тему по болезни, в голове туман. Объясните пожалуйста. Pascal ABC

@vint-81 · 07.11.2015, 17:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=ord(j>=i)*(j-i+1);//на главной диагонали и выше по формуле j-i+1; остальные нули
     write(a[i,j]:3)
    end;
   writeln
  end
end.

@jennifer_rostoc · 08.11.2015, 14:38 **[ТС]**

Спасибо за помощь, разобралась с темой. И вот что получилось:

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
program matrica;
uses crt;
const n=10;
type Mat=array [1..n,1..n] of integer;
var x,y,q:byte; z:mat;
procedure vvodalt(var matrica:mat);
var l,j,k,i:integer;
begin   l:=0;
for j:=n downto 1 do begin  i:=1;
for k:=n-L to n do begin
matrica[j,k]:=i; i:=i+1;
end;  l:=l+1;
end;
end;
procedure vivod(var matrica:mat);
var j,k:byte;
begin
for j:=1 to n do begin
for k:=1 to n do
write(matrica[j,k]:3); writeln;
end;
end;
begin
vvodalt(z); vivod(z);
end.

Ваша программа тоже верна, но не сгодится для нашего препода. Но всё равно, спасибо.
И кстати, ваш вариант намного аккуратней.

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

@jennifer_rostoc 0 / 0 / 1 Регистрация: 07.11.2015 Сообщений: 7

	Получить квадратную матрицу по образцу 07.11.2015, 16:31. Показов 1207. Ответов 2 Метки нет (Все метки) Пропустила эту тему по болезни, в голове туман. Объясните пожалуйста. Pascal ABC Изображения 0

Опции темы

Получить квадратную матрицу по образцу

Решение