25.01.2010, 00:32
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Когда увидел строку
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
хотел поругать, но слеш уже все написал как нельзя лучше )))
Давайте обьясним почему это плохо. Потому что за каждый проход цикла делается команда StrToInt(edt2.text) div 2. Вместо этого можно было создать переменную и сделать так:
Код:
n := StrToInt(edt2.text) div 2;
m := StrToInt(edt2.text) mod 2;
for i:=1 to n+m do
Ну а вообще слеш уже все обьяснил.
Последний раз редактировалось =Zeus=; 25.01.2010 в 00:37..
|
|
|