28. Решить квадратное уравнение

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,x,y,d:real;

begin

a:=Strtofloat( Edit1.Text);

b:=Strtofloat( Edit2.Text);

c:=Strtofloat( Edit3.Text);

D:= sqr(b)-4*a*c;

if (D>0) then

begin

x:= (-b+sqrt(D))/(2*a);

y:= (-b-sqrt(D))/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y))

end

else if( D<0) then

Memo1.Lines.Add('нету решений')

else

x:= (-b)/(2*a);

y:= (-b)/(2*a);

Memo1.Lines.Add(floattostr(x));

Memo1.Lines.Add(floattostr(y));

end;

end.

29.Провести линию из точки в точку и рядом вывести стиль линии

begin

with Canvas do

begin

Pen.Style:=psSolid;

Moveto( 10,20)

Lineto(200,20)

Textout(220,20,’solid’)

30.Создать текстовый редактор он позволяет сохранить открыть и изменить характеристики шрифта

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

OpenPictureDialog1: TOpenPictureDialog;

SavePictureDialog1: TSavePictureDialog;

FontDialog1: TFontDialog;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

with openDialog1 do

begin

if not Execute then exit;

memo1.lines.loadFromFile(FileName)

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with

saveDialog1 do

begin

if not Execute then exit;

memo1.lines.savetoFile(FileName)

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

with fontDialog1 do

begin

if not Execute then exit;

memo1.font:=font;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

end.

31. Описать класс транспортные средства

type

TCarrier=class

Private

Fname:string

Fspeeed:integer;

Fmaxspedd:integer;

Fpasscount:integer;

Protected

Procedure MoveFaster;

Procedure Setmax;

Procedure MoveSlower;

End;

Procedure TCarrier.SetSpeed( vel:integer)

Begin

Speed:=vel;

End;

Procedure TCarrier.Setmaxspeed(vel:Integer)

Begin

Maxspeed:=20;

End;

Procedure TCarrier.MoveFaster( ssp:integer)

Begin

If speed< maxspeed then

Inc(speed)

Else

Speed:=maxspeed;

Ssp:=maxspeed;;

Procedure TFORM1.Button1.Click

Begin

Vel:= strrtoint(edit1.text)

Carrier.setspeed(vel)

Carrier.movefaster(ssp)

Label1.Caption:=inttoste(ssp)

End;

32. С заголовком Header

procedure TForm1.Button1Click(Sender: TObject);

begin

checklistbox1.HeaderColor:=clgreen;

checklistbox1.HeaderBackgroundColor:=clyellow;

checklistbox1.Header[0]:=true;

checklistbox1.HeaderColor:=clwhite;

checklistbox1.HeaderBackgroundColor:=clred;

checklistbox1.Header[3]:=true;

checklistbox1.Header[6]:=true;

end