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

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

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

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

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

@Mad_Dog · 07.06.2010, 16:43

Pascal

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

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

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

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, согласен, не додумал малость, пусть ТС исправит в коде сам....
Дописал только вывод массива...

@UnFam0uS 4 / 4 / 0 Регистрация: 26.09.2009 Сообщений: 45
		1
	Заполнить квадратную матрицу 07.06.2010, 16:23. Показов 929. Ответов 6 Метки нет (Все метки) Заполнить квадратную матрицу Изображения 1

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

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

Опции темы