[تمرين] استخراج ثوابت لكثير حدود اقل من الدرجة الثانية

[hanipino]

السلام عليكم

طريقة اخرى مقرصنة من طريقة الاخ (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;