Определите, какая из двух точек находится ближе к началу координат

@oksi-xd · Регистрация: 23.10.2013

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

Составьте программу, решающую следующую задачу: Даны две точки с координатами x1, y1, x2,y2. Определите, какая из двух точек находится ближе к началу координат.
Исходные данные: х1, у1, х2, у2 - координаты двух точек.
Вспомогательные переменные: d1, d2 - расстояния от каждой точки до начала координат.
d1=√x1^2 + y1^2
Результат: выведенная на экран строка:
первая точка ближе(если d1<d2)
вторая точка ближе(если d2<d1)

@APALoff · 11.12.2013, 12:09

Pascal
1
2
If sqrt(x1*x1+y1*y1)<sqrt(x2*x2+y2*y2) then
  Writeln('первая точка ближе') else Writeln('вторая точка ближе');

@oksi-xd · 11.12.2013, 12:21 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
Uses crt;
var x1,y1,x2,y2 : real;
  d1, d2: real;
begin
  If d1=sqrt(x1*x1+y1*y1)<d2=sqrt(x2*x2+y2*y2) then
  Writeln('первая точка ближе, если d1<d2');
  else
  Writeln('вторая точка ближе, если d2<d1');
  readkey;
  end.

так не выходит

@APALoff · 11.12.2013, 12:26

Сообщение от oksi-xd

Uses crt;
var x1,y1,x2,y2 : real;
d1, d2: real;
begin
If d1=sqrt(x1*x1+y1*y1)<d2=sqrt(x2*x2+y2*y2 ) then
Writeln('первая точка ближе, если d1<d2');
else
Writeln('вторая точка ближе, если d2<d1');
readkey;
end.
так не выходит

И не выйдет!

If d1=sqrt(x1*x1+y1*y1)<d2=sqrt(x2*x2+y2*y2 ) then

тут, в общем то и кроется причина

@oksi-xd · 11.12.2013, 12:30 **[ТС]**

И что же за причина, не подскажите?)
Этого то я и не пойму

@APALoff · 11.12.2013, 12:39

Сообщение от oksi-xd

И что же за причина, не подскажите?)
Этого то я и не пойму

Нельзя в операторе сравнения использовать присваивание значений переменным.

P.S.: Да и не нужны там никакие вспомогательные переменные.

Добавлено через 1 минуту
Вернее даже не совсем так...
d1=sqrt(x1*x1+y1*y1)<d2=sqrt(x2*x2+y2*y2 )

= -без двоеточия - это условие, а не присваивание

< - еще одно сравнение

т.е. это вообще бессмыслица получается

Добавлено через 1 минуту
Если уж Вам так необходимы переменные d1 и d2, то сначала их надо вычислить, а уж потом сравнивать, а не пытаться все в одной строке сделать... либо использовать мой вариант без вспомогательных переменных

@oksi-xd · 11.12.2013, 12:47 **[ТС]**

Warning: Variable "x1" does not seem to be initialized
Warning: Variable "y1" does not seem to be initialized
Warning: Variable "x2" does not seem to be initialized
Warning: Variable "y2" does not seem to be initialized
Fatal: Syntax error, ";" expected but "ELSE" found
вот, что выдаёт

Добавлено через 7 минут
Uses crt;
var x1,y1,x2,y2 : boolean;
begin
If sqrt(x1*x1+y1*y1)<sqrt(x2*x2+y2*y2) then
Writeln('первая точка ближе');
else
Writeln('вторая точка ближе');
readkey;
end.
если писать `boolean` тоже выдаёт ошибку в строке If sqrt(x1*x1+y1*y1)<sqrt(x2*x2+y2*y2) then

@APALoff · 11.12.2013, 13:10

Warning: Variable "x1" does not seem to be initialized

Понятное дело - это надо описать переменную. Это не моя ошибка - это намеренное упущение с моей стороны, чтобы Вы могли своими силами догадаться...

Fatal: Syntax error, ";" expected but "ELSE" found

это не моя ошибка - надо лишнюю точку с запятой убрать (перед ELSE), о чем и написано в сообщении об ошибке
в моем посте все было правильно

@oksi-xd · 11.12.2013, 13:17 **[ТС]**

var x1,y1,x2,y2 : real;
это не описание разве? какой вообще здесь тип переменных?

@APALoff · 11.12.2013, 14:14

Вы понимаете разницу между Boolean и Real ?

Pascal
1
2
3
4
5
6
7
8
var x1,y1,x2,y2 : real;
begin
x1:=1;y1:=3;
x2:=2;y2:=4;
If sqrt(x1*x1+y1*y1)<sqrt(x2*x2+y2*y2) then Writeln('первая точка ближе')
  else Writeln('вторая точка ближе');
Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58

	Определите, какая из двух точек находится ближе к началу координат 11.12.2013, 12:04. Показов 29424. Ответов 9 Метки нет (Все метки) Составьте программу, решающую следующую задачу: Даны две точки с координатами x1, y1, x2,y2. Определите, какая из двух точек находится ближе к началу координат. Исходные данные: х1, у1, х2, у2 - координаты двух точек. Вспомогательные переменные: d1, d2 - расстояния от каждой точки до начала координат. d1=√x1^2 + y1^2 Результат: выведенная на экран строка: первая точка ближе(если d1<d2) вторая точка ближе(если d2<d1) 1

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
	11.12.2013, 12:30 [ТС]
	И что же за причина, не подскажите?) Этого то я и не пойму 0

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
	11.12.2013, 12:47 [ТС]
	Warning: Variable "x1" does not seem to be initialized Warning: Variable "y1" does not seem to be initialized Warning: Variable "x2" does not seem to be initialized Warning: Variable "y2" does not seem to be initialized Fatal: Syntax error, ";" expected but "ELSE" found вот, что выдаёт Добавлено через 7 минут Uses crt; var x1,y1,x2,y2 : boolean; begin If sqrt(x1x1+y1y1)<sqrt(x2x2+y2y2) then Writeln('первая точка ближе'); else Writeln('вторая точка ближе'); readkey; end. если писать `boolean` тоже выдаёт ошибку в строке If sqrt(x1x1+y1y1)<sqrt(x2x2+y2y2) then 0

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
	11.12.2013, 13:17 [ТС]
	var x1,y1,x2,y2 : real; это не описание разве? какой вообще здесь тип переменных? 0