Page 70 - 4450
P. 70

ЛАБОРАТОРНА  РОБОТА  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

                                                           68
   65   66   67   68   69   70   71   72   73   74   75