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

Программа для вычисления координат точки максимально отдаленной от начала координат

29.02.2012, 21:14. Просмотров 5097. Ответов 8
Метки нет (Все метки)


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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program er;
 
var i,N,c,max,x,y,x1,y1:integer;
Begin
Writeln('Определение кординат точки максимально отдаленной от начала координат');
Writeln('Задайте количество точек');
Readln(N);
Writeln('Введите координаты первой точки x,y');
readln(x,y);
max:=Round(SQRT(SQR(x)+SQR(y)));
 
for i:=2 to N do
begin
Writeln('Введите координаты следующей точки');
Readln(x1,y1);
c:=Round(SQRT(SQR(x1)+SQR(y1)));
if c>max then max:=c;
end;
if c>max then
writeln('Координаты максимально отдаленной точки: x=',x, 'y=',x)else
Writeln('Координаты максимально отдаленной точки: x=',x1, 'y=',y1);
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.02.2012, 21:14
Ответы с готовыми решениями:

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

Подпрограммы. Для точки на плоскости найти расстояние от точки до начала координат
Для точки на плоскости с заданными координатами (x,y) найти расстояние l от точки до начала...

Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки, наиболее удаленной от начала координат
Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки,...

Определить номер точки, наиболее удаленной от начала координат
На плоскости задано М точек с координатами Хi, Yi. Определить номер точки, наиболее удаленной от...

8
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
29.02.2012, 21:20 2
в конце поставить

Pascal
1
end.
0
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 37
29.02.2012, 21:21  [ТС] 3
нет, он у меня есть, просто тут недописал
0
42 / 42 / 19
Регистрация: 30.11.2011
Сообщений: 112
29.02.2012, 21:28 4
Попробуй поменять строчки местами
Pascal
1
writeln('Координаты максимально отдаленной точки: x=',x, 'y=',x)
и

Pascal
1
Writeln('Координаты максимально отдаленной точки: x=',x1, 'y=',y1);
0
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 37
29.02.2012, 21:31  [ТС] 5
пробовал и это, не помогает=(
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
29.02.2012, 21:39 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
begin
  Writeln('Определение');
  Writeln('Задайте количество точек');
  Readln(N);
  Writeln('Введите координаты первой точки x,y');
  readln(max_x, max_y);
  max := Round(SQRT(SQR(max_x) + SQR(max_y)));
  
  for i := 2 to N do
  begin
    Writeln('Введите координаты следующей точки');
    Readln(x1, y1);
    c := Round(SQRT(SQR(x1) + SQR(y1)));
    if c > max then 
    begin
      max := c;
      max_x:=x1;
      max_y:=y1;
    end;
  end;
    writeln('Координаты максимально отдаленной точки: x=', max_x, 'y=', max_y);
end.
да, и ввести переменные max_x, max_y

в формуле вычисления первого расстояния вставить max_x, max_y
1
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 37
29.02.2012, 21:49  [ТС] 7
но ведь в этом случае проверяется лишь одно условие c > max, и Заново все получается с недочетами(
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
29.02.2012, 21:55 8
я позже поправки внес, мож поэтому не получается..
все правильно, сначала принимаем первое расстояние за максимальное, потом поочередно сравниваем остальные..
0
0 / 0 / 0
Регистрация: 17.02.2012
Сообщений: 37
29.02.2012, 22:01  [ТС] 9
спасибо=))! выручили
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.02.2012, 22:01

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

Определить координаты точки, наиболее удаленной от начала координат
Если все заданные точки плоскости принадлежат первой четверти, определить координаты точки,...

Найти расстояние до самой удаленной точки от начала координат
на плоскости заданы своими координатами 15 точек. Найти расстояние до самой удаленной точки от...

Дано n точек в пространстве. Упорядочить точки по неубыванию их расстояний до начала координат
Всем привет. Задание такое... Дано n точек в пространстве. Упорядочить точки по неубыванию их...

Построить таблицу расстояний от начала координат до каждой точки и выбрать самую удалённую
На плоскости заданы своими координатами n точек. Построить таблицу расстояний от начала координат...


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

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

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