График в Canvas

[Rilpack]

Реализовать рекурсивный алгоритм возведения числа в натуральную степень.
Задание я сделал, вот листинг:

procedure TForm1.Button1Click(Sender: TObject);
function stepen(a:double;n:real):double;
begin
  if n=0 then
    stepen:=1
  else
    stepen:=stepen(a,n-1)*a;
end;
var n,a:integer;
begin
  try
    n:=StrToInt(Edit1.Text);
    a:=StrToInt(Edit2.Text);
  except
    exit;
  end;
  Label1.Caption:=FloatToStr(Stepen(n,a));
end;

Нужно сделать график, чтобы на одной оси были числа n, на другой - а. И при заданности этих переменных, линии этих осей пересекались и показывало степень.
На компоненте Image должен находиться график.

[Аватар]

Нарисуй такой график на бумаге и покажи что получилось здесь )

[Rilpack]

Например, мы присвоили переменным значения 4.
В ответе у меня получается 256 и должен появится график.

[taras-proger77]

Сообщение от Rilpack

Задание я сделал

Нет. Во-первых в задании степень натуральная. А у тебя real. Real – это действительный. А во-вторых действительные числа вообще нельзя так сравнивать.

[Аватар]

Image.Canvas и его методов MoveTo, LineTo и TextOut вполне достаточно. Учесть, что пиксели нумеруются слева направо и сверху вниз от 0

[Serge_Bliznykov]

Сообщение от Rilpack

В ответе у меня получается 256 и должен появится график.

а где на графике 256 ? И какое отношение этот график имеет к степенной функции?

[Аватар]

Да ни какой это не график ) Почему и попросил изобразить. Ну хочется - пусть рисует )

[Serge_Bliznykov]

Сообщение от Аватар

Да ни какой это не график ) Почему и попросил изобразить. Ну хочется - пусть рисует )

понятно. непонятно что иллюстрирующий рисунок.

Да пусть рисует. я не против!

Сообщение от taras-proger77

Нет. Во-первых в задании степень натуральная. А у тебя real. Real – это действительный. А во-вторых действительные числа вообще нельзя так сравнивать.

согласен с замечанием.

Сообщение от Rilpack

function stepen(a:double;n:real):double;

function stepen(a:double;n:integer):double;

[Rilpack]

Сообщение от Serge_Bliznykov

а где на графике 256

Я имею в виду, результат появляется в Label в программе.

Сообщение от Аватар

Да ни какой это не график ) Почему и попросил изобразить. Ну хочется - пусть рисует )

Я поэтому и прошу помочь сделать этот "рисунок". Я с методами Canvas плохо знаком.

Сообщение от taras-proger77

Нет. Во-первых в задании степень натуральная. А у тебя real. Real – это действительный. А во-вторых действительные числа вообще нельзя так сравнивать.

Прошу прощения, не заметил.

[Serge_Bliznykov]

вот пример (с) Puporev с киберфорума

procedure TForm1.Button1Click(Sender: TObject);
var xc,yc,w,h,i:integer;
    mx,my,x,y:real;

  lb : LOGBRUSH;

begin
xc:=Image1.Width div 2;
yc:= Image1.Height div 2;
w:=xc*2;
h:=yc*2;
mx:=(w-50)/12;
my:=(h-40)/60;
with Image1.Canvas do
 begin
  Brush.Color:=clWhite;
  Pen.Color:=clBlack;
  MoveTo(0,yc);//линии осей
  LineTo(w,yc);
  MoveTo(xc,0);
  LineTo(xc,h);
  textout(w-20,yc-20,'X');//подпись концов
  textout(xc+10,10,'Y');
  textout(xc+10,yc+10,'0');
  for i:=1 to 6 do
   begin
    MoveTo(xc+round(i*mx),yc-3); LineTo(xc+round(i*mx),yc+3);//засечки на оси Х
    MoveTo(xc-round(i*mx),yc-3); LineTo(xc-round(i*mx),yc+3);
    textout(xc+round(i*mx),yc+10,Inttostr(i));//подписи
    textout(xc-round(i*mx),yc+10,Inttostr(-i));
    MoveTo(xc+3,yc-round(i*my*5)); LineTo(xc-3,yc-round(i*my*5));//засечки по У
    MoveTo(xc+3,yc+round(i*my*5)); LineTo(xc-3,yc+round(i*my*5));
    textout(xc-30,yc-round(i*my*5),Inttostr(i));//подписи
    textout(xc-30,yc+round(i*my*5),Inttostr(-1*i));
   end;

  lb.lbStyle := BS_SOLID;
  lb.lbColor := clGreen;
  Pen.Handle := ExtCreatePen(PS_GEOMETRIC or PS_DASH, 2, lb, 0, nil);
  MoveTo(xc+round(4*mx),yc); LineTo(xc+round(4*mx),yc-round(4*my*5));
  LineTo(xc,yc-round(4*my*5));


 end;
end;

изврат с ExtCreatePen только для того, чтобы пунктирную линию нарисовать.
если отказаться от пунктира (или рисовать его самостоятельно кусочками линий) - тогда в этом коде нет необходимости.