Lokos1971 Posted December 27, 2008 Report Share Posted December 27, 2008 Помогите, пожалуйста, послезавтра сдавать! Задача: Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица A размерности nxn, если A[i,j]=(sin(i)+j/2)). Приложение для Дельфи 7, оконное, но на крайний случай сойдет и консольное. Заранее спасибо всем. Quote Link to comment Share on other sites More sharing options...
Тролль Posted December 27, 2008 Report Share Posted December 27, 2008 (edited) Lokos1971: Да уж, всем задачам задача... Delphi под рукой нет, поэтому на Паскале (можно считать консольным приложением Delphi) program mmm;var i,j,n,k:integer; beginwrite('n: '); readln(n); k:=0; for i:=1 to n do for j:=1 to n do if sin(i)+j/2>0 then inc(k);writeln(k); readlnend. На самом деле неположительные элементы тут могут быть только при j, равном 1 и решение сводится к неравенству sin(i)>-0,5. Но поскольку что-либо доказывать лень, решали с проверкой (не имеющей смысла, так как результат заранее известен) и всех других значений j. P.S. Да, я как-то забыл: к чему тут "динамический многомерный массив"? :bye1: Задача, так сказать, решается на пальцах. Edited December 27, 2008 by Тролль Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.