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

@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(x1x1+y1y1)<sqrt(x2x2+y2y2) then Writeln('первая точка ближе') else Writeln('вторая точка ближе');

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

Pascal

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

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.

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

@APALoff 1642 / 1071 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.12.2013, 12:26	4
	Сообщение от oksi-xd Uses crt; var x1,y1,x2,y2 : real; d1, d2: real; begin If d1=sqrt(x1x1+y1y1)<d2=sqrt(x2x2+y2y2) then Writeln('первая точка ближе, если d1<d2'); else Writeln('вторая точка ближе, если d2<d1'); readkey; end. так не выходит И не выйдет! If d1=sqrt(x1x1+y1y1)<d2=sqrt(x2x2+y2y2) then тут, в общем то и кроется причина 0

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

@APALoff 1642 / 1071 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.12.2013, 12:39	6
	Сообщение от oksi-xd И что же за причина, не подскажите?) Этого то я и не пойму Нельзя в операторе сравнения использовать присваивание значений переменным. P.S.: Да и не нужны там никакие вспомогательные переменные. Добавлено через 1 минуту Вернее даже не совсем так... d1=sqrt(x1x1+y1y1)<d2=sqrt(x2x2+y2y2) = -без двоеточия - это условие, а не присваивание < - еще одно сравнение т.е. это вообще бессмыслица получается Добавлено через 1 минуту Если уж Вам так необходимы переменные d1 и d2, то сначала их надо вычислить, а уж потом сравнивать, а не пытаться все в одной строке сделать... либо использовать мой вариант без вспомогательных переменных 0

@oksi-xd 2 / 2 / 0 Регистрация: 23.10.2013 Сообщений: 58
	11.12.2013, 12:47 [ТС]	7
	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

@APALoff 1642 / 1071 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	11.12.2013, 13:10	8
	Warning: Variable "x1" does not seem to be initialized Понятное дело - это надо описать переменную. Это не моя ошибка - это намеренное упущение с моей стороны, чтобы Вы могли своими силами догадаться... Fatal: Syntax error, ";" expected but "ELSE" found это не моя ошибка - надо лишнюю точку с запятой убрать (перед ELSE), о чем и написано в сообщении об ошибке в моем посте все было правильно 0

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

Опции темы