برمجه سلسه

السلام عليكم ورحمه الله وبركاته

اخواني انا اردت اخد رايكم في هده السلسه يعني هل لايوجد امل مطلقا في حلها

ام انها صعبه الي هده الدرجه ام مادا؟

المهم لكم مني خالص التحيات والشكر

سلامات

هل ينفع بلغة c++ او لا لاني لا اعرف ابرمج ب pascal

السلام عليكم

شكرا لك اخي علي تعاونك .

هو المشكله المطلوب بلغه بسكال .عموما حصل خير هو موعد المحدد لتسليم انتهي

ولكن لدي برنامج اخر يحتاج للبرمجه بلغه البسكال

فهل اجد المساعده لديكم وهل يوجد خبراء في البسكال هنا لانه لا اريد ان يحدث لي كما حدث في البرنامج السابق لم اجد الحل او المساعده لديكم

ياريت تردون علي هل اجد الحل للبرنامج الجديد لديكم بلغه البسكال ام لا؟

سلام

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

أختي العزيزة أنا مستعد للإجابة على أسئلتك في الباسكال وأعذريني لم أشاهد هذه السلسلة من قبل لأني لم أدخل الموقع منذ فترة .

على كل حال سأحاول أن أضع الحل للسلسلة السابقة قريبا .

برنامج السلسلة السابقة ..

أرجو أن تجربيه فقد حللته بسرعة .. على كل حال هناك شيء لم أعرفه وهو الرمز F(x0)

وأعتقد أنه تابع أو أنك كتبته خطأ على كل حال استعضت عنه بجمع x0 فقط ويمكنك تعديل الكود كما تشائين وقد أشرت إلى مكان التعديل المحتمل .

var 
 Result,x,x0,Temp:Real;
 Mark:Boolean;
 I,n:Longint;
Begin

 {The input area ...}
 Write('Enter x :');
 Readln(x);
 Write('Enter n :');
 Readln(n);

 {Setting the variables ...}
 x0:=x/2;
 Mark:=False;
 Result:=0;

 {The main loop ...}
 For I:=2 to n do
  Begin
    Temp:=exp(I * ln(x-x0))/exp(I * ln(I*x));
    if not Mark then Temp:=-Temp;
    Mark:=not mark;
    Result:=Result+Temp;
  end;

 {I didn't know the operation f(x0) so I wrote x0 only, you can change it from
  the line below ...}

 Result:=Result+x0+(x-x0)/x; {Setting the final result ...}

 {Writing the final result in the 20:20 depth because Result is a real variable ...}
 Writeln('The Result is :',Result:20:20);
 Readln;
 {Programmed by : Nova  A.Kinan.Sandouk}
end.

السلام عليكم ورحمه الله وبركاته

اولا اخي الكريم اشكرك جدا لتعاونك وحل هده السلسه و داعيه الي الله ان يجعل دالك في ميزان حسناتك .

وبالنسبه الي السؤال الثاني الدي اريد برمجته سوف انزله غدا ان شاء الله

سلام.

تم نقله لتخصصه فى الباسكال و لفرصه أكبر فى المساعده و النقاش .

أنا بانتظار السؤال الثاني .

السلام عليكم ورحمه الله وبركاته

اخواني الاعزاء : انا عدت اليكم طامعه يمساعدتكم لي في برمجه سؤال لدي بلغه البسكال

ويااخي الكريم انا اشكرك جدا علي الاهتمام واتا سف علي التاخير وسسبه اني اليوم فقط استلمت السؤال وايضا انشغالي بالامتحانات.

السؤال هو : برمجه هده المصفوفه

m 2n m 2n-1 m 2n-2 m n

xمج ... x مج x مج x مج

i=0 i i=0 i i=0 i i=0 i

m 2n-1 m 2n-2 m 2n -3 m n-1

x مج ... x مج x مج x مج

i=0 i i=0 i i=0 i i=0 i

m 2n -2 m 2n -3 m 2n-4 m n-2

xمج ... xمج x مج x مج

i=0 i i=0 i i=0 i i=0 i

. . . .

. . . .

. . . .

m n m n-1 m n-2

x ... mمج x مج x مج

i=0 i i=0 i i=0 i

لمقصود مثلا العنصر الاول في المصفوفه هومجموع xi اس 2n و i من صفر الي m وهكدا الي كل باقي العناصر في المصفوفه. و m هي عدد النقاط او المتغيرات او البيانات وn هي درجه الداله اما رتبه المصفوفه هي (n+1)*(n+1) يعني لو كانت الدرجه n = 5 فرتبه المصفوفه هي 6*6.

مع العلم هدا السؤال في ماده الطرق العدديه numerical في درس المربعات الصغريleast squares.

ارجوكم محاوله البرمجه قبل يوم الخميس لان الخميس موعد التسليم هدا السؤال وعليه عشرون درجه للامتحان العملي.فسااعدونييي.

ارجوا ان تفهمتوا مني المطلوب والسؤال وان لم يتضح لكم الامر ارجوكم ابليغوني حتي احاول ان اوضح اكثر

وشكرا.

السلام عليكم

اخواني اتمني ان يكون سؤالي واضح فانا اعلم ان شكل المصفوفه لم يكون بالشكليه الواضحه ودلك لاستعجالي وكدلك لقله خبرتي فانا مازلت مبتدئه في هدا البحر العميق جدا بالمعلومات الرائعه.

واود ان اعلمك بشئ نسيت ان اخبره لكم بان برمجه السؤال او المصفوفه مطلوبه باستخدام الاجراءات procedure .

وطبعا انا في انتطار تعاونكم وكرمكم واتمني ان يكون عاجلا

سلامات

الرجاء الشرح أكثر وكتابة السؤال بطريقة أخرى لأن الطريقة التي شرحت بها

غير مفهومة وشكل المصفوقة غير مفهوم إلى الآن .. والرجاء التوضيح ما هي المتحولات

الأساسية المطلوب إدخالها وما نوع المصفوفة المطلوبة أحادية البعد أم أكثر .!

السلام عليكم

اخي الكريم طيعا المصفوفه اكثر من بعد مثل ما قلت لو كانت الدرجه n=5

المصفوفه 6*6

اما المتعيرات المطلوب ادخالها اي ارقام عادي

وبالنسبه لشكل المصفوفه سوف احاول اوضح اكثر

وشكرا

أنا بانتظار توضيح المصفوفة أكثر .. لأنه أصبح لدي شغف شديد لحلها .

السلام عليكم

شكل المصفوفه :

m 2n m 2n-1 m n

sum xi sum xi .. ... sum x i

i=0 i=0 i=0

m 2n-1 m 2n-2 m n-1

sum xi sum xi .... sum xi

i=0 i=0 i=0

. . .

. . .

. . .

m n m n-1

sum xi sum xi .... m

i=0 i=0

وكل المصفوفه السابقه مضروبه في

an

an-1

an-2

.

.

.

a0

فينتج المصفوفه:

m

sum xi yi

i=0

m n-1

sum xi yi

i=0

m n-2

sum xi yi

i=0

اتمني من الله العلي ان الصوره قد وضحت اكثر ارجوا ان تساعدوني بسرعه لاني بصراحه

لقد عجزت كليا علي برمجتها. ادعوا الله ان اجد لديكم الحل .

شكرا جزيلا nova علي اهتمامك ومتابعه الموضوع فانا حقا في اشد الحاجه للحل

واتاسف علي تاخيري في الرد لانه موعد انصرافي من الدراسه متاخر واول ما تسمح لي الفرصه ارد فورا .

فارجوا تعاونكم معي.

وشكرا.

السلام عليكم

طبعا sum هي من i=0 الي m

و xi اس 2n والعنصر يلي بعده xi اس 2n-2 وهكدا

يعني i=0 و m تابع sum

والباقي تابع xi

ودرجه المصفوقه نحن نحددها عن طريق الادخال بعد التنفيد طبعا

سلام

حل البرنامج كما فهمته .. وأنا بانتظار الرد

Function Sum(m,xi,n:Byte):Real;
  var
   Function Power(xi,n:Byte):Real;
     var 
      x:Byte;Temp1,Temp2:Real;
      Begin
       Temp2:=0;
       For x:=0 to n do     
        Begin
         Temp1:=exp(x * ln(xi));
         Temp2:=Temp2+Temp1;
        end;
       Power:=Temp2;
      end;(*Power*)
   i:Byte;Temp3:Real;

   Begin
    Temp3:=0;
    For i:=0 to m do 
     Temp3:=Temp3+Power(xi,n);
    Sum:=Temp3;
   end;

Procedure Result:
  var 
   i,l:Byte;Temp:Real;
   Begin
    For i:=0 to n do 
     Begin
      ResultArray:=0;
      Temp:=0;
      For l:=0 to n do 
          Temp:=Temp+Myarray[i,l];
      Temp:=Temp*An-i;
      ResultArray:=Temp;
     end;
   end;(*Result*)

Procedure Print;
  var 
   i:Byte;
  Begin
    For i:=0 to n do 
     Writeln('Result array ',i,' = ',ResultArray);
  end;
var 
  MyArray:Array [0..20,0..20] of Real;
  ResultArray:Array[0..20] of Real;
  M,n,xi,an:Byte;
  x,y:Byte;

Begin
  Write('Enter m :');Readln(M);
  Write('Enter n :');Readln(n);
  Write('Enter xi:');Readln(xi);
  For y:=0 to n do 
   For x:=0 to n do 
    Begin
     MyArray[y,x]:=Sum(m,xi,2*n-x-y);
    end;
  Write('Now enter an :');Readln(an);
  Result;
  Print;
  Readln;
end.  {Programmed by : A.Kinan Sandouk   NOVA A320}

!!!!!!!

يمكن أن يكون مشكلة في الضرب الأخير ... أرجو التوضيح ؟

السلام عليكم

اخي الكريم

اتاسف علي التاخير وبالنسبه للبرنامج ان شاء الله سوف اطبقه لارائ هل من مشكله ام لا وارد عليك عاجلا ان شاء الله

ولك خالص شكري وتقديري علي مساعدتك الكبيره لي واتمني من الله عز وجل ان يجعل دلك في ميزان حسناتك.

وشكرا

السلام عليكم

اخي الكريم

البرنامج لم يتنفد معي بس الفكره ممتازه لكن الله اعلم اين المشكله

سلام

لقد جربت البرنامج وهو يعمل .. ولكن أريد أن أتأكد إذا كانت النتائج صحيحة

إنتبهي إلى أن حد المصفوفات في الحجز الساكن وضعته 20

السلام عليكم

المشكله هي ان النتائج كلها اصفار

وشكرا

Function Sum(m,xi,n:Byte):Real;
  var
   Function Power(xi,n:Byte):Real;
     var 
      x:Byte;Temp1,Temp2:Real;
      Begin
       Temp2:=0;
       For x:=0 to n do     
        Begin
         Temp1:=exp(x * ln(xi));
         Temp2:=Temp2+Temp1;
        end;
       Power:=Temp2;
      end;(*Power*)
   i:Byte;Temp3:Real;

   Begin
    Temp3:=0;
    For i:=0 to m do 
     Temp3:=Temp3+Power(xi,n);
    Sum:=Temp3;
   end;

Procedure Result:
  var 
   i,l:Byte;Temp:Real;
   Begin
    For i:=0 to n do 
     Begin
      ResultArray:=0;
      Temp:=0;
      For l:=0 to n do 
          Temp:=Temp+Myarray[i,l];
      Temp:=Temp*An-i;
      ResultArray:=Temp;
     end;
   end;(*Result*)

Procedure Print;
  var 
   i:Byte;
  Begin
    For i:=0 to n do 
     Writeln('Result array ',i,' = ',ResultArray);
  end;
var 
  MyArray:Array [0..20,0..20] of Real;
  ResultArray:Array[0..20] of Real;
  M,n,xi,an:Byte;
  x,y:Byte;

Begin
  Write('Enter m :');Readln(M);
  Write('Enter n :');Readln(n);
  Write('Enter xi:');Readln(xi);
  For y:=0 to n do 
   For x:=0 to n do 
    Begin
     MyArray[y,x]:=Sum(m,xi,2*n-x-y);
    end;
  Write('Now enter an :');Readln(an);
  Result;
  Print;
  Readln;
end.  {Programmed by : A.Kinan Sandouk   NOVA A320}

فقط لو سمحت أخت عرفة اشرحي آخر خطوة وهي ضرب المصفوفة ..

هل هو ضرب عادي .. أي ضرب مصفوفتين أم ضرب عدد بكامل المصفوفة حتى أتأكد أن برنامجي صحيح ... و الحقيقة جربت البرنامج وهو يعمل أرجو أن تتأكدي من القيم التي تدخلينها وأن تدخلي قيم صغيرة في البداية .. طبعا انتبهي أن القيم المطلوبة هي من نوع byte أي 0 ---255 >>

أنا في الخدمة دوما .