Page 84 - 4788
P. 84

ЛАБОРАТОРНА  РОБОТА  10

                                               ВИКОРИСТАННЯ ЦИКЛІВ

                                  МЕТА РОБОТИ  –  Вивчення методики програмування
                            обчислювальних процесів з використанням циклів.

                                         ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

                                  1. Ознайомитися з наведеними прикладами.
                                  2.Скласти схему алгоритму рішення задачі відповідно до
                            варіанта завдання, отриманого у викладача.
                                  3. Розробити програму, отримати розв’язок задачі
                                  4 Виконати  задачі для самостійної роботи.

                                  Приклад. Протабулювати функцію y = Sin(x) + 1
                                  Для Text1.Text встановити наступні властивості
                                                       ScroollBars-Both
                                                       MultiLine-True
                                  Введіть назви команд головного меню форми, для цього
                            виконайте команду Tools=>Menu Editor
                                Caption                  Name
                                Обчислення               mnuCalc
                                Табулювання              mnuTabul
                                Очистити                 mnuClear
                                Кінець                   mnuFinish
                                Про програму             mnuAbout
                                Кінець                   mnuEnd
                                  Запрограмуйте команди
                                  Private Sub mnuabort_Click()
                                  MsgBox (" tsesliv")
                                  End Sub

                                  Private Sub mnuclear_Click()
                                  Text1.Text = " "
                                  End Sub

                                  Private Sub mnuend_Click()
                                  End

                                                           82
   79   80   81   82   83   84   85   86   87   88   89