Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2011, 18:52   #1
BornOfOsiris
 
Регистрация: 12.05.2011
Сообщений: 8
По умолчанию Массив(есть наработка)

Даны координаты n точек на плоскости: (Xi, Yi), ..., (Хn, Yn) (n=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).
Выдаёт ошибку - Expected ':' but '=' found
Код:
Код:
type
  TForm1 = class(TForm)
  TPoint=record
         x,y:real;
     end;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   Points:array[1..30] of TPoint;
max:=0;
Begin
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
implementation
{$R *.dfm}
end.
Помогите доделать и разобраться,пожалуйста.
BornOfOsiris вне форума Ответить с цитированием
Старый 12.05.2011, 22:44   #2
Mandrivnyk
Software Developer
Участник клуба
 
Аватар для Mandrivnyk
 
Регистрация: 01.03.2011
Сообщений: 1,098
По умолчанию

Код:
type TPoint = record
Разве не так надо?
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв.
Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062
Mandrivnyk вне форума Ответить с цитированием
Старый 12.05.2011, 22:49   #3
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

А вам не кажется что

Код:
implementation
{$R *.dfm}
end.
выглядит довольно подозрительно и стоит в самом конце

Автор это не паскаль.
Сливочное масло Valio - компиляция как по маслу

Последний раз редактировалось Valio; 12.05.2011 в 22:53.
Valio вне форума Ответить с цитированием
Старый 12.05.2011, 22:51   #4
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Код:
type

  TPoint=record
         x,y:real;
     end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
   Points:array[1..30] of TPoint;
   max : Integer;

implementation
{$R *.dfm}

// тут надо чтото написать.. типа БутонКлик
max:=0;
Begin
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
End;
// Бутон клик закончен

end.
Кароче както так должно быть, незнаю что автор хотел написать.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строки.(решение есть работающие, но есть 1 но((( Bombastick Microsoft Office Excel 6 28.12.2010 01:11
есть массив peq Microsoft Office Excel 3 27.10.2009 19:02
Я-чайник (в excel) - у меня есть к Вам просьба, если есть желание и время - помогите. rococococo Microsoft Office Excel 0 04.10.2009 12:16
В Access есть тип данных "Счетчик".Есть ли подобный тип данных в MS Sql Server 2000? An_ton SQL, базы данных 5 16.01.2009 17:55