Лінійні алгоритми.

Проект 

"Обчислення довжини відрізка за координатами його вершин"

procedure TForm1.Button1Click(Sender: TObject);

begin

  x1:=StrToFloat(Edit1.Text);

  y1:=StrToFloat(Edit2.Text);

  x2:=StrToFloat(Edit3.Text);

  y2:=StrToFloat(Edit4.Text);

  d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

  Edit5.Text:= floatToStr(d);

end;    

Алгоритми з умовою.

Проект "Порівняння периметрів прямокутників"

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

B:=StrToFloat(Edit2.text);

c:=StrToFloat(Edit3.Text);

d:=StrToFloat(Edit4.Text);

P1:=2*(a+b);

P2:=2*(c+d);

If P1=P2

then Edit5.text:='Периметри рівні'

else

  if P1>P2

  Then Edit5.text:='Периметр першого прямокутника більший'

  else Edit5.Text:='Периметр другого прямокутника більший';

end;         

Алгоритм з  розгалуженням.

var

  Form1: TForm1;

a,x,y: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

x:=StrtoFloat(Edit1.Text);

a:=x-2;

if a=0 then

   begin label3.Caption:='Введіть інші дані';

           Edit2.Visible:=False;

   end

 else

     y:=cos(x)+sqr(x-2)/a;

Edit2.Text:=FloattoStr(y);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit2.Visible:=True;

Label3.Caption:='';

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Close; end; end.

Проект  "Комунальні платежі"

Відповісти на питання:

1.Який об’єкт відповідає за встановлення прапорця?

2.Чи обов’язково, щоб CheckBox був обраний?

3.Яких значень може набувати CheckBox?

4. Який об’єкт відповідає за випадаючий список?

6. Опишіть властивості ComboBox.

Проект "Контроль ваги"

procedure TForm1.Button1Click(Sender: TObject);

var

   w:real;   { вес }

   h:real;   { рост }

   opt:real; { оптимальный вес }

   d:real;   { отклонение от оптимального веса }

begin

   w:=StrToFloat(Edit1.text);

   h:=StrToInt(Edit2.Text);

   opt:=h-100;

   if w=opt

      then

          Label3.caption:='Ваш вес оптимален !'

      else

          if w<opt

               then

                   begin

                         d:=opt-w;

                         Label3.caption:='Вам надо поправиться, на '

                                          + FloatTostr(d)+ 'кг.';

                   end

               else

                   begin

                        d:=w-opt;

                        Label3.caption:='Надо немного похудеть, на '

                                         + FloatTostr(d)+ ' кг.';

                   end;

  end;

end.

Графічні примітиви. 8 клас.

Проект "Графіка. Будинок"

procedure TForm1.Button1Click(Sender: TObject);

begin

     Canvas.Pen.color:=clred;

       Canvas.Pen.Width:=10;

        Canvas.brush.color:=clwhite;

       Canvas.Rectangle(200,200,500,500);

  Canvas.MoveTo(200,200);

    Canvas.LineTo(350,50);

    Canvas.LineTo(500,200);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    Canvas.Pen.color:=clyellow;

       Canvas.brush.color:=clyellow;

  Canvas.Ellipse(600,10,550,60);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

for i := 1 to 1000 do

begin

   sleep(10);

   Canvas.Pixels[random(i+1000),random(i+1000)]:=clwhite;

end;

Проект Малюнок із ліній.

На формі малюватимуться лінії за допомогою протягування мишею: початок лінії буде розташовано в позиції, у якій натиснули кнопку миші, а кінець - де відпустили кнопку миші 

Проект

"Пошук елементів в масиві.  Пошук максимального та  мінімального елемента  масиву"

procedure TForm1.Button1Click(Sender: TObject);

begin

  x:=strtofloat(edit1.text);

  k:=0;

  for i:= 1 to 5 do

  begin

    a[i]:=strtofloat(memo1.lines[i-1]);

    if   a[i]=x

     then k:=k+1;

  end;

   label1.Caption:=inttostr(k)+' раз.';

     min:=a[1];

  for i:= 2 to 5 do

  if a[i]<min

    then

     begin

    min:=a[i];

    nmin:=i;

     end ;

  edit2.text:=floattostr(min);

  edit3.text:=inttostr(nmin);

    max:=a[1];

    for i:= 2 to 5 do

      if a[i]>max

        then

           begin

           max:=a[i];

            nmax:=i;

            end;

  Edit4.text:=floattostr(max);

edit5.text:=inttostr(nmax);

 end;

Знайдіть помилку у  проекті.