VPF::__М А С С И В Ы__(Нужна помощ) - Форум программистов

mrinferno

Дата 22.12.2006, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

Братишки выручайте срочно нужно сделать программу я в должниках не останусь. (Заранее спасибо за всё)

1) Программа. Даны координаты N точек на плоскости x(1),
                        y(1) ,..., x(n),y(n)  (N ). Найти номера двух точек,
                        расстояние между которыми наибольшее (считать,что
                        такая пара точек единственная).

спасибо всем кто поможет.

skyboy

Дата 22.12.2006, 23:36 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

язык-то какой?

mrinferno

Дата 23.12.2006, 01:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

ЭТО паскаль

skyboy

Дата 23.12.2006, 01:57 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

Код


type
 TPoint=record
 x,y: reaal;
 end;

var points: array[0..99] of TPoint;
      i,j,n,indexMax1, indexMax2: integer;
begin
writeln('Сколько точек будем обрабатывать?');
readln(N);
if N< 1
 then
  begin
   writeln('Извините, но хоть две точки должна быть введены!');
   N:= 2;
  end;
if N> 100
 then
  begin
   writeln('Извините, но максимальное количество, которое может обработать программа - это 100 точек');
   N:= 100;
  end;
writeln('Сейчас состоится ввод данных о ',N,'точках...');
for i:=0 to N - 1 do
 begin
  writeln('Точка ', N);
  write("X?");
  readln(points[i].X);
  write("Y?");
  readln(points[i].Y);
 end;
indexMax1:= 0;
inedxMax2:= 2;
for i:=0 to N - 1 do
 for j:= i + 1 to N - 1 do
  if sqr(points[i].X - points[j].X) + sqr(points[i].Y - points[j].Y)> sqr(points[maxIndex1].X - points[maxIndex2].X) + sqr(points[maxIndex1].Y - points[maxIndex2].Y)
   then
    begin  
     maxIndex1:= i; 
     maxIndex2:= j;
    end; 
writeln('Расстояние максимально между точками с номерами ', maxIndex1,' и ', maxIndex2);
end.

mrinferno

Дата 23.12.2006, 07:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

я просто не понимаю как его в паскаль засунуть

Добавлено @ 07:40
smile

Rodman

Дата 23.12.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Цитата(mrinferno @ 23.12.2006, 06:39

)

я просто не понимаю как его в паскаль засунуть

открываешь FAR, в нем создаешь файл с расширением *.pas и копируешь туда текст проги...

Потом компилятором открываешь и вот тебе счастье...

Добавлено @ 10:36

Цитата(skyboy @ 22.12.2006, 22:36

)

язык-то какой?

skyboy, но это же раздел ПАСКАЛЯ. (без обид)

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

skyboy

Дата 23.12.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

Rodman, блин, привык, что такие темы быстро кочуют в ЦП.
mrinferno, если у тебя не вопрос, а просьба написать полностью готовую программу, то лучше создавай темы в Центре помощи

mrinferno

Дата 23.12.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

спс всем люди премного благодарен
smile

skyboy

Дата 23.12.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: нет
Всего: 260

почему не пометил вопрос решенным?

PrinceMike

Дата 24.12.2006, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

Цитата(skyboy @ 23.12.2006, 21:50

)

почему не пометил вопрос решенным?

Им лижбо решение и ищи ветра в поле...

Это сообщение отредактировал(а) PrinceMike - 24.12.2006, 00:01

--------------------

mrinferno

Дата 25.12.2006, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 22.12.2006

Репутация: нет
Всего: нет

ВСЁ!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »