Найти полярные координаты r и φ точки на плоскости и построить график в полярных координатах по прямоугольным координатам x и y:

Данная функция представляет собой круг:

Листинг программы.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Math;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure...