Алгоритм обчислення Студопедія

1. Ввести вихідні дані (числа): А, В, С – значення сторін трикутника.

2. Обчислити периметр трикутника за формулою Р=А+В+С.

3. Обчислити напівпериметр трикутника за формулою Pp = P/2

4. Обчислити площу трикутника за формулою

5. Вивести результат: число Р – периметр трикутника.

6. Вивести результат: число S – площа трикутника.

a) Самостійно напишіть процедуру обробки події клацання мишею по командній кнопці .

b) Напишіть процедуру, яка буде виконуватися при завантаженніФорми :

Private SubForm_Load()

Image1.Picture = LoadPicture("D:\3.bmp")

End Sub

c) Напишіть[7] процедуру обробки події клацання мишею по командній кнопці (у програмному коді спеціально допущені деякі помилки, щоб далі показати етап налагодження програми).

Private SubcmdStart_ Click()

В = txtB.Text 'Привласнення неременной В значення,

'введеного в текстове поле (txt

А = txtA.Text 'Привласнення змінної значення А,

'введеного у текстове поле txtA

С = txtC.Text 'Привласнення змінної значення,

'введеного у текстове поле txtC

р = А + В + С 'Обчислення периметра і рисування

'обчисленого значення змінної Р

Рр = Р / 2 'Обчислення напівпериметра та присвоєння

'обчисленого значення змінної Рр

S = Sqr(Pp * (Рр - А) * (Рр - В) * (Рр - С) 'Обчислення площі

'і nрисваивание обчисленого значення nеремен'ной S

txtP.Text = Р 'Виведення значення nолуnериметра в текстове

'поле txtP (рисування властивостіТехT

'текстового поля txtP значення Р)

txtS.Text = S 'Виведення значення площі в текстове поле txtS

'(nзображення властивості ТехT текстового поля txtS значення S)

Чи не знайшли те, що шукали? Скористайтеся пошуком:

Вимкніть adBlock! і оновіть сторінку (F5)дуже потрібно

---