ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас

Практична робота № 10

Стор. 187

1. Подвійний клік на ярлику Lazarus.

2. Панель Standard → Кнопка, Панель Standard → Поле.

3. Встановити властивості Інспектор об’єктів → Властивості кнопки.

4. Встановити властивості Інспектор об’єктів → Властивості поля.

5. Зберегти проект можна, використовуючи команду Зберегти всі меню Файл, або кнопку Зберегти всі панель інструментів, або команду Зберегти проект меню Проект.

6. Кнопка F9.

7. Кнопка Закрити.

8. Інспектор об’єктів → Подія → OnClick.

9. Зберегти проект можна, використовуючи команду Зберегти всі меню Файл, або кнопку Зберегти всі панель інструментів, або команду Зберегти проект меню Проект.

10. Кнопка F9.

11. Меню Файл → Вихід або кнопка керування вікном Закрити або комбінація клавіш Alt+F4.

12. Меню Проект → Створити проект → Панель Standard → Кнопка, Панель Standard → Поле Панель Standard → Напис.

13. Зберегти проект можна, використовуючи команду Зберегти всі меню Файл, або кнопку Зберегти всі панель інструментів, або команду Зберегти проект меню Проект.

14. Кнопка F9.

15. Меню Файл → Вихід або кнопка керування вікном Закрити.

16. Меню Файл → Вихід або кнопка керування вікном Закрити або комбінація клавіш Alt+F4.

Код програми проект 1:

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Font.Size:=6;

Edit1.Caption:=’8-Б’;

Edit1.Color:=clRed;

Edit1.Left:=Edit1.Left+50;

Edit1.Top:=Edit1.Top+150;

Edit1. Font.Color:=clMaroon;

Edit1.Caption:=’Mи використовуємо властивості поля!’;

end;

Код програми проект 2:

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:extended; fun:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

fun:=a*(4*b-3*c);

Edit4.Caption:=FloatToStr(fun);

end;