|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.02.2011, 00:17 | #41 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Оптимизация, оптимизация, оптимизация [пена изо рта]
a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); // c:=b/0.7; -1 строка лишнего кода c:=Trunc((b/0.7)*10)/10; // d:=a/30; -2 строка лишнего кода d:=Trunc((a/30)*10)/10; // e:=c-d; -3 строка лишнего кода // f:=e*n; -4 строка лишнего кода f:=Trunc(((c-d)*n)*100)/100; // i:=d*5.5; -5 строка лишнего кода i:=Trunc((d*5.5)*100)/100; // s:=f+i; -6 строка лишнего кода, но я не уверен) Edit3.Text:=FloatToStrF(f+i,ffFixed ,4,1); и что мы получаем в рез-те: переменную e и s мы можем убрать (ибо нефиг ресурсы компьютера потреблять понапрасну :D) и мы избежали загрузки на цп под 100% Мб я и написал не правильно, но будьте внимательны: оптимизация есть везде!
Возможно Я Быдлокодер ©.
Последний раз редактировалось t2skler; 15.02.2011 в 00:20. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как ограничить количество вводимых знаков числа после запятой. | proggramer | Общие вопросы C/C++ | 1 | 24.03.2010 03:15 |
Разделение чисел на до запятой и после запятой | msser | Microsoft Office Excel | 8 | 23.10.2009 11:57 |
знаки после запятой | RiF | Помощь студентам | 10 | 16.12.2008 20:04 |
Как округлять числа до целых и как оставить два знака после запятой. | bles | Помощь студентам | 9 | 19.02.2008 21:53 |
как вывести число с ограниченным количеством цифр после запятой? delphi | Ensoph | Помощь студентам | 1 | 02.10.2007 07:50 |