Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2008, 21:13   #11
chelsi
 
Регистрация: 22.04.2008
Сообщений: 9
По умолчанию

это целочисленная матрица!! только она не совсем правильно считает,мне надо чтобы во всех столбцах добавляла(с нечетными индексами ),а она не вовсех!
chelsi вне форума Ответить с цитированием
Старый 23.04.2008, 21:24   #12
chelsi
 
Регистрация: 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;
chelsi вне форума Ответить с цитированием
Старый 23.04.2008, 23:36   #13
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Вы не поверите, но 3-ю задачу уже решали.....

Только там нужно немного изменить код для другой диагонали.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 25.04.2008, 10:07   #14
chelsi
 
Регистрация: 22.04.2008
Сообщений: 9
По умолчанию

а могли бы ,вы мне написать ,а то я написала ,а она всё-равно не работает!!! заранее большое спасибо!!!!!!!
chelsi вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрицы FatalX Помощь студентам 21 17.04.2009 22:50
матрицы tonic Microsoft Office Excel 2 10.01.2008 14:47
матрицы Ensoph Помощь студентам 1 24.10.2007 09:38