Необходимо нарисовать изолинии 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;
Не работает=(