Перевод из C++ в Visual Basic - VB
Формулировка задачи:
Здравствуйте. Прошу вашей помощи.
Дело в том, что я VB не изучал, я погружался в мир программирования с астматика, а в техникуме требуют VB. Сейчас я занимаюсь изучением VB...мне лично он не нравится. Задача такая по трем вершинам определить, является ли треугольник со сторонами abc равнобедренным или нет.
Решение задачи: «Перевод из C++ в Visual Basic»
textual
Листинг программы
'#include "stdafx.h" '#include <iostream> '#include <cmath> 'using namespace std; 'void main() '{ Private Sub Command1_Click() 'setlocale (LC_ALL, "Russian_Russia.1251"); Dim x1 As Double, y1 As Double Dim x2 As Double, y2 As Double Dim x3 As Double, y3 As Double 'double x1,y1,x2,y2,x3,y3; Dim a As Double, b As Double, c As Double 'cout << "Введите координаты 1-й вершины:\n\n"; x1 = Val(InputBox("Введите координату x 1-й вершины:")) y1 = Val(InputBox("Введите координату y 1-й вершины:")) 'cin >> x1 >> y1; 'cout << "\nВведите координаты 2-й вершины:\n\n"; x2 = Val(InputBox("Введите координату x 2-й вершины:")) y2 = Val(InputBox("Введите координату y 2-й вершины:")) 'cin >> x2 >> y2; 'cout << "\nВведите координаты 3-й вершины:\n\n"; x3 = Val(InputBox("Введите координату x 3-й вершины:")) y3 = Val(InputBox("Введите координату y 3-й вершины:")) 'cin >> x3 >> y3; 'double a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); a = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2) 'double b = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3)); b = Sqr((x1 - x3) ^ 2 + (y1 - y3) ^ 2) 'double c = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)); c = Sqr((x3 - x2) ^ 2 + (y3 - y2) ^ 2) If ((a >= b + c Or b >= a + c Or c >= a + b)) Then 'if (!(a<b+c && b<a+c && c<a+b)) '{ ' cout << "\nTakogo treugol'nika ne sush'estvuet\n\n"; '} MsgBox "Takogo treugol'nika ne sush'estvuet" ElseIf (a = b Or b = c Or a = c) Then 'else if (a==b || b==c || a==c) '{ 'cout << "\nTreugolnik ravnobedrennii\n\n"; '} MsgBox "Treugolnik ravnobedrennii" Else '{ ' cout <<"\nTreugolnik ne ravnobedrennii\n\n"; '} 'system ("pause"); MsgBox "Treugolnik ne ravnobedrennii" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д