Составить программу на языке паскаль:

Две точки задаются своими координатами. Определите, какая из них находится дальше от:

начала координат;

окружности заданного радиуса с центром в начале координат.

Question

Информатика

Матюха

11 марта, 10:13

Составить программу на языке паскаль:

Две точки задаются своими координатами. Определите, какая из них находится дальше от:

начала координат;

окружности заданного радиуса с центром в начале координат.

+4

Ответы (1)

Знаете ответ?

Сергуна · Answer 1

Program gt;

var x1, y1, x2, y2, r:real;

begin

readln (x1, y1, x2, y2) ;

readln (r) ;

if ((sqr (x1) + sqr (y1)) < (sqr (x2) + sqr (y2))) then writeln ('Pervaya') else

writeln ('2-raya') ;

if (abs (sqrt (sqr (x1) + sqr (y1)) - r)
then writeln ('Pervaya-ornositelno okru') else writeln ('2-raya otnositelno okru') ;

end.