Определить координаты четвертой вершины прямоугольника - VB

Формулировка задачи:

Дано координаты трех вершин прямоугольника, стороны которого паралельны координатным осям. Пожалуйста опредилите координаты четвертой вершины. Есть pascal-код

uses crt;
var x1, y1, x2, y2, x3, y3, x4, y4 :integer;
begin
ClrScr;
Write('Координаты первой вершины: ');
Readln(x1, y1);
Write('Координаты второй вершины: ');
Readln(x2, y2);
Write('Координаты третьей вершины: ');
Readln(x3, y3);
if x1 = x2 then x4 := x3
           else if x1 = x3 then x4 := x2
                           else x4 := x1;
if y1 = y2 then y4 := y3
           else if y1 = y3 then y4 := y2
                           else y4 := y1;
Writeln('Координаты четвертой вершины: ', x4, ' ', y4);
Readln;
end.

в бейсике часть програмы с then else не проходит.Заранее спасибо

Решение задачи: «Определить координаты четвертой вершины прямоугольника»

textual
                            Листинг программы 
                        

                            If y1 = y2 Then
     y4 = y3
ElseIf y1 = y3 Then 'После того как условие открыто дальше нельзя здесь ставить выражения
   y4 = y2
Else
   y4 = y1 
End If
                        

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

15 голосов , оценка 4.133 из 5

Похожие ответы