ช่วยหน่อครับกับภาษาPascal

[undelete]

:( มีโจทย์มาดังนี้ครับ

สร้าง Array แบบ 1 มิติ 20 ช่อง รับข้อมูลตัวเลข เสร็จแล้วให้หาว่า

1. มีเลขคู่กี่จำนวน และเลขคี่กี่จำนวน

2. ผลรวมของเลขคู่ และผลรวมของเลขคี่

3. เลขคู่คิดเป็นกี่เปอร์เซนต์ของเลขคี่

ยังไงก็ช่วยแนะนำหน่อยนะครับ :P

[cleverness]

**Hidden Content: Check the thread to see hidden data.**

[yougubget]

เวนกำ ถามเพื่อนในห้องเรียนดีกว่าม่ะครับ

[oumzza]

type
TForm2 = class(TForm)
edtCalc: TButton;
Edit1: TEdit;
procedure edtCalcClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function FindPct( A , B :WORD):single;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

var
Ary:Array[0..20-1] of Integer;
A,B:WORD; // A = คู่ B = คี่
A_zum,B_zum:integer;
procedure TForm2.edtCalcClick(Sender: TObject);
var
I: Integer;
begin
A := 0; B := 0; A_zum := 0; B_zum := 0;
for I := 0 to length(Ary) - 1 do
begin
if odd(Ary[I]) then
begin
//คี่
B_zum := B_zum + Ary[I];
inc( B );
end
else
begin
//คู่
A_zum := A_zum + Ary[I];
inc( A );
end;
end;
Edit1.Text := FormatFloat(',##0.00',FindPct( A , B ));
end;

function TForm2.FindPct(A: Word; B: Word):single;
begin
result := (100* A )/( A + B );
end;

อันนี้เลยครับส่วนค่าใน Array ไปใส่เอาเองนะครับ