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

@Сергей Иванов · Регистрация: 03.04.2013

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 не проходит.Заранее спасибо

@Антихакер32 · 10.02.2014, 00:28

молодец gaw вы своевременно, и правильно дополнили эту тему
своим постом, теперь пользователи паскаля валом будут переходить на VB6

@gaw · 10.02.2014, 00:47

Ув.FelixMacintosh.
я искренне ценю Ваши знания и стремление к ним, но не думаю,
что их объем достаточен для рецензирования

а по поводу

Сообщение от FelixMacintosh

теперь пользователи паскаля валом будут переходить на VB6

так аппаратные средства не выноваты в ...

@Антихакер32 · 10.02.2014, 00:54

Gaw, вы меня подкололи ..
это я не знал что можно ставить, не поленился включил Ср. Разработки да проверил

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
    Dim x1
    If 1 Then
    ElseIf 2 Then x1 = x1 + 1
    End If

да, можно ...

Добавлено через 5 минут

Не по теме:

А примеры писал буквально на коленке
и был уверен что синтакс не позволяет это сделать,
ну это мелочи, думаю нет повода чтоб прикапываться к этому

@gaw · 10.02.2014, 00:57

абсолютно согласен !!!

@Апострофф · 10.02.2014, 10:28

Сообщение от Сергей Иванов

опредилите координаты четвертой вершины

Для произвольно ориентированного параллелограмма (в том числе для ромба, прямоугольника(даже стороны которого паралельны координатным осям), квадрата)...
И никаких if ... then ... else ... не надо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Dim x1 As Double 'Integer
Dim y1 As Double ' Integer
Dim x2 As Double ' Integer
Dim y2 As Double ' Integer
Dim x3 As Double ' Integer
Dim y3 As Double ' Integer
Dim x4 As Double ' Integer
Dim y4 As Double ' Integer
 
Private Sub Command1_Click()
x1 = Val(InputBox("x1", , 1))
y1 = Val(InputBox("y1", , 1))
x2 = Val(InputBox("x2", , 1))
y2 = Val(InputBox("y2", , 10))
x3 = Val(InputBox("x3", , 10))
y3 = Val(InputBox("y3", , 10))
x4 = x1 + x3 - x2
y4 = y1 + y3 - y2
'Print "Êîîðäèíàòû ÷åòâåðòîé âåðøèíû: x= "; x4; " y="; y4
'èëè
MsgBox "Êîîðäèíàòû ÷åòâåðòîé âåðøèíû: x= " & x4 & " y=" & y4
End Sub

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	10.02.2014, 00:28
	молодец gaw вы своевременно, и правильно дополнили эту тему своим постом, теперь пользователи паскаля валом будут переходить на VB6 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	10.02.2014, 00:57
	абсолютно согласен !!! 0

Опции темы

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

Решение