|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.11.2007, 23:51 | #1 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 124
|
Матрица опять..
Дана матрица A(n,n). Если сумма положительных элементов больше суммы отрицательных, то положительные элементы заменить единицами. В противном случае отрицательные заменить нулями.
Ну вот нужно для начала сделать первым способом (Используя StringGrid). Вот что я сумел накатать: Код:
Помогите! |
17.11.2007, 00:22 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
2 процедуры:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
17.11.2007, 01:51 | #3 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 124
|
Непонимаю...Куда нужно записывать вторую процедуру ? Она же будет выполняться при нажатии на что-то или как ? Одна кнопка уже занята.
|
17.11.2007, 05:23 | #4 |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Код:
ICQ - 446037211
|
17.11.2007, 12:34 | #5 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 124
|
Спасибо, но есть один косяк ) Когда сумма положительных чисел больше отрицательных, все положительные числа заменяются нулями как и должно быть, но в когда сумма отрицательных больше положительных почему-то положительные элементы опять заменяются единицами...
|
17.11.2007, 12:54 | #6 | |
Форумчанин
Регистрация: 11.11.2007
Сообщений: 136
|
Цитата:
Код:
ICQ - 446037211
|
|
17.11.2007, 13:07 | #7 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Цитата:
Код:
если сумма 1 (положит.) > суммы 2 (отрицат.), то Proc1 ИНАЧЕ Proc2; If sum1>Sum2 then Proc1 else Proc2;
Life is too short, play more...
Как правильно задавать вопросы |
|
17.11.2007, 15:19 | #8 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 124
|
Незнаю, просто не понимаю и всё ...
Создал 2 процедуры , объявил в заголовках процедур, написал то что писали выше ,выдаёт тучу разных ошибок. То с переменными чёт не так, например в новых процедурах не объявлены i,j. Ну я объявил, дальше ошибка "Uidentifier: 'StringGrid1'". Короче я незнаю ) |
17.11.2007, 15:41 | #9 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Переменные можете сделать глобальными, или описать в каждой процедуре (VAR)
Цитата:
либо Procedure Proc1;, тогда вручную дописываем Form1.StringGrid1..... и так ко всем вызываемым компонентам. ----------------- p.s.: проще всего объявить глобальные переменные, и в процедурах вместо StringGrid писать Form1.StringGrid1
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 17.11.2007 в 15:43. |
|
17.11.2007, 17:26 | #10 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 124
|
Вот то что щас написано... Опять влюбом случае заменяет положительные единицами.. Не могли бы проверить, где ошибся ?
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
И опять мэйлы.. Опять... | Pusher | PHP | 6 | 28.06.2008 03:08 |
И опять LookupComboBox | Alex_666 | БД в Delphi | 1 | 02.06.2008 10:22 |
опять кодировка) | mager | JavaScript, Ajax | 1 | 22.05.2008 16:41 |
Опять ListBox | Rahim1993 | Общие вопросы Delphi | 3 | 15.01.2008 20:21 |
Опять TreeView | Simply-Art | Компоненты Delphi | 2 | 20.07.2007 17:14 |