использовать Рисователь
алг
нач
новый лист(600, 400, белый)
в точку (250,350)
линия в точку (300,75)
линия в точку (350,350)
линия в точку (250,350)
кисть(красный)
окружность(300, 75, 20)
залить(300,250)
в точку (200,350)
линия в точку (100,100)
линия в точку (265,265)
линия в точку (250,350)
линия в точку (200,350)
кисть(синий)
окружность(100, 100, 20)
залить(200,300)
в точку (400,350)
линия в точку (500,100)
линия в точку (335,265)
линия в точку (350,350)
линия в точку (400,350)
кисть(зеленый)
окружность(500, 100, 20)
залить(400,300)
кон
Объяснение:
Смотри картинку
1) Створіть новий проект. Змініть значення властивості Caption форми, розмістіть на формі компоненти і налаштуйте їхні властивості згідно з рисунком. Текстове поле Edit1 призначене для введення кількості покупців; поле Memo1 — для виведення значень елементів масиву; список ListBox1 — для виведення результатів обчислень.
2) Опишіть змінні, необхідні для розв’язування задачі, як глобальні, тому що областю видимості для них є процедури обробки події обох кнопок:
3) Властивості ScrollBars елемента керування Memo1 задайте значення ssAutoHorizontal. Створіть процедуру обробки події для кнопки Заповнити масив.
4) Створіть процедуру обробки події для кнопки Обчислити денний прибуток. Результати обчислення виведіть у поле списку ListBox1.
5) Створіть процедуру обробки події для кнопки Знайти кількість чеків. Запишіть оператори для знаходження кількості елементів масиву, значення яких більші за середнє значення. Результати обчислень виведіть у поле списку ListBox1.
6) Перевірте роботу програми. Збережіть проект у папці Завдання_1.
Завдання 2.
У масиві А[1..10] переставити місцями елементи, що стоять на парних і непарних місцях: A[1] на A[2], ..., A[9] на A[10].
Розв'язання:
1) Створіть новий проект. Змініть значення властивості Captіon форми і додайте на форму кнопку Виконати перестановку (див. рисунок).
2) Розмістіть на формі компонент StringGrid і налаштуйте його властивості таким чином:
3) У процедурі обробки події OnCreate для форми запрограмуйте виведення індексів елементів масиву в зафіксований рядок заголовків стовпців.
4) У процедурі обробки події OnClick для кнопки Виконати перестановку запрограмуйте: а) заповнення масиву значеннями клітинок
таблиці StringGrid1; б) попарну перестановку елементів; в) виведення значень елементів масиву до таблиці StringGrid1.
5) Додайте на форму кнопку Обнулити елементи. У процедурі обробки події OnClick для цієї кнопки запрограмуйте реалізацію очищення вмсту таблиці StringGrid1.
6) Перевірте роботу програми. Збережіть проект у папці Завдання_2. Завершіть роботу за комп’ютером.
2. Домашнє завдання
Створіть програму для знаходження добутку від'ємних елементів заданої таблиці. (Див. попередній урок - Вправа 2)
Объяснение:
