|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.11.2008, 17:59 | #1 |
Подтвердите свой е-майл
Регистрация: 25.11.2008
Сообщений: 20
|
задача №1
Получить массив X1,X2,.,Xn по правилу :Xi=1,если элемент Aij больше каждого из элементов i-й строки матрицы , иначе Xi=0.Найти также сумму элементов матрицы Задача №2 Дана матрица из 3 столбцов и 10 строк. Элементы каждой строки представляют координаты одной из 10 точек трехмерного пространства.Отпечатать номера строк ,которыми заданы точки ,находящиеся между концентрическими сферами с заданными радиусами центрами в начале координат , и число таких точек Задача №3 Определите наименьшее значение сумм Ai +Ai-1 Задача №4 При заданных X1,X2,.,Xn найти по правилу Yk=1-sinXk если Xk>0 ,1-cosXk Если Xk<=0 При этом подсчитать число неотрицательных Xk Последний раз редактировалось Alex21; 26.11.2008 в 08:48. |
25.11.2008, 18:52 | #2 |
Регистрация: 11.11.2008
Сообщений: 4
|
легко.но заморачиваться не охото
|
25.11.2008, 19:01 | #3 |
Подтвердите свой е-майл
Регистрация: 25.11.2008
Сообщений: 20
|
Евгений не ленитесь ,лучше помогите.Очень надо
|
25.11.2008, 20:17 | #4 | |
Пользователь
Регистрация: 25.11.2008
Сообщений: 31
|
Цитата:
function CheckRow(Row: Integer): Integer; var j : Integer; begin Result := 1; {допустим, что диагональный больше остальных} for j:=1 to n do if A[Row,Row] < A[Row,j] then begin {если все-таки найдется больший} Result := 0; {выведем 0} Break; {и дальше не смотрим} end; end; А затем в программе S := 0; for k:=1 to n do begin x[k] := CheckRow(k); for l:=1 to n do S := S + A[k,l]; end; Может чем-то поможет))) |
|
25.11.2008, 23:02 | #5 |
Подтвердите свой е-майл
Регистрация: 25.11.2008
Сообщений: 20
|
Спасибо большое.
|
26.11.2008, 08:39 | #6 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
26.11.2008, 08:48 | #7 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
26.11.2008, 08:57 | #8 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Номер 4
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
26.11.2008, 10:40 | #9 |
Подтвердите свой е-майл
Регистрация: 25.11.2008
Сообщений: 20
|
alex_fcsm спасибо большое
|
26.11.2008, 11:29 | #10 |
Подтвердите свой е-майл
Регистрация: 25.11.2008
Сообщений: 20
|
Помогите еще 3 задачи решить , их сложно напечатать и они лежат вот здесь informaticaaa@mail.ru пароль: 110791
помогите пожалуйста их сделать ,очень нужно. Можете прямо на мыло решение прислать или сдесь оставить.... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, пожалуйста, с решением | Akademik | Помощь студентам | 2 | 23.04.2008 23:17 |
Помогите с решением | Amen | Помощь студентам | 13 | 31.01.2008 22:03 |
Помогите с решением функций. | Nikopol | Помощь студентам | 6 | 15.06.2007 23:57 |