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 d1 2 = (x1- x2)2 + (y1- y2)2

Opis programa:

Listing programa:

PROGRAM udaljenost;
USES WinCRT;
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);
END.

Ispis na ekranu:

Index