Использование подпрограмм при программировании на языке Паскаль

[Needfor5]

Четыре точки заданы своими координатами x={x1, x2}, y={y1, y2}, z={z1, z2}, p={p1,p2}. Выяснить, какие из них находятся на максимальном расстоянии друг от друга, и вывести на печать значение этого расстояния.
Вычисление расстояния между двумя точками оформить в виде подпрограммы типа PROCEDURE.
Исходные данные: x={4,8;-3}; y={-6,5;1,2}; z={-3,7;-4,5}; p={7,8; 2}



Помогите пожалуйста в решении. Заранее благодарен.

[Arigato]

Логичнее в виде функции. Ну да ладно, вот процедура:

procedure Distance (A, B: TCoord; var Res: Single);
begin
  Res := Sqrt (Sqr (A.X - B.X) + Sqr (A.Y - B.Y));
end;

TCoord - запись из двух полей X, Y типа Single (координаты точки).

[Needfor5]

Это вся программа?

Я этом вообще нуб

[Arigato]

Дальше сам пиши или дуй во Фриланс.

[BDA]

Arigato, домо аригато за процедуру.

uses
  CRT;

type
  TCoord = record 
    X, Y: single;
  end;

var
  a: array[1..4] of TCoord;
  i, j: integer;
  max, tmp: single;

procedure Distance(A, B: TCoord; var Res: Single);
begin
  Res := Sqrt(Sqr(A.X - B.X) + Sqr(A.Y - B.Y));
end;

begin
  for i := 1 to 4 do
  begin
    write('Input coordinates of ', i, ' point: ');
    readln(a[i].x, a[i].y);
  end;
  max := 0;
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      distance(a[i], a[j], tmp);
      if tmp > max then
        max := tmp;	
    end;
  writeln('Maximum distance (', max:0:3, ') between:');
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      distance(a[i], a[j], tmp);
      if tmp = max then
        writeln(i, ' and ', j, ' point');	
    end;
  readln;
end.

[Needfor5]

Это на Турбо Паскале или на Делфи?

[An4ix.Murad]

На турбо видно же :-)
у меня почти такая только надо минимум найти и только не процедура, а функция ) Спасибо за прогу.

Четыре точки заданы своими координатами x={x1, x2, x3}, y={y1, y2, y3}, z={z1, z2, z3}, p={p1, p2, p3}. Выяснить, какие из них находятся на минимальном расстоянии друг от друга, и вывести на печать значение этого расстояния.
Вычисление расстояния между двумя точками оформить в виде подпрограммы типа FUNCTION.
Исходные данные: x={-3,2; 5; 1,4}; y={2,2; -4; 3} z={-6,1; -3; 1}; p={2,7; 1; -1}

[Needfor5]

тип TCoord на тубо бывает?

[BDA]

Needfor5, это пользовательский тип (в разделе type описываются свои типы).

An4ix.Murad (если еще не сделали):

uses
  CRT;

type
  TCoord = record 
    X, Y, Z: single;
  end;

var
  a: array[1..4] of TCoord;
  i, j: integer;
  min, tmp: single;

function Distance(A, B: TCoord): single;
begin
  Distance := Sqrt(Sqr(A.X - B.X) + Sqr(A.Y - B.Y) + Sqr(A.Z - B.Z));
end;

begin
  for i := 1 to 4 do
  begin
    write('Input coordinates of ', i, ' point: ');
    readln(a[i].x, a[i].y, a[i].z);
  end;
  min := 100000;
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      tmp := distance(a[i], a[j]);
      if tmp < min then
        min := tmp;	
    end;
  writeln('Minimum distance (', min:0:3, ') between:');
  for i := 1 to 3 do
    for j := i + 1 to 4 do
    begin
      tmp := distance(a[i], a[j]);
      if tmp = min then
        writeln(i, ' and ', j, ' point');	
    end;
  readln;
end.

[An4ix.Murad]

Я не особо понял "tmp" что означает ? min минимум ты обозначил а tmp что ?