{* Задача 326 *}

Unit ZADACH326;
Interface
Implementation
Begin
 writeln('Определение площади фигуры методом Монте-Карло');
End.

Program pas13579;

Uses zadach326.pas; {* Эту строку можно удалить *}
unit Unit1;
interface
Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, Series, Teengine, stdctrls, extctrls, teeprocs, chart, teeshape, math, bubblech, comctrls, buttons; {* Подключение модулей *}
Type {* Создание новых типов данных *}
  TForm1 = class(TForm)      Panel1 : TPanel;
  ProgressBar1 : TProgressBar;
  Button1 : TButton;
  Button2 : TButton;
  Button3 : TButton;
  Chart1 : TChart;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Series1 : TLineSeries;
  Series2 : TLineSeries;
  Series3 : TLineSeries;
  Series4 : TLineSeries;
  Series5 : TLineSeries;
  Series6 : TLineSeries;
  Series7 : TPointSeries;
Procedure Button1Click(Sender : TObject);
Procedure Button2Click(Sender : TObject);
Procedure Button3Click(Sender : TObject);
Procedure FormResize(Sender : TObject);
private      { Private declarations }
public      { Public declarations }
End;
Var {* Необходимые переменные *}
  Form1                                : TForm1; {$R *.dfm}
Procedure TForm1.Button1Click(Sender : TObject);
Var {* В работе нам потребуются переменные: *}
  i                                    : integer;
  x                                    : real;
  y                                    : real;
  P                                    : real;
  Begin
For i := - 1000 To 1000 Do
  Begin
Button3.Enabled;
x := i / 1000;
y := sqrt(1 - sqr(x));
For i := - 1000 To 1000 Do
  Begin
x;
y := - sqrt(1 - sqr(x));
For i := 0 To 1000 Do; {* Переменная i увеличивается с 0 до 1000 *}
  y := x - 1;
For i := 0 To 1000 Do; {* Увеличиваем i от 0 до 1000 с шагом 1 *}
  y := x + 1;
For i := 0 To 1000 Do; {* Увеличиваем i от 0 до 1000 с шагом 1 *}
  y := 1 - x;
For i := 0 Downto - 1000 Do
  Begin
x;
y := - x - 1;
Procedure TForm1.Button2Click(Sender : TObject);
Procedure TForm1.Button3Click(Sender : TObject);
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
Var {* В работе нам потребуются переменные: *}
  totalCountPoint : integer;
  i               : integer;
  int             : integer;
  ext             : integer;
Var {* В работе нам потребуются переменные: *}
  N_str : String;
Var {* Объявление переменных *}
  sFing : real;
  error : real;
Var {* Объявление переменных *}
  s : String;
  Begin
  N_str := '10000';
While true Do
  Begin
If Not InputQuery('', 'Введите количество точек', N_STR) Then
  exit
Else try  totalCountPoint := StrToint(N_str);
  break;
except  ShowMessage('Количество точек введено не верно');
End;

End;
randomize;
int := 0;
ext := 0;
Chart1.seriesList[6].Clear;
ProgressBar1.Max := TotalCountpoint;
For i := 1 To totalcountpoint Do {* Увеличиваем i от 1 до totalcountpoint с шагом 1 *}
  Begin
x := 2 * random - 1;
y := 2 * random - 1;
If ((y > = x + 1)And(y = 1 - x)And (yPanel1.Height Then
  l := Panel1.Height
Else l := Panel1.Width;
  Chart1.Width := l;
Chart1.Height := l;
Chart1.Top := ((panel1.Height - Chart1.Height) Div 2);
Chart1.Top := ((panel1.Width - Chart1.Width) Div 2);
}
End;

End...