Задачи (на VB6)

[Chevyyy]

Нужно определить V комнаты с заданными параметрами!

Вот это все что дано, не более...

[Hacker19_90]

Ну дек а в чём проблема-то?

[Chevyyy]

Честно, я не врубился в эту задачу, кто сможет сделать ?

[Hacker19_90]

НЕ знаете как найти обьём? Или что?

[Chevyyy]

Не зная данных о комнате, не знаю как!

Подскажите, а то завтра на зачет -_-

[Hacker19_90]

Не зная данных о комнате, не знаю как!

Подскажите, а то завтра на зачет -_-

Считывайте! Программа должна запрашивать ввод пользователем параметров!
А на их основе расчёт!

[Chevyyy]

Проверь, так или нет:


Private Sub Command1_Click()
Dim v As Single, h As Single
v = Val(InputBox("Ввести значение V"))
h = Val(InputBox("Ввести значение h"))
If v = 0 Then
msgBox "Нет решения"
Else
v = h ^ 3
Label1.Caption = CStr(v)
End If
End Sub

[Hacker19_90]

ммм... не совсем!
Во первых сам обьём вводить не надо!

v = Val(InputBox("Ввести значение V"))

А во вторых!
У тебя же комната не куб! А скорее параллелепипед!
Поэтому формула

v = h ^ 3

не катит!
И вводить надо длину, ширину и высоту!
Дерзай!

[Chevyyy]

Вот вроде исправил:

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("Введите значение a"))
b = Val(InputBox("Введите значение b"))
c = Val(InputBox("Введите значение c"))
If a = 0 And b = 0 And c = 0 Then
MsgBox "Нет решения"
Else
v = a * b * c
Label1.Caption = CStr(v)
End If
End Sub

[Hacker19_90]

ДА круто по-моему! Молодец!