Jecstor Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Подскажите как сделать программу, чтоб она вычесляла 5% от заданного числа? Я что-то путаю с типами данных. Всего записей: 3 | Зарегистр. 19-07-2006 | Отправлено: 23:39 19-07-2006

RedPromo Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Это тебе готовые функции. Две функции одна работает с целыми числами другая с дробными. Надеюсь какая с какими догадаешся.   function CalculatePersent(Value: integer;Persent: integer): integer; overload; begin   Result:= Trunc(Value*Persent/100);   //Или если хочеш можеш округлить значение Round end;   function CalculatePersent(Value: double;Persent: integer): double; overload; begin   Result:= Value*Persent/100; end;   Пример вызова     CalculatePersent(100,5);     CalculatePersent(58.65,5); Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 00:19 20-07-2006 | Исправлено: RedPromo, 00:23 20-07-2006

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Delphi 7.0

ShIvADeSt (20-07-2006 01:55): Смотрим ФАК по дельфи. и учимся задавать вопросы.

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование