| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование % [D7, 2000]

XTD ©   (2007-03-13 12:12:00) 

Ранее никогда не приходилось использовать %, теперь появилась потребность получение от целого числа процента. Можно поделить, а может проще использовать %
Задача следующая:
Нужно узнать указанный процент от целой суммы. Ну допустим нужно от числа 200, получить 15 процентов = 30.
Как можно получить процент используя «%» ?

---

Думкин   (2007-03-13 12:44:00) [1]

> Спасибо!

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

---

Рамиль   (2007-03-13 12:42:00) [2]

> XTD ©   (13.03.07 12:37) [9]

Хм... Это то что тебе было нужно?

Пошел телепортатор чинить :(

---

pasha_golub   (2007-03-13 12:42:00) [3]

> XTD ©   (13.03.07 12:37) [9]

Дитер Болен?

---

XTD   (2007-03-13 12:37:00) [4]

> 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:33:00) [5]

> Возможно ли посчитать процент не используя *, /, а используя
> % ?


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:27:00) [6]

Ясно, зачем писать программу, если есть калькулятор? ;-)

Буду делить…

---

Рамиль   (2007-03-13 12:24:00) [7]

Калькулятор возьми, там есть кнопка "%".

---

Рамиль   (2007-03-13 12:23:00) [8]

> Возможно ли посчитать процент не используя *, /, а используя
> % ?

Ты прикалываешься или ...? Ты еще спроси как факториал используя "!" получить.

---

XTD   (2007-03-13 12:18:00) [9]

Возможно ли посчитать процент не используя *, /, а используя % ?

---

DimonS   (2007-03-13 12:15:00) [10]

Если не ясно, то 200*(15/100) :) Еще проще надо???

---

XTD   (2007-03-13 12:15:00) [11]

«%» ?

---

DimonS   (2007-03-13 12:14:00) [12]

200*0.15

---

Наверх