6.4.. Učitati koordinate tačke M₁(x₁,y₁) izračunati udaljenost od koordinatnog početka.

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

Opis programa:

Listing programa:

PROGRAM P06411089;
VAR
  x1, y1, d: Real;
BEGIN
  Write('Unesi koordinate tacake X1, Y2 : ');
  Readln(x1, y1);
  d := SQRT(SQR(x1) + SQR(y1));
  Writeln('Udaljenost izmedju tacke M (', x, ', ', y, ') od koordinatnog pocetka = ',d:5:2);
  READLN;
END.

Ispis na ekranu:

Index