Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Найти кол-во отр. эл. и сумму положит. В матр.3х3 
:(
    Опции темы
panasenko
Дата 9.12.2006, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.11.2006

Репутация: нет
Всего: нет
Есть атрица 3х3. например

5 6 9
3 4 6
2 7 8

Нужно для каждой строки найти сумму положительных и количество отрицательных элементов!
PM MAIL   Вверх
mr.Anderson
Дата 9.12.2006, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Rodman, а вот это уже лишнее. Ну не варит и не варит, зачем об этом говорить? Нельзя ли просто сказать: "это легко, подумай". Или намекнуть как-нить, как это сделать.


panasenko, очень просто. Глянь тему http://forum.vingrad.ru/topic-126215/view/...post/index.html , мы там решение подобной задачи уже давали.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Rodman
Дата 9.12.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Код

for (int i=0;i<3;i++)
   for(int j=0;j<3;j++)
     { if(a[i][j]<0)
             sumotr[i]+=1;
        else 
             sumpol[i]+=a[i][j];
    }




Это сообщение отредактировал(а) Rodman - 9.12.2006, 16:47


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
mr.Anderson
Дата 9.12.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Rodman, спорим, что это не паскаль? smile 


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Zero
Дата 9.12.2006, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(sim7 @  9.12.2006,  17:48 Найти цитируемый пост)
Rodman, спорим, что это не паскаль?

Конечно не паскаль, smile это С++...
А алгоритм он и в африке одинаковый.
PM MAIL ICQ   Вверх
mr.Anderson
Дата 9.12.2006, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Да знаю, что С++. smile Знакомо. Просто форум паскалевский, а код почему-то на Си... Логика хромает...


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Rodman
Дата 9.12.2006, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
без паники
Код

for  i:=1  to 3 do
   for  j:=1 to 3 do 
     begin 
        if(a[i][j]<0)then
             sumotr[i]:=sumotr[i]+1
        else 
             sumpol[i]:=sumpol[i]+a[i,j];
    end;


Это сообщение отредактировал(а) Rodman - 9.12.2006, 18:41


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
mr.Anderson
Дата 9.12.2006, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Rodman, ваш код можно еще чуток уменьшить. smile Плюс при переводе в паскаль аккуратнее с обращением к текущему элементу, он указывается через запятую, а не в двойных квадратных скобках... smile
Код

For  i:=1  to 3 do
 For  j:=1 to 3 do 
 begin 
  If( a[ i, j ] < 0 ) Then
   Inc( sumotr[ i ] );
  else 
   sumpol[ i ] := sumpol[ i ] + a[ i, j ];
 end;


Это сообщение отредактировал(а) sim7 - 9.12.2006, 18:33


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
volvo877
Дата 9.12.2006, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
sim7, а ничего нет криминального в обращении A[1][1] вместо A[1, 1]... В Паскале это - аналоги... Вот в Сях нельзя использовать одно вместо другого...
PM MAIL   Вверх
mr.Anderson
Дата 9.12.2006, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128
Хм. Что ни день, то что-то новенькое. smile Буду знать.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Zero
Дата 9.12.2006, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(volvo877 @  9.12.2006,  20:02 Найти цитируемый пост)
sim7, а ничего нет криминального в обращении A[1][1] вместо A[1, 1]... В Паскале это - аналоги... Вот в Сях нельзя использовать одно вместо другого...

Правильнее сказать что начальный вариант везде A[i][j], что означает массив массивов, но в паскале-подобных языка сделали упрощение с введением в него в качестве базовых типов, возможности стандартного использования многомерных массивов.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0816 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.