Массивы: заполнение случайными числами

@kapec@ · Регистрация: 28.10.2009

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

подскажите плиз как описать матрицу 8х8 и заполнить ее случайными числами от -n до n, где n - номер элемента матрицы?

@Inadequate · 28.10.2009, 14:00

вот держи...

Pascal

uses
  crt;
const
  max=8;
var
  a:array [1..max,1..max] of integer;
  i,j,temp:integer;
begin
  clrscr;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  {çàïîëíÿåì è âûâîäèì ìàòðèöó â [-max,max]}
  for i:=1 to max do
  begin
    for j:=1 to max do
    begin
      if random(10) div 2 =0 then
        temp:=1
      else
        temp:=-1;
      a[i,j]:=random(max+1)*temp;
      write(a[i,j],' ')
    end;
    writeln;
  end
end.

@sheka · 28.10.2009, 14:16

Delphi

var a:array[1..8,1..8] of iinteger;
...
for i:=1 to 8 do
for j:=1 to 8 do 
a[i,j]:=random(2*i)-i+1;

условие неточное. номер элемента - это какого: в сторчах или столбцах? или может по счету? т.е.
123
456
789

@kapec@ · 29.10.2009, 07:25 **[ТС]**

условие неточное. номер элемента - это какого: в сторчах или столбцах? или может по счету? т.е.
123
456
789
Да точно, спасибо всем - дальше разберусь))))

@sheka · 29.10.2009, 12:50

Сообщение от kapec@

Да точно

тогда так:

Delphi

var a:array[1..8,1..8] of iinteger;
...
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do 
begin
inc(k);
a[i,j]:=random(2*k)-k+1;

@kapec@ 0 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 4
		1
	Массивы: заполнение случайными числами 28.10.2009, 13:39. Показов 4447. Ответов 4 Метки нет (Все метки) подскажите плиз как описать матрицу 8х8 и заполнить ее случайными числами от -n до n, где n - номер элемента матрицы? 0

@kapec@ 0 / 0 / 0 Регистрация: 28.10.2009 Сообщений: 4
	29.10.2009, 07:25 [ТС]	4
	условие неточное. номер элемента - это какого: в сторчах или столбцах? или может по счету? т.е. 123 456 789 Да точно, спасибо всем - дальше разберусь)))) 0

	29.10.2009, 12:50

Опции темы