Question

информатика 9 класс. тема: проверка условий в паскале
координаты а(х1;у1) в(х2;у2) . Какая из точек ближе к началу координат. НАйти расстояние. Напишите пожалуйста программу и если можете еще схему. ХЕЛП

Answer 1

var x1,y1,x2,y2,d1,d2:real;
begin
write(' Введите x1,y1,x2,y2');
read(x1,y1,x2,y2);
d1:=sqrt(x1*x1+y1*y1);
d2:=sqrt(x2*x2+y2*y2);
if d1=d2 then write('точки одинаково удалены от начала координат');
if d1<d2 then write('т. В дальше') else write('т. А дальше');
wrire(d1,'   ',d2);
end.

блок-схема будет в файле

Answer 2

write(x1,y1,x2,y2); - будет напечатано четыре нуля. Зачем?

Answer 3

посмотрите поправку