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

[BDA]

tmp используется как временная переменная, но ее можно "выкинуть" (переписывал, не задумываясь) вот так:

uses
  CRT;

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

var
  a: array[1..4] of TCoord;
  i, j: integer;
  min: 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
      if distance(a[i], a[j]) < min then
        min := distance(a[i], a[j]);	
  writeln('Minimum distance (', min:0:3, ') between:');
  for i := 1 to 3 do
    for j := i + 1 to 4 do
      if distance(a[i], a[j]) = min then
        writeln(i, ' and ', j, ' point');	
  readln;
end.

[Needfor5]

Значит мне так же можно выкинуть tmp и указать свой тип и всё прога готова?

[BDA]

Needfor5, вам нельзя выкидывать tmp, т.к. процедура не возвращает значения, а меняет один из своих параметров. Тип уже описан (в 5 посте полностью готовая программа, просто проверьте, чтобы она компилировалась и выдавала правильный ответ на ваших тестах).

[Needfor5]

Ок. Всё получилось спасибо большое.

[Arigato]

Сообщение от BDA

tmp используется как временная переменная, но ее можно "выкинуть" (переписывал, не задумываясь) вот так:

...
      if distance(a[i], a[j]) < min then
        min := distance(a[i], a[j]);	
...

Так не делается, с tmp лучше было.

[BDA]

Arigato, согласен