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

[محمد عبد العزيز]

وهذه طريقة اخرى مختلفة

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; 


ولتجربتها بزر Button نكتب

PHP كود :

var
 Y,X,Z : String;
begin

 GetYXZ(Edit4.Text,Y,X,Z);

 Edit1.Text := Z ;
 Edit2.Text := X ;
 Edit3.Text := Y ;

end; 


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