Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Проблема с циклом  (Прочитано 4254 раз)
0 Пользователей и 1 Гость смотрят эту тему.
_serj_dev
Участник

ru
Offline Offline

« : 22-03-2009 15:20 » new

Здравствуйте участники форума и его гости.
Вот в этом коде:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var m : array [0..9] of integer; m1: array [0..9] of integer;
    i, a, b, j: integer;
begin
 a:=0;
  for i:=0 to 9 do
    begin
       m[i]:=StrToInt(Memo1.Lines.Strings[i]);
       a:=a+m[i];
    end;
 b:= a div 10;
    for j:=0 to 9 do
    begin
       m1[j]:=m[j]-b;
       Memo2.Lines.Add(IntToStr(m1[j]));
    end;
end;
возникает маленькая проблема. во втором цикле переменной j начинают присваиваться значения в обратном порядке. Подскажите пожалуйста, с чем это может быть связано?
Записан
zubr
Гость
« Ответ #1 : 22-03-2009 20:56 » 

_serj_dev, это особенность борландского дебагера, работает все правильно, но индексацию в цикле For отладчик может показывать в обратном порядке. Отключи оптимизацию, перекомпили проект - и тогда отладчик должен показывать индкс цикла For корректно.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines