+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية (/showthread.php?tid=355)
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - hanipino - 28-12-2008
السلام عليكم
استخراج ثوابت لكثير حدود اقل من الدرجة الثانية
اولا نعبر عن متغيرات الكثير حدود ب :
X = X
Xمربع = Y
اى يكون كثير الحدود من الشكل التالى ... مثلا : 10y+50x+12
المطلوب من التمرين استخراج الثوابت فى Edit 1 و Edit2 و Edit3 ليس شرط استخراج الثوابت بالاشارة .
-) يمكن ان تكتب هذا الكثير حدود على عدة اشكال :
z x y
(1 10y+50x+12 ==< المخرجات ==< 10 ,50 ,12
(2 5x+10y+12 ==< المخرجات ==< 10 ,5 ,12
(3 5x+10y ==< المخرجات ==< 10 ,5 ,0
(4 10y+5x ==< المخرجات ==< 10 ,5 ,0
(5 5x ==< المخرجات ==< 0 ,5 ,0
(6 5y ==< المخرجات ==< 5 ,0 ,0
يجب ان تتحقق هذه السة (6) شروط .
ملاحضة :
- لايشترط استخراج الثوابت بالاشارة .
- ان كان التمرين غير واضح حمل الفيديو لتتوضح الصورة عن التمرين .
- انا توصلت الى الحل لاكن ب 48 سطر . :confused:
الفيديو
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - Rover - 28-12-2008
تفضل أخي Hanipino :
الحل مع السورس كود في المرفقات ...
و لكن يفضل أستخدام Mask في مثل هذه الحالات ..
شكراً لك ..
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - hanipino - 29-12-2008
السلام عليكم
بارك الله فيك Rover طريقة ممتازة و كاملة . و الكمال لله .
طريقتى ناقصة بحيث ادا تم تغير مكان z تختلط الامور اى مكانه دائما فى الاخير . اضافتا الى دالك غلقت على نفسى بكثرة المتغيرات
-- لم استعمل Pos .
50 سطر و سطر :confused:
PHP كود :
Type Array3Value = Array[0..2]of String;
Function ConstValue(Str:String):Array3Value;
var
i,intx,inty,x,y:integer;
inx,iny,inz:array[0..1]of integer;
Zero:string;
begin
Zero:='0';
intx :=0; inty :=0;
inx[0]:=0; inx[1]:=0;
iny[0]:=0; iny[1]:=0;
inz[0]:=0; inz[1]:=0;
for i:= 0 to length(str) do
begin
if Str[i]='x'
then intx:=i;
if Str[i]='y'
then inty:=i;
end;
x:=intx+2;
y:=inty+2;
//------------------------------------------//
if (intx < inty)and(intx <>0)then
begin
inx[0]:=(inx[0]+0); inx[1]:=(inx[1]-3+(x));
iny[0]:=(iny[0]+x); iny[1]:=(iny[1]+inty-(x));
inz[0]:=(inz[0]+y); inz[1]:=(inz[1]+length(str)+1-(y));
end
else
if (intx > inty)and(inty <>0)then
begin
inx[0]:=(inx[0]+y); inx[1]:=(inx[1]+intx-(y));
iny[0]:=(iny[0]+0); iny[1]:=(iny[1]-3+(y));
inz[0]:=(inz[0]+x); inz[1]:=(inz[1]+length(str)+1-(x));
end;
//------------------------------------------//
if (intx < inty)and(intx =0)then
begin
iny[0]:=(0); iny[1]:=(y-3);
inz[0]:=(inz[0]+y); inz[1]:=(inz[1]+length(str)+1-(y));
end;
if (intx > inty)and(inty =0)then
begin
inx[0]:=(0); inx[1]:=(x-3);
inz[0]:=(inz[0]+x); inz[1]:=(inz[1]+length(str)+1-(x));
end;
//------------------------------------------//
Result[0]:=Copy(str,inx[0],inx[1]);
Result[1]:=Copy(str,iny[0],iny[1]);
Result[2]:=Copy(str,inz[0],inz[1]);
if Result[0]='' then Result[0]:=Zero;
if Result[1]='' then Result[1]:=Zero;
if Result[2]='' then Result[2]:=Zero;
end;
اخى Rover قم بعرض طريقتك فى المنتدى (الكود) . طريقة جميلة .
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - محمد عبد العزيز - 29-12-2008
وهذه طريقة اخرى مختلفة
PHP كود :
Procedure GetYXZ(s:String;Var Y,X,Z: String);
var
i: integer;
L : TStringlist;
Begin
Y := '0'; X := Y; Z := X;
s:=UpperCase(StringReplace(s, ' ', '', [rfReplaceAll]));
s:=StringReplace(s, '+', ' ', [rfReplaceAll]);
s:=StringReplace(s, '-', ' ', [rfReplaceAll]);
L := TStringList.Create;
L.CommaText := s;
for i:=0 to L.Count-1 do begin
s:=StringReplace(L[i], 'X', '', [rfReplaceAll]);
if s<>L[i] then X := s else begin
s:=StringReplace(L[i], 'Y', '', [rfReplaceAll]);
if s<>L[i] then Y := s else
Z := L[i];
end;
end;
L.Free;
end;
PHP كود :
var
Y,X,Z : String;
begin
GetYXZ(Edit4.Text,Y,X,Z);
Edit1.Text := Z ;
Edit2.Text := X ;
Edit3.Text := Y ;
end;
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - hanipino - 29-12-2008
DeltaAziz حل ممتاز . اصغر و احسن طريقة الى حد الان . مشكور .
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - Rover - 29-12-2008
hanipino كتب :deltaaziz حل ممتاز . اصغر و احسن طريقة الى حد الان . مشكور .
و تعالج ايضاً الفراغات بين المدخلات و هذا مانسيت معالجته ..
[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية - hanipino - 02-02-2009
السلام عليكم
طريقة اخرى مقرصنة من طريقة الاخ (DeltaAziz و Rover)
PHP كود :
var
I:Byte;
S:TStringlist;
begin
Y.Text:='0'; X.Text:=Y.Text; Z.Text:=X.Text;
S:=TStringlist.Create;
ExtractStrings(['+','-'],[' '],PAnsiChar(LowerCase(Edt1.Text)),S);
for I:= 0 to S.Count-1 do
begin
if pos('x',S[i])<>0 Then X.Text:=Copy(S[I],0,length(S[I])-1);
if pos('y',S[i])<>0 Then Y.Text:=Copy(S[I],0,length(S[I])-1);
if(pos('x',S[i])= 0)And(pos('y',S[i])=0) then
Z.Text:=Copy(S[I],0,length(S[I]));
end;
S.Free;