Вычисление площади треугольника по его трем сторонам (Формула Герона)

@Альбина С. · Регистрация: 08.12.2011

Студворк — интернет-сервис помощи студентам

1. Записать вычисления площади треугольника по его трем сторонам используя процедуру (Формула Герона)

программа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public s As Double
Public Sub pltr(a As Double, b As Double, с As Double, pi As Double) 
pp = (a + b + c) / 2 
pp = pp* (pp - a) * (pp - b) * (pp - c)
 If pp < 0 Then
MsgBox "He верно заданы параметры", 16, "Ошибка" 
Else
pl = pp ^ 0.5 
End If 
End Sub
 
Private Sub Checkl_ Click()
If Check1.Value Then 
Label4.Capiion = Str(Round(s)) 
Else
Label4. Caption = Str(s) 
End If 
End Sub
 
Private Sub Command1_Click()
Dim x As Double, у As Double, z As Double
x = Val(Text1)
y= Val(Text2)
z=Val(Text3)
Call pltr(x, y, z, s)
pltr x, y, z, s
If Check1.Value Then
Label4.Caption = Str(Round(s))
Else
Label4.Caption = Str(s) 
End If 
End Sub
Private Sub Form_Load() 
Textl =0
Text2 = 0 
Text3 =0
Label4.Caption = "Результат" 
End Sub

@Cricket93 · 23.11.2012, 18:55

Сообщение от Альбина С.

Textl =0

По моему там Text1 = 0, а у тебя Textl = 0

Добавлено через 1 минуту

Сообщение от Альбина С.

Private Sub Checkl_ Click()

Здесь то же самое. Если я не ошибаюсь

Добавлено через 1 минуту
А ты что программист?? Интересно, интересно.......

@Альбина С. · 24.11.2012, 13:46 **[ТС]**

нет) информатик

@Skriptik · 24.11.2012, 15:43

Зачем так усложнять. Можно и так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub cmdStart_Click()
A = Val(textA.text)
B = val(textB.text)
C = val(textC.text)
P = A + B + C
Pp = P / 2
S = Sqr(Pp * (Pp - A) * (pp  - B)  * (Pp - C))
txtP.text = Str(p)
txtS.text = Str(s)
End sib

Вот и все.

@Cricket93 · 24.11.2012, 15:50

Сообщение от Альбина С.

нет) информатик

Ниче себе информатик!... Эт уже программист

@Skriptik · 24.11.2012, 15:56

Тебе помог код или надо его доработать?

@Альбина С. · 25.11.2012, 16:15 **[ТС]**

требуют так потому что)
да нет) спасибо)

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Альбина С. 0 / 0 / 0 Регистрация: 08.12.2011 Сообщений: 29
	24.11.2012, 13:46 [ТС]
	нет) информатик 0

@Skriptik -26 / 6 / 1 Регистрация: 26.06.2011 Сообщений: 157
	24.11.2012, 15:56
	Тебе помог код или надо его доработать? 0

@Альбина С. 0 / 0 / 0 Регистрация: 08.12.2011 Сообщений: 29
	25.11.2012, 16:15 [ТС]
	требуют так потому что) да нет) спасибо) 0