|
#1
|
|||
|
|||
Изолинии
Необходимо нарисовать изолинии 4 зарядов расположенных на углах прямоугольника.
Посмотрел книжку:КОМПЬЮТЕРНЫЕ ТЕХНОЛОГИИ В ФИЗИКЕ 77 стр. И не могу разобраться. Сделал по примеру: Код:
function Poten(x,y:extended):integer; var q,r : extended; begin r:=sqrt(sqr(x-100)+sqr(y-100)); Result:=Round(q/r); end; procedure TForm1.Button1Click(Sender: TObject); var x,y,p:integer; begin x:=0; while x < 100 do begin y:=0; while y < 100 do begin p:=Poten(x,y); if p>0 then begin Image1.Canvas.Pixels[x,y]; y:=y+1; end; if p<=0 then begin Image1.Canvas.Pixels[x,y]; y:=100; end; end; x:=x+1; end; end; |