Заполнить квадратную матрицу

@UnFam0uS · Регистрация: 26.09.2009

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

@UnFam0uS · 07.06.2010, 16:35 **[ТС]**

Заполнить квадратную матрицу

@Mad_Dog · 07.06.2010, 16:43

Pascal
1
2
3
4
5
for i:=1 to 5 do
  for j:=1 to 5 do
    if odd(i) 
      then A[i,j]:=30 - 5*j {или так A[i,j]:=5*(6-j) }
      else A[i,j]:=5*j

@NIch · 07.06.2010, 16:46

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
 Arr: array [1..5] of array [1..5] of word;
 i, j: integer;
 n: word;
begin
 for i := 1 to 5 do
 begin
  n := 5;
  if i mod 2 = 0 then
   for j := 1 to 5 do
    Arr[i, j] := Arr[i, j] + n;
  if i mod 2 <> 0 then
   for j := 5 downto 1 do
    Arr[i, j] := Arr[i, j] + n;   
 end;
end;

Один из вариантов

@UnFam0uS · 11.06.2010, 15:25 **[ТС]**

что-то в паскале у меня не получается..

@Inadequate · 11.06.2010, 15:35

Mad_Dog, логичнее написАть так

Pascal
1
2
3
4
5
6
7
for i:=1 to 5 do
  if odd(i) then
    for j:=1 to 5 do
      a[i,j] := 30 - 5 * j {или так A[i,j]:=5*(6-j) }
  else 
    for j := 1 to 5 do
      a[i,j] := 5 * j;

Тогда 25 условных операторов заменятся пятью.

Добавлено через 37 секунд
UnFam0uS, там не может не получаться, тебе нужно дописАть только ввод/вывод массива. Как это сделать посмотри в соседних темах.

@Mad_Dog · 11.06.2010, 15:44

Ну, лана, держи уж...

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
Program Matrix55;
Uses Crt;
Var
  A:array[1..5,1..5] of byte;
  i,j:byte;
Begin
  ClrScr;
  for i:=1 to 5 do
    for j:=1 to 5 do
      if odd(i)
        then A[i,j]:=30 - 5*j 
        else A[i,j]:=5*j;
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(A[i,j]:3);
      writeln
    end;
  writeln;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
End.

Добавлено через 2 минуты
Inadequate, согласен, не додумал малость, пусть ТС исправит в коде сам....
Дописал только вывод массива...

Новые блоги и статьи Все статьи Все блоги /
Шаблоны и протоколы для создания устойчивых микросервисов ArchitectMsa 19.04.2025 Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .	Изменяемые и неизменяемые типы в Python py-thonny 19.04.2025 Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .	Интеграция 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 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45

	Заполнить квадратную матрицу 07.06.2010, 16:23. Показов 1017. Ответов 6 Метки нет (Все метки) Заполнить квадратную матрицу Изображения 1

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45
	07.06.2010, 16:35 [ТС]
	Заполнить квадратную матрицу Изображения 1

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45
	11.06.2010, 15:25 [ТС]
	что-то в паскале у меня не получается.. 0

Опции темы