Перевод из C++ в Visual Basic - VB

  1. Здравствуйте. Прошу вашей помощи. C++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 #include "stdafx.h" #include <iostream> #include <cmath> using namespace std;   void main() {         setlocale (LC_ALL, "Russian_Russia.1251");     double x1,y1,x2,y2,x3,y3;         cout << "Введите координаты 1-й вершины:\n\n";     cin >> x1 >> y1;     cout << "\nВведите координаты 2-й вершины:\n\n";     cin >> x2 >> y2;     cout << "\nВведите координаты 3-й вершины:\n\n";     cin >> x3 >> y3;     double a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));     double b = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));     double c = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));     if (!(a<b+c && b<a+c && c<a+b))     {         cout << "\nTakogo treugol'nika ne sush'estvuet\n\n";     }         else if (a==b || b==c || a==c)     {         cout << "\nTreugolnik ravnobedrennii\n\n";     }         else     {         cout <<"\nTreugolnik ne ravnobedrennii\n\n";     }     system ("pause"); }Дело в том, что я VB не изучал, я погружался в мир программирования с астматика, а в техникуме требуют VB. Сейчас я занимаюсь изучением VB...мне лично он не нравится. Задача такая по трем вершинам определить, является ли треугольник со сторонами abc равнобедренным или нет.


textual

Код к задаче: «Перевод из C++ в Visual Basic - VB»

'#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.000 из 5



Похожие ответы
  1. Это продолжение. См. также другие части этой статьи:Часть 1. Кусочек теории.Часть 3. Программа проверки Authenticode ЭЦПЧасть 2. Описание реализации программы проверки подписейСодержание: 2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписей

  1. Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо грузить данные. Предполагаю, что вопрос не впервые возник, поэтому буду признателен как хорошим ответам, так и дельным ссылкам на похожие темы. Заранее спасибо.

  1. Доброго всем дня! подскажите где у меня ошибка, данный код не прописывает в ячейку книги, данные. заранее спасибо!

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Дан целочисленный массив, заполненный 0,1 и 2 в случайном порядке. изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2Добавлено через 9 минут массив проинициализированный

  1. выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».

  1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

  1. Cоставить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке.Например,для числа 1234 получаем ответ 4321.

  1. Вообщем простенькая задача как ее можно реализовать? Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305

  1. Составьте программу, которая находит 4 последовательных натуральных числа, произведение которых равно 1680.