09-12-2008, 01:07 PM
محاولة سريعة بحاجة الى Optimization لكنها تعطي النتيجة الصحيحة وهذا الاهم
كود :
Var
P, S, Q, x, i: Integer;
begin
Q := StrToInt(Edit1.Text); //ناخذ الكمية
S := 0;
for i := 1 to 3 Do Begin
case i of
1: P := 3000;
2: P := 2000;
3: P := 1000;
end;
x := Q - 10;
if x>0 then begin
S := S + (Q - x) * P;
end else if (Q<=10) and (Q>0) then S := S + (Q) * P;
Q:=Q-10;
End;
if Q>0 then S := S + (Q) * 500;
label2.Caption := IntToStr(S); // نعرض النتيجة
end;