Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ помогите матрица змейкой

Автор: Евгений89 26.4.2011, 6:12

почему не работает рандом в матрице и неполучается его упорядочить

uses
crt;
const n=8; {количество строк и столбцов}
var a:array[1..n,1..n] of real; {двухмерный массив}
sum:real; {сумма всех элементов массива}
i,j:integer; {индексы}
begin
clrscr;
randomize;
writeln;
writeln('Заполнение матрицы змейкой:');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-2+random(4)+random;
if i mod 2=1 then
a[i,j]:=(i-1) * n + j
else a[i,j]:= i * n - j + 1;
write(a[i,j]:7:2)
end;
writeln
end;
end.

Автор: Sergio Ramos 28.4.2011, 12:02

напишите пример заполненной матрицы

Автор: Invisiblebox 2.5.2011, 12:16

a[i,j]:=-2+random(4)+random; - здесь рандомите
if i mod 2=1 then a[i,j]:=(i-1) * n + j else a[i,j]:= i * n - j + 1; - здесь перезаписываете (рандома как не бывало)

Упорядочивания здесь вообще нет.

Пишите полностью задание.

Листинг ни о чём.

Автор: Sixthirty 8.5.2011, 14:51

Вы не поверите, как много вариантов "змейки" существует.

Код

program snake;
var i,j,n,m:integer;
    a:array[1..8,1..8] of integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i mod 2 =1 then
        a[i,j]:=(i-1)*n+j
        else a[i,j]:=i*n-j+1;
    write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

Первый попавшийся в гугле, чуть отформатированный.

Автор: Евгений89 19.10.2011, 12:16

Мне нужно что бы змейка заполнилась случайными числами от -2 до 2 при помощи рандома. Не понимаю что не так написано
program matrix;
uses crt;
const n=8;
var a:array[1..n,1..n] of real;
sum,max,min:real;
i,j:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-2+random(4)+random;
if i mod 2=1 then a[i,j]:=(i-1)*n+j
else a[i,j]:=i*n-j+1;
write(a[i,j]:7:2);
end;
writeln;
end;
end.

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)