Dim X1 As Double
Dim Y1 As Double
Dim X2 As Double
Dim Y2 As Double
Dim X3 As Double
Dim Y3 As Double
Dim KatA As Double
Dim KatB As Double
Dim KatC As Double
Dim Perimetr As Double
Dim PoluPerimetr As Double
Dim Square As Integer
Console.WriteLine("Введите X1")
X1 = Console.ReadLine()
Console.WriteLine("Введите Y1")
Y1 = Console.ReadLine()
Console.WriteLine("Введите X2")
X2 = Console.ReadLine()
Console.WriteLine("Введите Y2")
Y2 = Console.ReadLine()
Console.WriteLine("Введите X3")
X3 = Console.ReadLine()
Console.WriteLine("Введите Y3")
Y3 = Console.ReadLine()
KatA = ((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2) ^ 0.5
KatB = ((X3 - X2) ^ 2 + (Y3 - Y2) ^ 2) ^ 0.5
KatC = ((X3 - X1) ^ 2 + (Y3 - Y1) ^ 2) ^ 0.5
Perimetr = KatA + KatB + KatC
Console.WriteLine("Периметр: " & Perimetr)
PoluPerimetr = (KatA + KatB + KatC) * 0.5
Console.WriteLine("Полупериметр: " & PoluPerimetr)
Square = (PoluPerimetr * (PoluPerimetr - KatA) * (PoluPerimetr - KatB) * (PoluPerimetr - KatC)) ^ 0.5
Console.WriteLine("Площадь: " & Square)
Console.ReadKey()
RGltIFgxIEFzIERvdWJsZQogICAgICAgIERpbSBZMSBBcyBEb3VibGUKICAgICAgICBEaW0gWDIgQXMgRG91YmxlCiAgICAgICAgRGltIFkyIEFzIERvdWJsZQogICAgICAgIERpbSBYMyBBcyBEb3VibGUKICAgICAgICBEaW0gWTMgQXMgRG91YmxlCiAgICAgICAgRGltIEthdEEgQXMgRG91YmxlCiAgICAgICAgRGltIEthdEIgQXMgRG91YmxlCiAgICAgICAgRGltIEthdEMgQXMgRG91YmxlCiAgICAgICAgRGltIFBlcmltZXRyIEFzIERvdWJsZQogICAgICAgIERpbSBQb2x1UGVyaW1ldHIgQXMgRG91YmxlCiAgICAgICAgRGltIFNxdWFyZSBBcyBJbnRlZ2VyCgogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCLQktCy0LXQtNC40YLQtSBYMSIpCiAgICAgICAgWDEgPSBDb25zb2xlLlJlYWRMaW5lKCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0JLQstC10LTQuNGC0LUgWTEiKQogICAgICAgIFkxID0gQ29uc29sZS5SZWFkTGluZSgpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCS0LLQtdC00LjRgtC1IFgyIikKICAgICAgICBYMiA9IENvbnNvbGUuUmVhZExpbmUoKQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCLQktCy0LXQtNC40YLQtSBZMiIpCiAgICAgICAgWTIgPSBDb25zb2xlLlJlYWRMaW5lKCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0JLQstC10LTQuNGC0LUgWDMiKQogICAgICAgIFgzID0gQ29uc29sZS5SZWFkTGluZSgpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoItCS0LLQtdC00LjRgtC1IFkzIikKICAgICAgICBZMyA9IENvbnNvbGUuUmVhZExpbmUoKQoKICAgICAgICBLYXRBID0gKChYMiAtIFgxKSBeIDIgKyAoWTIgLSBZMSkgXiAyKSBeIDAuNQogICAgICAgIEthdEIgPSAoKFgzIC0gWDIpIF4gMiArIChZMyAtIFkyKSBeIDIpIF4gMC41CiAgICAgICAgS2F0QyA9ICgoWDMgLSBYMSkgXiAyICsgKFkzIC0gWTEpIF4gMikgXiAwLjUKCiAgICAgICAgUGVyaW1ldHIgPSBLYXRBICsgS2F0QiArIEthdEMKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0J/QtdGA0LjQvNC10YLRgDogIiAmIFBlcmltZXRyKQoKICAgICAgICBQb2x1UGVyaW1ldHIgPSAoS2F0QSArIEthdEIgKyBLYXRDKSAqIDAuNQogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCLQn9C+0LvRg9C/0LXRgNC40LzQtdGC0YA6ICIgJiBQb2x1UGVyaW1ldHIpCiAgICAgICAgU3F1YXJlID0gKFBvbHVQZXJpbWV0ciAqIChQb2x1UGVyaW1ldHIgLSBLYXRBKSAqIChQb2x1UGVyaW1ldHIgLSBLYXRCKSAqIChQb2x1UGVyaW1ldHIgLSBLYXRDKSkgXiAwLjUKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgi0J/Qu9C+0YnQsNC00Yw6ICIgJiBTcXVhcmUpCiAgICAgICAgQ29uc29sZS5SZWFkS2V5KCk=
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/SRP9q7/prog.vb (1,5) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (2,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (3,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (4,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (5,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (6,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (7,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (8,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (9,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (10,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (11,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (12,12) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (14,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (15,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (16,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (17,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (18,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (19,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (20,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (21,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (22,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (23,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (24,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (25,11) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (27,13) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (28,13) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (29,13) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (31,17) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (32,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (34,21) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (35,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (36,15) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (37,16) : error VBNC30203: Identifier expected.
/home/SRP9q7/prog.vb (38,16) : error VBNC30203: Identifier expected.
There were 34 errors and 0 warnings.
Compilation took 00:00:00.6385330