Текущий архив: 2007.04.01;
Скачать: CL | DM;
Вниз
Использование % Найти похожие ветки
← →
XTD © (2007-03-13 12:12) [0]Ранее никогда не приходилось использовать %, теперь появилась потребность получение от целого числа процента. Можно поделить, а может проще использовать %
Задача следующая:
Нужно узнать указанный процент от целой суммы. Ну допустим нужно от числа 200, получить 15 процентов = 30.
Как можно получить процент используя «%» ?
← →
DimonS © (2007-03-13 12:14) [1]200*0.15
← →
DimonS © (2007-03-13 12:15) [2]Если не ясно, то 200*(15/100) :) Еще проще надо???
← →
XTD © (2007-03-13 12:15) [3]«%» ?
← →
XTD © (2007-03-13 12:18) [4]Возможно ли посчитать процент не используя *, /, а используя % ?
← →
Рамиль © (2007-03-13 12:23) [5]
> Возможно ли посчитать процент не используя *, /, а используя
> % ?
Ты прикалываешься или ...? Ты еще спроси как факториал используя "!" получить.
← →
Рамиль © (2007-03-13 12:24) [6]Калькулятор возьми, там есть кнопка "%".
← →
XTD © (2007-03-13 12:27) [7]Ясно, зачем писать программу, если есть калькулятор? ;-)
Буду делить…
← →
Думкин © (2007-03-13 12:33) [8]
> Возможно ли посчитать процент не используя *, /, а используя
> % ?function calc(const s:string):extended;
var a,b : extended;
c : string;
i : integer;
begin
i := Pos("%",s);
if i=0 then Result := 0
else begin
a := StrToFloat(Copy(s,1,i-1));
b := StrToFloat(Copy(s,i+1,MaxInt));
Result := b/100*a
end;
end;
procedure TForm1.Action1Execute(Sender: TObject);
begin
Caption := Format("%f",[calc("5%200")])
end;
← →
XTD © (2007-03-13 12:37) [9]
> function calc(const s:string):extended;
> var a,b : extended;
> c : string;
> i : integer;
> begin
> i := Pos("%",s);
> if i=0 then Result := 0
> else begin
> a := StrToFloat(Copy(s,1,i-1));
> b := StrToFloat(Copy(s,i+1,MaxInt));
> Result := b/100*a
> end;
> end;
>
> procedure TForm1.Action1Execute(Sender: TObject);
> begin
> Caption := Format("%f",[calc("5%200")])
> end;
Спасибо!
← →
Рамиль © (2007-03-13 12:42) [10]
> XTD © (13.03.07 12:37) [9]
Хм... Это то что тебе было нужно?
Пошел телепортатор чинить :(
← →
pasha_golub © (2007-03-13 12:42) [11]
> XTD © (13.03.07 12:37) [9]
Дитер Болен?
← →
Думкин © (2007-03-13 12:44) [12]> Спасибо!
И кто кого разыграл? :)
Страницы: 1 вся ветка
Текущий архив: 2007.04.01;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.029 c
