Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 09.05.2013
Сообщений: 21
1

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

09.05.2013, 15:08. Просмотров 2209. Ответов 1
Метки нет (Все метки)


Определить, какая из трех точек А(х1,у1), В(х2,у2), С(х3,у3) ближе к началу координат.
Исходные данные: числа а и b – координаты точки А.
меню действий: шагнуть
1. вверх
2. вниз
3. влево
4. вправо
5. выход
длина шага = 1. Результат после каждого шага.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2013, 15:08
Ответы с готовыми решениями:

Определить, какая из точек находится ближе к началу координат
Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из...

Определить, которая из точек находится ближе к началу координат
Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится...

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

Даны две точки. Определить которая из точек ближе к началу координат
Даны две точки А(x1, y1) и B(x2, y2). Определить которая из точек нахо-дится ближе к началу...

1
Модератор
62951 / 46963 / 32363
Регистрация: 18.05.2008
Сообщений: 113,806
09.05.2013, 15:34 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
var x1,y1,x2,y2,x3,y3,xmn,ymn,mn:real;
    c:char;
begin
clrscr;
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки B');
readln(x2,y2);
writeln('Введите координаты точки C');
readln(x3,y3);
if sqr(x1)+sqr(y1)<sqr(x2)+sqr(y2)then
 begin
  mn:= sqr(x1)+sqr(y1);
  xmn:=x1;
  ymn:=y1;
  c:='A'
 end
else
 begin
  mn:= sqr(x2)+sqr(y2);
  xmn:=x2;
  ymn:=y2;
  c:='B'
 end;
if sqr(x3)+sqr(y2)<mn then
 begin
  xmn:=x3;
  ymn:=y3;
  c:='C'
 end;
write('Ближе всех к началу координат точка ',c,'(',xmn:0:1,';',ymn:0:1,')');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2013, 15:34

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

Составить алгоритм, определяющий, которая из точек находится ближе к началу координат
Задания в Документ Microsoft Word. Заранее спасибо!!

Напечатать координаты той из точек, которая расположена ближе остальных к началу координат
помогите решить три задания на Турбо Паскале:1.Треугольник задан координатами...

Определить, какая из точек находится ближе к началу координат
Хакеры и программисты данного ресурса. Взываю к Вашему милосердию. Помогите с работами для...

Какая из точек ближе к началу координат
Даны четыре вещественных числа Xa, Ya, Xb, Yb, являющиеся коррдинатами точек А и В на плоскости....


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

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

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