Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 02:48
1055
Даны две точки в плоской прямоугольной системе координат. Напишите программу,определяющую, которая из точек находится ближе к началу координат.
1
ответ
может быть так:
var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.
0
·
Хороший ответ
29 декабря 2022 02:48
Остались вопросы?
Еще вопросы по категории Информатика
Люди добрые, помогите пожалуйста! Дано натуральное трёхзначное число. Напишите программу, которая определяет: (фото)...
Замена реального объекта его формальным описанием-это: А)Анализ Б)Моделирование В)Формализация Г)Алгоритмизация...
На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них написаны фрагменты одного IP-адреса. Криминалисты обозна...
Что вы можете сказать о массиве, сформированном следующим образом? а) for i :=1 to 10 do a[i] :=random(101)-50 б) for i :=1 to 20 do a[i] := i в) fo...
приведите известные вам примеры иерархий из других предметных областей(биология,география,математика,история и т.д)...