Использование %

← →
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;

> 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;

Спасибо!

> Спасибо!

И кто кого разыграл? :)

Использование % Найти похожие ветки