|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.04.2008, 21:13 | #11 |
Регистрация: 22.04.2008
Сообщений: 9
|
это целочисленная матрица!! только она не совсем правильно считает,мне надо чтобы во всех столбцах добавляла(с нечетными индексами ),а она не вовсех!
|
23.04.2008, 21:24 | #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; |
23.04.2008, 23:36 | #13 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Вы не поверите, но 3-ю задачу уже решали.....
Только там нужно немного изменить код для другой диагонали.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
25.04.2008, 10:07 | #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 |