PDA

View Full Version : روش محاسبه درصد بر اساس چند متغیر؟

DelphiAssistant
شنبه 29 شهریور 1382, 05:23 بعد از ظهر
فرض کنید چند متغیر بشرح زیر داریم:

آبی=500
زرد=224
قرمز=60
بنفش=76
سبز=8

حالا میخواهیم کل این مقادیر را برحسب درصد نمایش دهیم، مثلا بگوییم از مقدار 100% ما، 45% آبی، 35% زرد و ... هستند. روش پیشنهادی شما چیست؟

در ضمن این روش نباید در تعداد متغیرها محدودیت داشته باشد، و در ضمن مجموع سهم درصد تمام متغیرها بر روی هم باید 100% بشود.
Kambiz
شنبه 29 شهریور 1382, 06:58 بعد از ظهر
Vx
Px = 100 * --------------------
V1 + V2 + ... + Vn
:?:
DelphiAssistant
شنبه 29 شهریور 1382, 07:22 بعد از ظهر
سلام.
میشه یک مثال تو پاسکال برام بزنید؟
Kambiz
شنبه 29 شهریور 1382, 08:28 بعد از ظهر
var
Values : array[1..NumOfValues] of Integer;
Percentages : array[1..NumOfValues] of Double;
SumOfValues : Integer;
I : Integer;
begin
// Calculates sum of values
SumOfValues := 0;
for I := 1 to NumOfValues do
SumOfValues := SumOfValues + Values[I];

// Calculates percentage of each value
for I := 1 to NumOfValues do
Percentages[I] := 100 * Values[I] / SumOfValues;
end;