Помогите пожалуйста с контрольной по програмированию на visual basic 6.0 вот задачи: 1. определение типа треугольника(равносторонний, прямоугольный, равнобедренный,) если заданны его сторноны a b c!!! 2. нахождение площади треугольника если заданны его стороны a b c!!! 3.Cоставить прогу которая запрашивает пароль пользователя, при правильном вводе появляется сообщение "правильно"!
a = InputBox(a) b = InputBox(b) c = InputBox(c) p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) MsgBox (s) P.S. И не забудь объявить переменные, а то VB площадь неправильно посчитает, он может!
Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox(a) b = InputBox(b) c = InputBox(c) If a = b And b = c And c = a Then MsgBox ("Равносторонний") ElseIf a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then MsgBox ("Прямоугольный") ElseIf a = b Or b = c Or a = c Then MsgBox ("Равнобедренный") Else MsgBox ("Это не треугольник, это фигня какая-то") End If
Online "If a = b And b = c And c = a Then" Транзетивность для дийствитильных цифр уже отменили?? Зачем сровнение c = a??
Вы абсолютно правы, оно лишнее, но! В тот момент в голове был равносторонний треугольник. Долго вспоминал, что это такое. Это тот треугольник, у которого 3 стороны равны. Поэтому 3 сравнения Простите меня, пожалуйста. На результате это никак не скажется.