Перевод из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5