Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица A размерности nxn, если:

aij=sin(i+j/2)


Опять, наверное, очень легкая задача, но, все же, помогите, если не сложно... :smile:

Может конечно и можно как-то одной формулой вывести ... но не ужели тебе в голову не пришла идея хотябы полного перебора :smile: ?

Не пришла!

count := 0;
for i := 1 to n do
 for j := 1 to m do begin
    a[i,j] := sin(i+j/2);
    if a[i,j]>0 then inc(count);
 end;

ээээ клем... так не пойдет. Во-первых, тебе же сказали что размерность n*n, зачем ты m используешь ?
И потом, зачем тебе матрица? А если n=10000 ?
хы...

Вот смотри-ка..
Нажмите для просмотра прикрепленного файла
(это вот это отработало

{$mode delphi}
uses wincrt,graph;
var
 i,j,count,n:longint;
 c:char;
 d,gd,gm:smallint;
 ir,jr:extended;
 s:string;
begin
d:=d8bit;
 gm:=m800x600;
 initgraph(gd,gm,'');
count := 0;
n:=100;
for i := 1 to n do
 for j := 1 to n do begin
    ir:=i; jr:=j;
    if sin(ir+jr/2)>0 then c:='+' else c:='-';

    outtextxy(i*20,j*20,c);
    if c='+' then inc(count);
 end;
 str(count,s);

 readln

end.

Видишь закономерность ?
Это трехдиагональная матрица, только у не диагонали не по главной диагонали а по побочной...
Используя это можно похимичить и вывести формулу для получения ответа вообще без перебеора... а за перебор сразу неут надо ставить...

Только я бы проверил насчет элемента (1,3) и таки-же.. имхо там 1 тоже должно быть и это просто погрешность вычислений...

думаем дальше. вопрсо открыт

2 Altair, Блин, это загон какой-то получается , легче застрелиться!

И мне вполне даже с перебором пойдет!!! Кстати, нам по-моему так и сказали делать.. Мы таких загонов еще просто не проходили

RastamaN, можешь брать перебор, дальше это уже не твоя задача а наша

p.s.
да, прошу прощения, марица не трехдиагональная.
У нее каждый 2 столбец плюсов снизу на 2 позиции меньше.

Не придерайся ...





Я и не утверждал что без нее никак ...

М

Дык задача администрации (в твоем лице) дать как можно более точный ответ А ты торопишься не торопись и все будет пучком Altair

Блин, решите ее как-нибудь просто что-ли... А то у меня, во-первых, вот это "uses wincrt,graph" не работае, а во-вторых, меня засрут за такое решение, потому-что я б до такого не допер бы сам...

не работает потому что у тебя нет FPC.
ВОт тебе решение тупое. Клем предложил

var
 count,n,i,j:integer;
 c:real;
begin
 readln(n);
 count := 0;
 for i := 1 to n do  for j := 1 to n do 
     if sin(i+j/2)>0 then inc(count);
  writeln(count);
end;

М

А твое ну оооочень умное ?! абсолютно такойже полные перебор, только без матрицы c:real - зачем ? klem4