ГЛАВА 4. ПОДБОРКА РАЗНОУРОВНЕВЫХ ЗАДАНИЙ С РЕШЕНИЯМИ

ГЛАВА 4. ПОДБОРКА РАЗНОУРОВНЕВЫХ ЗАДАНИЙ С РЕШЕНИЯМИ

1. 
   По щелчку мышью на кнопке кнопка либо останавливается, либо двигается.
   

2. 
   Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
   

1. 
   Открыть новый проект.
   
2. 
   Разместить на форме экземпляры компонентов: кнопку Button, таймер Timer. Кнопка включает и выключает таймер, а таймер двигает кнопку.
   
3. 
   Выполнить следующие действия:
   

4. 
   Сохраните проект, запустите и протестируйте его.
   

1. 
   Запустить систему программирования Lazarus.
   
2. 
   Разместить на форме экземпляры компонентов: Label, Edit, Button и измените свойство Caption каждого из компонентов как показано на рисунке:
   

3. 
   Следующим шагом является создание программного кода событийных процедур. Двойной щелчок мышью по компоненту вызывает окно Редактор исходного кода с пустой заготовкой событийной процедуры. Осуществить двойной щелчок по кнопкам и редактировать их событийные процедуры:
   

{процедура для кнопки вычисления суммы}

procedure TForm1.Button1Click(Sender: TObject);

var

begin

b := StrToFloat (Edit2.Text);

c := a + b;

Edit3.Text := FloatToStr (c);

end;

{процедура для кнопки вычисления разности}

var

begin

b := StrToFloat (Edit2.Text);

c := a - b;

Edit3.Text := FloatToStr (c);

end;

{процедура для кнопки вычисления произведения}

var

begin

b := StrToFloat (Edit2.Text);

c := a*b;

Edit3.Text := FloatToStr (c);

end;

{процедура для кнопки вычисления деления}

var

begin

b := StrToFloat (Edit2.Text);

c := a/b;

Edit3.Text := FloatToStr (c);

end;

{процедурадлякнопкиОчистить}

begin

Edit2.Text:= '';

Edit3.Text:= '';

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

close;

4. 
   Сохраните проект, запустите и протестируйте его.