6.4.. Učitati koordinate tačke M1(x1,y1) izračunati udaljenost od koordinatnog početka.

Opis rješenja: Na osnovu Pitagorine teoreme hipotenuza se računa d 2 = x12 + y12.

Opis programa:

Listing programa:

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

Ispis na ekranu:

Index