Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/25: Рейтинг темы: голосов - 25, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 17.03.2014
Сообщений: 80
1

Определить, какая из точек дальше от начала координат

06.11.2014, 13:34. Просмотров 5104. Ответов 3
Метки нет (Все метки)


Даны координаты двух точек в прямоугольной системе координат. Составить программу, с помощью которой можно будет определить какая из этих точек дальше от начала координат.
Задача не ветвление.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2014, 13:34
Ответы с готовыми решениями:

Даны координаты двух точек Определить какая из них находится дальше от начала координат
Даны координаты двух точек Определить какая из них находится дальше от начала координат

Определить, какая из точек находится дальше от начала координат
Даны координаты двух точек A(x1,y1) и B(x2,y2). Какая из этих точек находится дальше от начала...

Определить, какая из точек находится дальше от начала координат
На площині дано дві точкі. Визначити, яка з них заходиться далі від початку координат. На площине...

Определить, какая из двух точек находится дальше от начала координат?
Cоставить программу на языке Visual Basic Net, которая определяет, какая из двух точек находится...

__________________
Помогаю в написании студенческих работ здесь.
3
Эксперт Pascal/Delphi
6582 / 4432 / 4722
Регистрация: 05.06.2014
Сообщений: 21,756
08.11.2014, 10:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  x1, y1, d1 : real;
  x2, y2, d2 : real;
begin
  write('Введите координаты 1-й точки: (X,Y) '); readln (x1, y1);
  write('Введите координаты 2-й точки: (X,Y) '); readln (x2, y2);
  d1:=sqrt(sqr(x1) + sqr(y1));
  d2:=sqrt(sqr(x2) + sqr(y2));
  if d1>d2 then
    writeln('Вторая точка ближе к началу координат.')
  else
    if d2>d1 then
      writeln ('Первая ближе точка к началу координат.')
    else
      writeln ('Точки находятся на одинаковом расстоянии.');
  readln;
end.
2
1 / 1 / 1
Регистрация: 17.03.2014
Сообщений: 80
08.11.2014, 12:19  [ТС] 3
ZX Spectrum-128, для чего нужна 7 и 8 строчка и что она делает?
0
Эксперт Pascal/Delphi
6582 / 4432 / 4722
Регистрация: 05.06.2014
Сообщений: 21,756
08.11.2014, 12:31 4
D@nger, вычисляются длины отрезков, выходящих из центра координат. Я не очень хорошо помню геометрию, но в этом случае вроде как, чем меньше длина отрезка, тем точка (X,Y) ближе к точке (0,0).
Если формулы неверны, то дайте верные. Переделаю.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2014, 12:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить какая из трех заданных точек на плоскости дальше от начала координат
Определить какая из 3-х заданных точек на плоскости дальше от начала координат. Делал в Visual...

Выяснить в какой квадрант попадает каждая из точек, и какая из них дальше отстоит от начала координат
Даны точки А(х;у) и B(х;у). Выяснить в какой квадрант попадает каждая из этих точек, и какая из них...

Определить какая точка дальше от начала координат
Сейчас сдаю экзамен, помогите ПОЖАЛУЙСТА решить задачу на QBasic!!!Даны точки А,В,С.Определить...

Две точки задаются своими координатами. Определить, какая их них находится дальше от начала координат
Две точки задаются своими координатами. Определить, какая их них находится дальше от: начала...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.