Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c