Помогите разобраться с кодом

[Superlotles]

Я недавно начал программировать так что мой вопрос может показаться глупым но все же если не трудно помогите

Вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=-10 to -5 do
r:=round(10/i);
ListBox1.Items.Add('10/'+IntToStr(i)+'='+IntToStr(r));
ListBox1.Items.Add('Расчет окончен');
end;
end.

Здесь я нарочно не поставил Begin после for i:=-10 to -5 do и результат получился такой:

10/-4=2
Расчет окончен

Не пойму почему. Кто нибудь напишите по пунктам, как компютер производит вычисление

[artemavd]

Предложу свой вариант. Может быть все происходит так. Цикл идет от -10 до -5. Следовательно в цикле участвуют такие числа: -9,-8,-7,-6 (вспомните ось Х). Всего этих чисел четыре. Отсюда и получается, что 10/-4, где -4 - это кол-во чисел в цикле со знаком "-". Может так . Почему два? Моежет потому что -(10:4)=-2.5 => Round(2.5)=2
??????????????

[Volt]

При выполнении оператора for вначале вычисляется выражение и осуществляется присваивание параметр цикла := начальное значение после этого циклически проверяется следующая последовательность: Проверка условия параметр цикла <= конечное значение если условие не выполнено оператор for завершает свою работу. И что у нас получается i>-5 и for завершает свою работу. i=-4 . чтобы этого не было ставим begin/ а так у вас получается что выполняется r:=10/-5; где r=-2; действие r:=10/-4; не происходит

[Superlotles]

Спасибо !!!
Очень помогли
Volt отдельное спасибо, с тобой согласен

[Mr.Qwerty]

Хз, мож не правильно, но мне больше всего кажется правильным такой код:

procedure TForm1.Button1Click(Sender: TObject);
var i,r:integer;
begin
for i:=-10 to -5 do //цикл счисления переменной от -10 до -5
  begin
	r:=10 div i;
	ListBox1.Items.Add('10/'+IntToStr(i)+'='+IntToStr(r));
	ListBox1.Items.Add('Расчет окончен');
   end;
end;

From Stilet: Когда мы научимся оформлять код спецтегом?

[puporev]

Хз, мож не правильно, но мне больше всего кажется правильным такой код:

Это понятно, просто человеку интересно как происходит процесс вычисления без begin..end;

[Somebody]

Надо ещё добавить, что хотя обычно здесь всё выполняется так, как описал artemavd (если что, Round округляет .5 в чётную сторону, так вроде делают в банках или ещё где-то), оно не обязано выполняться так. После цикла значение счётчика не определено. Например, у меня Delphi в коде
for i := 11 to 99 do a[i] := 55;
отдельно перебирает i от 89 до 1 и адрес от a[11] до a[99], хотя это только если i потом не используется, опять же, ничто не запрещает компилятору так делать всегда.