Алгоритъм за изчисление Studiopedia

1. Въведете първоначалните данни (числа): A, B, C - стойностите на страните на триъгълника.

2. Изчислете периметъра на триъгълника, като използвате формулата P \u003d A + B + C.

3. Изчислете полупериметъра на триъгълника по формулата Pp=P/2

4. Изчислете площта на триъгълник, като използвате формулата

5. Покажете резултата: числото P е обиколката на триъгълника.

6. Покажете резултата: числото S е площта на триъгълника.

a) Напишете своя собствена процедура за обработка на събитието с щракване на мишката върху командния бутон.

b) Напишете процедура, която да се изпълни, когатоForm е зареден:

Частен подForm_Load()

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

Край на под

c) Напишете [7] процедура за обработка на събитието с щракване на мишката върху командния бутон (в кода на програмата са направени някои грешки нарочно, за да се покаже допълнително етапът на отстраняване на грешки в програмата).

Частен подcmdStart_ Click()

B = txtB.Text 'Присвояване на стойност на променлива B,

', въведен в текстовото поле (txtB

A = txtA. Текст 'Присвояване на променлива A на стойността,

', въведен в текстовото поле txtA

C = txtC. Текст 'Присвояване на променлива C,

', въведен в текстовото поле txtC

p = A + B + C 'Изчислете периметъра и присвоете

'изчислена стойност на променлива P

Рр = Р / 2 'Изчисляване на полупериметър и задание

'изчислена стойност на променливата Pp

S = Sqr(Pp * (Pp - A) * (Pp - B) * (Pp - C) 'Изчисляване на площ

'и присвояване на изчислената стойност на променлива S

txtP.Text = P 'Изведете стойността на полупериметъра в текст

'поле txtP (присвояване на свойствотоTechT

'текстово поле txtP стойност P)

txtS.Text = S 'Стойност на изходната област в текстово поле txtS

'(присвояване на свойството TechT на текстовото поле txtS на стойността S)

Не намерихте това, което търсихте? Използвайте търсачката:

Деактивирайте adBlock! и обновете страницата (F5)наистина е необходимо

---