Запрограмуйте команди PopupMenu2

procedure TForm1.N7Click(Sender: TObject); begin CheckBox1.Checked:=False; CheckBox2.Checked:=False; CheckBox3.Checked:=False; end; procedure TForm1.N8Click(Sender: TObject); begin CheckBox1.Checked:=true; CheckBox2.Checked:=true; CheckBox3.Checked:=true; end; procedure TForm1.N9Click(Sender: TObject); begin if CheckBox1.Checked=True then CheckBox1.Checked:= False else CheckBox1.Checked:= True; if CheckBox2.Checked=True then CheckBox2.Checked:= False else CheckBox2.Checked:= True; if CheckBox3.Checked=True then CheckBox3.Checked:= False else CheckBox3.Checked:= True; end;

Рис. 6.

Завдання для самоконтролю

Задано дійсні величини . Розробити програму, яка обчислює значення суми з заданою точністю і вказує кількість врахованих доданків:

1. 2. 3.

4. 5. 6.

7. 8. 9.

10. 11. 12.

13. 14. 15.

16. 17. 18.

19. 20.

Структуровані типи даних