Дана квадратная матрица порядка М, М<=18. Получить массив В, каждый элемент которого

@ivzab · Регистрация: 17.11.2014

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

Дана квадратная матрица порядка М, М<=18. Получить массив В, каждый элемент которого есть квадрат тех элементов строк, модули которых принадлежат отрезку [1,10]. Массив В распечатать.

Помогите хотя бы с заполнением матрицы, пожалуйста

Добавлено через 15 минут
Заполнить смог
Теперь дальше не очень понимаю смысл

квадрат тех элементов строк, модули которых

Нужно же просто проанализировать каждый элемент на принадлежность его модуля отрезку [1..10]?

@ighor · 17.11.2014, 00:58

Pascal

1	if a[i,j]<=10 and a[i,j]>=1 then sgr(abs(a[i,j]));

попробуй так

@ivzab · 17.11.2014, 01:03 **[ТС]**

Вот что сделал, но выдает ошибку "операция >= неприменима к типам integer и boolean", да и там по-любому еще куча ошибок

Pascal

program sem1(4);
const
nmax=18;
var
 a:array[1..nmax , 1..nmax] of integer;
 b:array[1..nmax , 1..nmax] of integer;
 i,j,d ,n , max :integer;
begin
 writeln('Введите n');
 read(n);
 writeln();
 randomize;
 for i:=1 to n do 
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j]);
    end;
   writeln;
  end;
writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if abs(a[i,j])<=10 and abs(a[i,j])>=1 then
      for i:=1 to n do
       begin
        b[i,j]:=sqr(a[i,j]);
        writeln(b[i,j]);
       end;
    end;
  end;  
 end.

@ighor · 17.11.2014, 01:08

зачем ты в строке 27 использовал abs

@ivzab · 17.11.2014, 01:11 **[ТС]**

По условию же нужно анализировать модули на принадлежность [1;10]

@volvo · 17.11.2014, 01:28

Сообщение от ivzab

выдает ошибку "операция >= неприменима к типам integer и boolean"

Правильно делает, сложные условия надо скобками оборачивать:

Pascal

27	if (abs(a[i,j])<=10) and (abs(a[i,j])>=1) then

Теперь тебе осталось сделать в 28 строке цикл по другой переменной (по i нельзя, ее цикл еще не окончился), и получишь компилирующийся код...

@ivzab · 17.11.2014, 01:31 **[ТС]**

В общем, вот что получается

Она даже работает, но как-то не совсем правильно
У меня много получается очень много одинаковых элементов

Pascal

program sem1;
const
nmax=18;
var
 a:array[1..nmax , 1..nmax] of integer;
 b:array[1..nmax , 1..nmax] of integer;
 i,j,d,n,i1,j1:integer;
begin
 writeln('Введите n');
 read(n);
 writeln();
 randomize;
 for i:=1 to n do 
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
  end;
writeln;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (abs(a[i,j])<=10) and (abs(a[i,j])>=1) then
      for i1:=1 to n do
begin
for j1:=1 to n do
begin
b[i,j]:=sqr(a[i,j]);
write(b[i,j]:4);
end;
writeln
end;
       end;
    end;
  end.

@ighor · 17.11.2014, 01:46

Pascal

const
nmax=18;
var
 a:array[1..nmax , 1..nmax] of integer;
 b:array[1..nmax , 1..nmax] of integer;
 i,j,d ,n , max :integer;
begin
 writeln('Введите n');
 readln(n);
 
 randomize;
 for i:=1 to n do 
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-5;
     write(a[i,j]:4);
    end;
   writeln;
  end;
writeln;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (abs(a[i,j])<=10) and (abs(a[i,j])>=1) then
     {begin 
      for i:=1 to n do begin 
      for j:=1 to n do
       begin }
        b[i,j]:=sqr(a[i,j]);
        end;
        end;
        begin
         for i:=1 to n do
  begin
   for j:=1 to n do
    begin
        write(b[i,j]:4);
       end;
       writeln;
    end;
    
    end;
  end;
 
 end.

кажется правильно

@ivzab 1 / 1 / 0 Регистрация: 17.11.2014 Сообщений: 9
		1
	Дана квадратная матрица порядка М, М<=18. Получить массив В, каждый элемент которого 17.11.2014, 00:50. Показов 1180. Ответов 7 Метки нет (Все метки) Дана квадратная матрица порядка М, М<=18. Получить массив В, каждый элемент которого есть квадрат тех элементов строк, модули которых принадлежат отрезку [1,10]. Массив В распечатать. Помогите хотя бы с заполнением матрицы, пожалуйста Добавлено через 15 минут Заполнить смог Теперь дальше не очень понимаю смысл квадрат тех элементов строк, модули которых Нужно же просто проанализировать каждый элемент на принадлежность его модуля отрезку [1..10]? 0

@ighor 15 / 15 / 21 Регистрация: 13.11.2014 Сообщений: 275
	17.11.2014, 01:08	4
	зачем ты в строке 27 использовал abs 0

@ivzab 1 / 1 / 0 Регистрация: 17.11.2014 Сообщений: 9
	17.11.2014, 01:11 [ТС]	5
	По условию же нужно анализировать модули на принадлежность [1;10] 0

Опции темы