دخول

U-MAX · 10-10-2010, 11:23 AM

السلام عليكم

لد استفسار عن كيفية جمع الارقام المولدة

على سبيل المثال تم عمل توليد عشوائى للارقام التالية
6289383366934268274
السؤال هو كيف يتم جمع هذة القيم بهذا الشكل

PHP كود :
6+2+8+9+3+8+3+3+6+6+9+3+4+2+6+8+2+7+4= 63$ 

والسلام عليكم

**kachwahed** · 10-10-2010, 11:37 AM

وعليكم السلام ورحمة الله

إقتباس :السؤال هو كيف يتم جمع هذة القيم بهذا الشكل

حلقة (For) تطوف حول السلسلة لتحول كل محرف (Char) إلى رقم وتضيفه إلى مجموع تراكمي
أرفق محاولة ونصححها معا إن شاء الله
بالتوفيق.

U-MAX · 10-10-2010, 01:25 PM

السلا عليكم

مشكور اخى كاش واحد : على الاهتمام

هذا الكود ما حاولت معة ولاكن يعطينى مجموع المحارف وليس المجموع التاركمى

كود :
[COLOR="DarkRed"]function RandomNum : String;
var
A, K: String;
i: Integer;
begin
  K:='0123456789';
  A:='xxxxxxxxxxxxxxxxxxxx';
  for i:=1 to length(A) do
    A[i]:=K[Random(length(k))+1];

  Result := A;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
A:String;
i,j:integer;
begin
j := 0;
A:=RandomNum;
For i := 1 To Length (A) do
j:= j + Ord(A[i]);
Edit1.Text:=IntToStr(i);
end;[/COLOR]

تحية لك

**kachwahed** · 10-10-2010, 02:39 PM

استبدل السطرين:

كود :
j:= j + Ord(A[i]);
Edit1.Text:=IntToStr(i);

بـ

كود :
j:= j + [color=Blue]StrToInt[/color](A[i]);
  Edit1.Text:=IntToStr([color=Blue]j[/color]);

بالتوفيق.

U-MAX · 10-10-2010, 07:36 PM

السلام عليكم
بارك الله فيك اخى كاش واحد
هذا هو المطلوب فعلا
تحية لك

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة