Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 02:48
1035
Даны две точки в плоской прямоугольной системе координат. Напишите программу,определяющую, которая из точек находится ближе к началу координат.
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
Остались вопросы?
Еще вопросы по категории Информатика
БЛ, ДА ПОМОГИТЕ ЖЕ!(( Двухканальная (стерео) запись имеет информационный объём 900 Кбайт, полученный при частоте дискретизации 51200 Гц и разрешении 8...
Информация о местоположении курсора указывается...
Строка описывающая свойства элемента таблиц базы данных, называется А) полем В) бланком С) записью D) связью Е) ключом...
Текстовый документ, состоящий из нескольких страниц, занимает на жёстком диске 84 Кбайт. На 1-ой страницу документа 48 строк по 64 символа в строке. К...
Питон Реплит Задание 2 Почувствуйте себя инвестором и создайте список продук- тов, в которые вы готовы вкладывать деньги. Разработайте приложение,...