![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Регистрация: 22.04.2008
Сообщений: 9
|
![]()
это целочисленная матрица!! только она не совсем правильно считает,мне надо чтобы во всех столбцах добавляла(с нечетными индексами ),а она не вовсех!
|
![]() |
![]() |
![]() |
#12 |
Регистрация: 22.04.2008
Сообщений: 9
|
![]()
помогите с другими задачами я их сделала ,но не знаю,почему выдаёт не правильные ответы!(надо подредактировать....) вот задания и решения
2. Найти номер строки, в которой находится самая длинная серия одинаковых элементов. 3. Найти максимум среди сумм элементов диагоналей, параллельных побочной диагонали 2.for i:=1 to n do nom[i]:=0; for i:=1 to n do begin k:=1; p:=1; for j:=1 to n do if A[i,j]=A[i,j+1] then k:=k+1 else begin if k>p then p:=k ; k:=1; end; nom[i]:=p; end; t:=0; for i:=1 to n do if nom[i]=1 then t:=t+1; if t=1 then Edit1.Text:='нет одинаковых серий' else begin max:=nom[1]; for i:=1 to n do if nom[i]>max then begin max:=nom[i]; imax:=i; 3 b:=a; max:=-maxlongint; for i:=1 to n do for j:=n downto 1 do b[i,j]:=a[i,j]+b[i-1,j-1]; max:=b[n,n]; for i:=1 to n do begin if b[i,n]>max then max:=b[i,n]; if b[n,i]>max then max:=b[n,i]; end; |
![]() |
![]() |
![]() |
#13 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
![]()
Вы не поверите, но 3-ю задачу уже решали.....
Только там нужно немного изменить код для другой диагонали.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
![]() |
![]() |
![]() |
#14 |
Регистрация: 22.04.2008
Сообщений: 9
|
![]()
а могли бы ,вы мне написать ,а то я написала ,а она всё-равно не работает!!! заранее большое спасибо!!!!!!!
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Матрицы | FatalX | Помощь студентам | 21 | 17.04.2009 22:50 |
матрицы | tonic | Microsoft Office Excel | 2 | 10.01.2008 14:47 |
матрицы | Ensoph | Помощь студентам | 1 | 24.10.2007 09:38 |