6.4.. Učitati koordinate dvije tačke M1(x1,y1) i M2(x2,y2) i izračunati udaljenost.

Opis rješenja: Na osnovu Pitagorine teoreme hipotenuza se računa d₁ ² = (x₁- x₂)² + (y₁- y₂)²

Opis programa:

Listing programa:

PROGRAM udaljenost;
VAR
  x1, y1, x2, y2: Integer;
  d:Real;
BEGIN
  Write('unesi koordinate tacaka m1, m2 : ');
  Readln(x1,y1,x2,y2);
  d := SQRT(SQR(x1-x2)+SQR(y1-y2));
  Writeln('udaljenost izmedju tacaka je d=',d:4:2);
  READLN;
END.

Ispis na ekranu:

Index