[Aleks26]

У Фаронова есть простейший пример для иллюстрации работы с массивами. Вроде все просто, но я столкнулся с такой штукой: когда я начинаю цикл for ( он помечен у меня ЦИКЛ2), он считается у меня почему-то в обратном порядке (я пробовал пошагово его пройти и первое значение индекса равно 99, затем 98 и т.д.). Не могу понять, почему он не считает от 2 до N. Подскажите кто-нибудь.

Код:

unit unAverage1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnRun: TButton;
    memOutPut: TMemo;
    lblOutPut: TLabel;
    procedure btnRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnRunClick(Sender: TObject);
const
 N = 100;
 Max_Value = 100+1;
var
 m: array[1..N] of Integer;
 i,j: Integer;
 max, min: Integer;
 sum: Real;
 S: String;
begin
 S := '';
 for i := 1 to N do
  begin
   m[i] := Random(Max_Value);
   S := S + #9 + IntToStr(m[i]);
   if i mod 10=0 then
    begin
     memOutPut.Lines.Add(S);
     S := '';
    end
  end;
 sum := m[1];
 max := m[1];
 min := m[1];
 for j := 2 to N do  { ЦИКЛ 2}
  begin
   sum := sum + m[j];
   if m[j] < min then
    min := m[j]
   else if m[j] > max then
    max := m[j]
  end;
 lblOutPut.Caption := ' Минимум = ' + IntToStr(min) + ' Максимум = ' +
                      InttoStr(max) + ' Среднее = ' + FloatToStr(sum/N);
end;

end.

[M.A.D.M.A.N.]

[Aleks26]

Я в таком формате плохо разбираюсь. Поэтому не понял в чем суть.

[Bargest]

Скорее всего оптимизирующий компилятор перевернул цикл, поскольку в машинном коде цикл от N-1 до 0 несколько проще.

[Vocabulary]

- Дельфийский компилятор не имеет права "переворачивать" цикл, а потому этого никогда и не делает.
- Значение константы N определено как число 100, следовательно начало цикла в обратном порядке не может начинаться с 99.
- Проверка в Delphi именно приведенного кода показала, что значение управляющей переменной цикла (j) начинается с 2 и заканчивается на значении 100.

По этим признакам косвенно можно предположить варианты:
1. Автор лукавит (ошибся) и привел не тот код, в котором у него цикл начинается со значения 99.
2. Компилятор не дельфийский.
3. Полтергейст (сиречь Барабашка) в компиляторе.

[M.A.D.M.A.N.]

Замени на while и не парься.

[angvelem]

Сообщение от Vocabulary

- Дельфийский компилятор не имеет права "переворачивать" цикл...

Не путайте людей, если не знаете о чём говорите. Дельфи не просто "переворачивает" циклы, а делает это довольно часто. Как уже было сказано для оптимизации кода. А посему срочно учить "матчасть".

Сообщение от NumLock

ЗЫ. хотя если и возникнет, то я буду очень рад такому примеру

Мне кажется, дождаться не получится. Это длится довольно давно (не ясно с какой версии) и ещё никто при этом глюка не словил.