|
Вопрос # 5 185/ вопрос открыт / |
|
Здравствуйте уважаемые эксперты, могли бы вы удель мне своего времени и помочь с задачей?
Для зачёта нужна ещё одна задача и препад выносит мозг((
В одномерном массиве с четным количеством элементов (2N)
находятся координаты N точек плоскости. Они располагаются в
следующем порядке: х1 у1 х2, у2, х3, у3 и т.д.
Определить кольцо с центром в начале координат, которое
содержит все точки.
 |
Вопрос задал: Силиванов (статус: Посетитель)
Вопрос отправлен: 13 апреля 2011, 10:30
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Толяныч
Здравствуйте, Силиванов!
Приблизительно вот так :
https://www.delphi-int.ru/code/f619305e
 |
Ответ отправил: Толяныч (статус: 4-ый класс)
Время отправки: 13 апреля 2011, 15:15
Оценка за ответ: 5
Комментарий к оценке: спасибо, разберёмся
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 14 апреля 2011, 18:49; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 10:35 [#1]:
Опять вопрос из серии "Напишите мне лабу"?
Подсказываю:
1) определяешь точку, которая ближе всего к началу координат.
2) определяешь точку, которая дальше всего от начала координат.
3) через эти точки и будут проходить внутренняя и внешняя окружности соответственно, которые и являются границами кольца.
И всего делов!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 10:38 [#2]:
Если бы мне задали такую лабу, я бы её на delphi написал и красиво оформил бы с отрисовкой этих точек, кольца и координатной сетки. Препод был бы в диком свинячем восторге!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Силиванов (статус: Посетитель), 13 апреля 2011, 10:45 [#3]:
НО есть одно но, мне нужно в паскале, и второе я незнаю как это сделать(
|
13 апреля 2011, 11:13: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором Ерёмин А.А.
|
|
min@y™ (статус: Доктор наук), 13 апреля 2011, 11:31 [#4]:
Цитата (Силиванов):
мне нужно в паскале
Печально. Спроси препода, может можно и на delphi?
Цитата (Силиванов):
я незнаю как это сделать
Ну я ж тебе весь алгоритм написал. Чо те ещё надо-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Толяныч (статус: 4-ый класс), 13 апреля 2011, 15:26 [#5]:
Вот понимаю, что за студентов не надо делать лабы, пусть думают мозгами, но... А он еще и ответ не оценит 
|
|
Егор (статус: 10-ый класс), 14 апреля 2011, 03:36 [#6]:
Толяныч: посмотрел код...
стало очень интересно, а какого использовался одномерный массив, когда паскаль спокойно дружит с многомерными?
...
XY : array[1..100] of real ;
begin
...
for i := 1 to N do
begin
...
Readln ( XY[i+i-1],XY[i+i] )
end ;
...
for i := 2 to N do
begin
j := i+i ; rr := XY[j]*XY[j]+XY[j-1]*XY[j-1] ; //две команды в одну строку - тяжёлое наследие бейсика?
...
end ;
...
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
|
Толяныч (статус: 4-ый класс), 14 апреля 2011, 11:20 [#7]:
Егор: Все без исключения АЯ ( из мне известных ) знают об многомерных массивах, но у автора в задании был одномерный.
А вот как раз Бесик, кроме более современных вариантов, и не допускает 2 команды в строке. А что, нечитаемо стало? Или канон нарушен?
|
|
|
Егор (статус: 10-ый класс), 14 апреля 2011, 18:49 [#8]:
Цитата (Толяныч):
но у автора в задании был одномерный Цитата (Силиванов):
В одномерном массиве с четным количеством элементов (2N)
вот же блин, а! 
был неправ. извиняюсь
Цитата (Толяныч):
А что, нечитаемо стало? Или канон нарушен?
конечно! и нарушен, и нечитаемо 
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
