Интересная задачи с матрицами

@Nazarrrka · Регистрация: 19.11.2013

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

Программа должна запрашивать N (1 <= N <= 99) и формировать матрицу (и выводить на экран) следующего вида:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
NNNNNNNNNNNNN 
N...........N 
N...........N
N..4444444..N
N..4333334..N
N..4322234..N
N..4321234..N
N..4322234..N
N..4333334..N
N..4444444..N
N...........N
N...........N
NNNNNNNNNNNNN

Заранее спасибо за ответ!

@Jener · 19.11.2013, 08:43

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
50
51
52
53
uses
  crt;
type
  TMass = array[1..99,1..99] of integer;  
var
  N, k, m, p, i, j : byte;
  a : TMass;
  f : text;
begin
  clrscr;
  repeat
  write('N = '); readln(N);
  until N in [1..99];
  for i := 1 to 2*N - 1 do begin
    for j := 1 to 2*N - 1 do begin
      a[i,j] := N;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;  
  
  k := 0; m := 1; p := 2*N-1;
  for i := 1 to (2*N-1) div 2 + (2*N-1) mod 2 do begin
    for j := m to p do 
      a[i,j] := a[i,j] - k;
    inc(m); dec(p); inc(k);
  end;
  dec(m,2); inc(p,2); dec(k,2);
  for i := (2*N-1) div 2 + (2*N-1) mod 2 + 1 to 2*N-1 do begin
    for j := m to p do 
      a[i,j] := a[i,j] - k;
    dec(m); inc(p); dec(k);
  end;
  
  k := 0; m := 2; p := 2*N-2;
  for i := 1 to (2*N-1) div 2 + (2*N-1) mod 2 do begin
    for j := m to p do 
      a[j,i] := a[j,i] - k;
    inc(m); dec(p); inc(k);
  end;
  dec(m,2); inc(p,2); dec(k,2);
  for i := (2*N-1) div 2 + (2*N-1) mod 2 + 1 to 2*N-1 do begin
    for j := m to p do 
      a[j,i] := a[j,i] - k;
    dec(m); inc(p); dec(k);
  end;
  for i := 1 to 2*N - 1 do begin
    for j := 1 to 2*N - 1 do write(a[i,j]:3);
   writeln();
  end;  
  readln;
end.

Добавлено через 7 минут
17-ую строку можно удалить

@Nazarrrka · 19.11.2013, 19:40 **[ТС]**

Большое спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@Nazarrrka 1 / 1 / 1 Регистрация: 19.11.2013 Сообщений: 18
	19.11.2013, 19:40 [ТС]
	Большое спасибо!!! 0

Опции темы

Интересная задачи с матрицами

Решение