17-06-2010, 12:38 PM
وعليكم السلام اخي
حاولت في ذالك وتوصلت الى هذا الكود:
حيث ان المستعمل يستطيع تعيين a.b فقط
حاولت في ذالك وتوصلت الى هذا الكود:
حيث ان المستعمل يستطيع تعيين a.b فقط
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : Integer ;
x,y : Real ;
dx : Real ;
Begin
x :=-100 ;
dx :=0.1 ;
y := 0 ;
a := Round (x*15 +Width div 2);
b := Round (-y*15+Height div 2);
form1.Image1.Canvas.MoveTo(a,b);
Repeat
form1.Image1.Canvas.LineTo(a,b) ;
x := x + dx ;
y :=strtoint(Edit1.Text)*SQR(x)+strtoint(Edit2.Text) ;
a := Round (x*50+Width div 2);
b := Round (-y*50+Height div 2);
until x>150;
end;
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان