Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.04.2014, 13:11   #1
maksim97maksim
Пользователь
 
Регистрация: 12.09.2013
Сообщений: 24
Смех Заполнить массив размером 6x6 следующим образом:

1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5

Делал подобную:
Код:
Uses crt;
Var a:array[1..50,1..50]of integer;
i,j,n:integer;
Begin
n:=6;
For i:=1 to n do
begin
For j:=1 to n do
begin
If (i=1)or(j=1) then a[i,j]:=1
else a[i,j]:=a[i-1,j]+a[i,j-1];
write(a[i,j]:round(n/1.6));
end;
writeln;
end;
end.
maksim97maksim вне форума
Старый 14.04.2014, 13:22   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

а я бы написал так:
Код:
uses crt;
var a: array[1..50, 1..50] of integer;
  i, j, n: integer;
begin
  n := 6;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := ((i+j-2) mod n) + 1;

  WriteLn('Массив: ');
  for i := 1 to n do begin
    for j := 1 to n do Write(a[i, j], ' ');
    WriteLn;
  end;
  Readln;
end.
или так (с помощью дополнительной переменной):
Код:
uses crt;
var a: array[1..50, 1..50] of integer;
  i, j, k, n: integer;
begin
  n := 6;
  for i := 1 to n do
  begin
    k := i; 
    for j := 1 to n do begin
      a[i, j] := k;
      inc(k);
      if k > n then k := 1; 
    end;
  end;

  WriteLn('Массив: ');
  for i := 1 to n do begin
    for j := 1 to n do Write(a[i, j], ' ');
    WriteLn;
  end;
  Readln;
end.

выбирайте, какой вариант ближе/понятней...
Serge_Bliznykov вне форума
Старый 14.04.2014, 13:39   #3
maksim97maksim
Пользователь
 
Регистрация: 12.09.2013
Сообщений: 24
Хорошо Очень сильно помогли. СПАСИБО.

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
а я бы написал так:
Код:
uses crt;
var a: array[1..50, 1..50] of integer;
  i, j, n: integer;
begin
  n := 6;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := ((i+j-2) mod n) + 1;

  WriteLn('Массив: ');
  for i := 1 to n do begin
    for j := 1 to n do Write(a[i, j], ' ');
    WriteLn;
  end;
  Readln;
end.
или так (с помощью дополнительной переменной):
Код:
uses crt;
var a: array[1..50, 1..50] of integer;
  i, j, k, n: integer;
begin
  n := 6;
  for i := 1 to n do
  begin
    k := i; 
    for j := 1 to n do begin
      a[i, j] := k;
      inc(k);
      if k > n then k := 1; 
    end;
  end;

  WriteLn('Массив: ');
  for i := 1 to n do begin
    for j := 1 to n do Write(a[i, j], ' ');
    WriteLn;
  end;
  Readln;
end.

выбирайте, какой вариант ближе/понятней...
Очень сильно помогли. СПАСИБО.
maksim97maksim вне форума
Старый 14.04.2014, 14:04   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Да не за что, всегда пожалуйста!

Раз вопрос решён, тогда я закрываю тему..
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C# Помогите исправить ошибку.Заполнить целочисленный массив А, не вводя значения его элементов с клавиатуры, следующим образом: serg.malkow2014 Помощь студентам 1 27.12.2013 09:54
Преобразовать массив W следующим образом: положительные элементы i-ой строки массива W умножить на Xi, i =1,2,..N. sev48fire Помощь студентам 0 08.06.2012 13:50
. Дана действительная матрица размером n x m. Требуется преобразовать матрицу следующим образом: поэлемен Figushkin Помощь студентам 1 27.05.2010 18:58
Матрицу K(m,n) заполнить следующим образом farrrell Фриланс 4 20.02.2010 22:10
Заполнить массив A следующим образом: 0 0 0 …0 Григорийpnz Паскаль, Turbo Pascal, PascalABC.NET 7 18.11.2008 21:07