ماطلبت هالشي الا وانا واثقه فيكم

[ثلوج القمر]

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

اعزائي اعضاء المنتدى ...

بصراحه ماادري من وين ابدأ..

لكن انا محتاجه ..منكم كتابه برنامج
(لحل النظام من المعادلات الخطيه بأستخدام طريقه جاوس للحــذف )

بأي لغه من لغات البرمجه لكن يفضل :

* لغه C
*لغه ++C
*لغه البيسك
*لغه البيسك المرئيه ( فجول البيسك )


ولكم مني كل الود والاحترام ..والشكر الجزيل

واسفه انه اول مشاركه لي ..وكانت طلب منكم ..لكن الحاجهـ..اجبرتن ي



تحياني لكم ..وانتظر ردودكم ...


ملحوظه : اي استفسار انا جاهزهــ


ثلوج القمر

[waad]

السلام عليكم
اهلا وسهلا بك معنا اختي ثلوج القمر
اختي يمكنك اخيار اي لغة وان شاء الله سأساعدك اذا واجهتك مشكله
بالتوفيق
تحياتي

[ثلوج القمر]

السلام عليكم
اهلا وسهلا بك معنا اختي ثلوج القمر
اختي يمكنك اخيار اي لغة وان شاء الله سأساعدك اذا واجهتك مشكله
بالتوفيق
تحياتي


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

شوف اسهل لك اي شي: يا C
او فجول البيسك

واي شي اسهل لك سويه

ولكي مني كل الشكر

[ARWA13]

انا بالبيسك بس وش تبين بالضبط

[ثلوج القمر]

يعافيك ربي
ابي هالبرنامج


لكن انا محتاجه ..منكم كتابه برنامج
(لحل النظام من المعادلات الخطيه بأستخدام طريقه جاوس للحــذف )



تحياتي لكم

[waad]

السلام عليكم
اختي ثلوج القمر
انا اقصد انك تعملي البرنامج واذا واجهتك مشاكل تحطيها هنا وبنساعدك بإذن الله
صدقيني هذه احسن طريقة للتعلم واذا انا عملته لك معناه اني ما ابغي مصلحتك

وفقك الله اختي والى الأمام ان شاء الله
اختك وعد

[ثلوج القمر]

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

وملحوظه : انا اختي اللي طالبته ..وهي بحاسب اتمنى تساعدونها
انا مااعرف اسويه

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

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


انتظر ردودكم ...

طيب انا عندي بلغه البسكال ...تقدرون تحولونه لي ...

انتظررررررررررر ررررررررررررررر رررررررركم

[اكرم التميمي]

والله لو اقدر انا كنت سويته لك .. بأي لغة لكن ما اعرف شئ ..

[ثلوج القمر]

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

انا لقيت البرنامج بلغه الباسكال ممكن تحولونه باقرب وقت لاني ابيه ضروري:(
الى اي لغه من اللغات اما لغه c او لغه c++ او لغه الفيجول بيسك
ان شاء الله انكم قدها :ah3:

الكود بلغه الباسكال:

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

PROGRAM GAUSS(input,out put);

label 1,2,4,6,7,8,10;
type ret=array[1..100,1..100] of real;
bat=array[1..100] of real;
const s=' ';
var

a:ret;
x:bat;
e,i,q,m,ichg,ip ,j,jj,k,kk,l,g: integer;
c,sum,xm:real;
begin


1: writeln(s:10,'W ELCOME TO MUAAD & FAHD PROGRAMS COMPUTERS - TAIZ');
writeln(s:10,'= =============== =============== =============== ===');
writeln(s:10,'E NTER NO OF EQUATIONS');
readln(q);
m:=q+1;
for i:=1 to q do
for j:=1 to m do
begin
writeln('ENTER VALUE OF ROW',i:2,'COL', j:2);
readln(a[i,j]);
end;
writeln('ORIGIN AL SYSTEM');
for i:=1 to q do
for j:=1 to m do
write(s:10,a[i,j]:2:2,' ');
writeln;
ichg:=0;
i:=1;
2: if (abs(a[i,i])<> 0.0) then goto 4;
j:=i+1;
8: for ip:=j to q do
if (abs(a[ip,i])<> 0.0) then goto 6;
writeln('SYSTEM HAS NOT A SOLUTION');
goto 7;
6: for jj:=1 to m do
begin
c:=a[i,jj];
a[i,jj]:=a[ip,jj];
a[ip,jj]:=c
end;
ichg:=ichg+1;
4: j:=i+1;
for jj:=j to q do
begin
xm:=a[jj,i]/a[i,i];
for k:=j to m do a[jj,k]:=a[jj,k]-xm*a[i,k];
a[jj,i]:=0.0;
end;
i:=i+1;
if i<q then goto 2;
if abs(a[q,q])<1.0E-20 then goto 8;
x[q]:=a[q,q+1]/a[q,q];
l:=q-1;
for k:=1 to l do
begin
j:=q-k;
jj:=j+1;
sum:=a[j,q+1];
for kk:=jj to q do sum:=sum-a[j,kk]*x[kk];
x[j]:=sum/a[j,j];
end;
writeln('THE REDUCED SYSTEM IS');
for i:=1 to q do
for j:=1 to m do write(s:10,a[i,j]:2:2,' ');
writeln;
writeln('THE SOLUTION IS');
FOR i:=1 to q do writeln(' ','X',i,'=',x[i]:2:2);
writeln;
writeln('NO OF CHANGE=',ichg:2 );
7: writeln (s:10,'if you WANT TO be continue, press 1 or press 0 to stop the program.');
readln(g);
if g=1 then goto 1;
if g=0 then goto 10;


10: end.

مشكورين ع التعاون:shiny: