 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
непонятный процесс сумирования 
| Black_Joker |
|
|||
|
Бывалый  Профиль Группа: Участник Сообщений: 212 Регистрация: 9.11.2002 Где: Таганрог Репутация: нет Всего: нет |
Народ, возникла такая проблема:
sumin:= 0; for l:= 1 to kolvo do writeln(ms[l]); for l:= 1 to kolvo do inc(sumin, ms[l]); writeln('sumin= ',sumin); writeln; на экране 1 0 0 sumin= 2 2 0 0 sumin= 4 и т.д. Пока этот фрагмент был в основной программе, было все нормально. Когда перенес в процедуру появился такой глюк. Кто-нить знает и как с этим бороться. Разделить на 2 нельзя, могут придраться. |
|||
|
||||
Дата 22.2.2003, 20:46 (
Загрузка ...
| Vco |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 311 Регистрация: 13.2.2003 Где: Москва Репутация: нет Всего: нет |
А что именно? что за ошибка....если всё нормально то и в процедуре должно быть всё ок...мож синтаксит неправильный?
так? -------------------- Я всегда где-то рядом...!  |
|||
|
||||
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Посмотри где и как объявляются переменные...
-------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Pakshin A. S. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 5056 Регистрация: 16.2.2003 Репутация: 21 Всего: 61 |
У меня такой же глюк был в Delphi: в переменную записывал указатель, через некоторое время он сам менялся на другой, хотя я к нему нигде не обращался. Так и остался он не понятым...
|
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
1) Отключи оптимизацию 2) Не объявляй глобальными переменными модуля - только локальными или полями класса и всё будет нормально -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Black_Joker |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 212 Регистрация: 9.11.2002 Где: Таганрог Репутация: нет Всего: нет |
Понял где возникла ошибка
При объявлении переменных ms: array [1..1] of word; . . . (kolvo <>0) sumin:= 0; for l:= 1 to kolvo do writeln(ms[l]); for l:= 1 to kolvo do inc(sumin, ms[l]); writeln('sumin= ',sumin); writeln; на экране 1 0 0 sumin= 2 2 0 0 sumin= 4 по ходу программы значения заносились в ms[2] и т.д. Но почему паскаль не выругался при внесении переменных в несуществующие ячейки и почему вывел нули, при обращении к ним не понятно. |
|||
|
||||
| SmaLL |
|
|||
 Опытный Профиль Группа: Участник Клуба Сообщений: 557 Регистрация: 17.12.2002 Где: Voronezh Репутация: 1 Всего: 2 |
Вероятно у тебя отключена опция компилятора проверки выхода за пределы диапазона -------------------- Что ни делается - всЁ к лучшему! SmallWeb Мой адрес не дом и не улица, мой адрес родной пивзавод! |
|||
|
||||
| Guest_Black_Joker |
|
|||
|
Unregistered |
И как включить?
|
|||
|
||||
| SmaLL |
|
|||
|
Опытный Профиль Группа: Участник Клуба Сообщений: 557 Регистрация: 17.12.2002 Где: Voronezh Репутация: 1 Всего: 2 |
В коде программы написать: {$R+} - включить проверку {$R-} - выключить проверку -------------------- Что ни делается - всЁ к лучшему! SmallWeb Мой адрес не дом и не улица, мой адрес родной пивзавод! |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0542 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |