Тема: "%" kalkulator
Показать сообщение отдельно
  #2  
Старый 25.03.2011, 22:38
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
  
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию
Так наверно:
Код:
Function Procent(N, Ni: Real): Real;
begin
 Result:= (Ni/N)*100;
end;
__________________
If end Then begin;
Ответить с цитированием