Interface

uses

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

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Label1: TLabel;

Memo2: TMemo;

Label2: TLabel;

Memo3: TMemo;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Button3: TButton;

BitBtn1: TBitBtn;

Button4: TButton;

Button5: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Type Rasp=Record

pn:String[20];

vr:Array[1..3] of extended;

end;

var

Form1: TForm1;

f:File of rasp;

ft:TextFile;

w:rasp;

frasp,fraspt: string;

zak:Boolean;

Implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear; Memo2.Clear; Memo3.Clear;

Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear;

Button1.Enabled:=False;

zak:=False;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

w.pn:=Edit1.Text;

w.vr[1]:=StrToFloat(Edit2.Text);

w.vr[2]:=StrToFloat(Edit3.Text);

Write(f,w);

Memo1.Lines.Add(w.pn);

Memo2.Lines.Add(floatToStr(w.vr[1]));

Memo3.Lines.Add(floatToStr(w.vr[2]));

Edit1.Clear; Edit2.Clear; Edit3.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

Var m:Integer; d:extended;

begin

Memo1.Clear; Memo2.Clear; Memo3.Clear;

d:=StrToFloat(Edit5.Text);

Reset(f);

While Not EOF(f) Do

Begin

Read(f,w);

m:=0;

if w.vr[2]>d Then m:=1;

if m=0 Then

Begin

Memo1.Lines.Add(w.pn);

Memo2.Lines.Add(FloatToStr(w.vr[1]));

Memo3.Lines.Add(FloatToStr(w.vr[2]));

End;

End;

CloseFile(f);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

SaveDialog1.Title:='Создать файл';

SaveDialog1.DefaultExt:='.dat';

if SaveDialog1.Execute Then

Begin

frasp:=SaveDialog1.FileName;

AssignFile(f,frasp);

ReWrite(f);

End;

Button1.Enabled:=True;

zak:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

OpenDialog1.Title:='Открыть файл';

if OpenDialog1.Execute Then

Begin

frasp:=OpenDialog1.FileName;

AssignFile(f,frasp);

Reset(f);

End;

Memo1.Clear; Memo2.Clear; Memo3.Clear;

While Not EOF(f) Do

Begin

Read(f,w);

Memo1.Lines.Add(w.pn);

Memo2.Lines.Add(floatToStr(w.vr[1]));

Memo3.Lines.Add(floatToStr(w.vr[2]));

End;

CloseFile(f);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

SaveDialog1.Title:='Сохранить в текстовом файле';

SaveDialog1.DefaultExt:='.dat';

if SaveDialog1.Execute Then

Begin

fraspt:=SaveDialog1.FileName;

AssignFile(ft,fraspt);

ReWrite(ft);

End;

CloseFile(f);

CloseFile(ft);

end;

4. Отобразить взаимное расположение окружности с радиусом R с центром в точке (x₀,y₀) и прямой, проходящей через точки с координатами (x₁,y₁) и (х₂,y₂) (пересекаются, касаются, не пересекаются).

unit Unit1;