[Cathrinka]

Спасибо тем, кто откликнулся на мою первую мольбу о помощи, задачка сдалась только с небольшими изменениями... Очень-очень благодарна!!!! Вот только опять попала, массивы-это явно не моя тема, утонула в ней, две задачки покорились, а эта опять зависла!!!!!! Помогите, пожалуйста!

используя следующий фрагмент программы, найдите наибольшее расстояние d между точками, рассматривая элементы массива М, как координаты точек плоскости:
type точка=array [(x,y)] of real; var M: array [1..40] of точка; d:real

[Ozerich]

Волновой алгоритм используй

[lmikle]

Какой алгоритм???
Тут тупое вычисление расстояний между всеми точками и выбор максимального значения. Расстояние высчитывается по формуле пифагора: d := sqrt(sqr(x1-x2) + sqr(y1-y2));

Дальше перебираешь все точки массива попарно и считаешь расстояние между ними.

Код:

1 2 3 4 5 6 7 8 9 10

uses math;   var  i, j : integer; begin  d := 0;  for i := 1 to 39 do    for j := i+1 to 40 do      d := max(d,sqrt(sqr(M[i][x]-M[j][x]) + sqr(M[i][y]-M[j][y]))); end;

[Cathrinka]

Спасибочки за идею, только там еще элемент Delphi надо использовать: StringGrid с двумя строками и 20 столбцами, я потом с его элементами сделать ничего не могу, там столько ошибок выдается: и real не подходит, и элементы введены неправильно...

[lmikle]

За место real используй double.
Не совсем понятно зачем именно такой StringGrid. Даже если вводить через него данные, то все-равно нужно либо 2 столбца и 40 строк, либо 40 столбцов и 2 строки.

вообще, когда писал код думал что это некоторая абстрактная задача, т.к. ни Дельфи, ни Паскаль НЕ ПОНИМАЮТ ИДЕНТИФИКАТОРОВ на русском языке.

для начала я бы постановку задачи переписал следующим образом:

Код:

1 2 3 4 5 6 7 8 9

type   TDblPoint = record     x : double;     y : double;   end;    var   M : Array [1..40] Of TDblPoint;   d : double;

Тогда мой код надо немного поменять:

Код:

1 2 3 4 5 6 7 8 9 10

uses math;   var  i, j : integer; begin  d := 0;  for i := 1 to 39 do    for j := i+1 to 40 do      d := max(d,sqrt(sqr(M[i].x-M[j].x) + sqr(M[i].y-M[j].y))); end;

И вот это вполне скомпилится и должно работать.
Здесь нет задачи значений для точек. Его как раз можно сделать через StringGrid.

Предполягаем, что в StringGrid 3 колонки (1 фиксированная с названиями кординат - х и у) и 41 строка (1 фиксированая с номерами точек). Тогда считывание значений будет выглядеть так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   i : integer; begin   For i := 1 To 40 Do     Try        M[i].x := StrToFloat(StringGrid1.Cells[1,i]);        M[i].y := StrToFloat(StringGrid1.Cells[2,i]);     Except        // Если не удалось конвертировать из строки в число.        M[i].x := 0;        M[i].y := 0;     End; end;

[Cathrinka]

Что значит сообщение "ProjectProject1.exe raised exception class EConvertError winh message "is not a valid integer value". Process stopped. Use step or Run to continue.".

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

[Aristarh Dark]

Это значит, что в той строке где ты пыталась преобразовать строковое значение в число с помощью функции StrToInt произошла ошибка т.к. функции было передано неверное значение. На примере кода это выглядит так:

Код:

1 2 3 4 5 6 7 8 9

var   S:string;   I:integer; begin   S:='123';   I:=StrToInt(S); //<--- Ошибки нет, конвертация успешна   S:='123.45';   I:=StrToInt(S); //<--- EConvertError, по причине того что 123,45 не целое число end;

[Cathrinka]

я понимаю, просто не представляю где эта ошибка именно, ведь преобразовать строковое значение real в число можно с помощью функции StrToFloat???

[SedmoiDemon]

Код:

1 2 3 4

function realtoint( x: real ): integer; begin result:= strtoint( floattostr( round( x ) ) ); end;

может поможет?

Aristarh Dark: Читай в справке как правильно использовать тэги

[Cathrinka]

эх.... может и поможет... чувствую, что с задачей не расстанусь еще долго....

[Cathrinka]

Может кто найдет ошибочку: "ProjectProject1.exe raised exception class EConvertError winh message "is not a valid integer value". Process stopped. Use step or Run to continue." Я изменила размеры массива и взяла абциссу в первой строке StringGrid'a, а ординату во второй!

Код:

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

procedure TForm1.Button1Click(Sender: TObject); type s=array [(x,y)] of real; var H: array [1..10] of s;    d,max:real; i,j:integer; begin for i:=1 to n do for j:=1 to m do a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,1]); for i:=1 to n do for j:=1 to m do b[i,j]:=StrToFloat(StringGrid1.Cells[j-1,1]); for i:=1 to n do for j:=1 to m do c[i,j]:=StrToFloat(StringGrid1.Cells[j-1,2]); for i:=1 to n do for j:=1 to m do e[i,j]:=StrToFloat(StringGrid1.Cells[j-1,2]); for j:=1 to m do d:=0; d:=sqrt(sqr(a[i,j]-b[i,j])+sqr(c[i,j]-e[i,j]));  for i:=1 to n do  begin  max:=0;  for j:=1 to m do  if d>max then max:=d;  end; ShowMessage('расстояние=' +FloatToStr(max)); end;   end.

Aristarh Dark: Используй тэги. Второе замечание в одной теме, еще раз - бан на неделю