Лучшие помощники
- Megamozg 2165 б
- Matalya1 1800 б
- DevAdmin 1675 б
- arkasha_bortnikov 725 б
- Dwayne_Johnson 705 б
27 декабря 2022 02:48
771
Даны две точки в плоской прямоугольной системе координат. Напишите программу,определяющую, которая из точек находится ближе к началу координат.
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
Остались вопросы?
Еще вопросы по категории Информатика
1)Определите значение переменной c после выполнения следующего фрагмента программы, в котором a, b и с – переменные вещественного (действительного) ти...
ПОМОГИТЕ СРОЧНО! 1) Считая, что каждый символ кодируется одним байтом, определите информационный объём (в битах) следующего выражения: В семи литрах 7...
30 БАЛЛОВ ТОМУ КТО РЕШИТ!!! !!!Задача на c++ !!! Дана строка. Удалите из нее все символы, чьи индексы делятся на 3....
Пожалуйста помогите решить:) Система команд исполнителя Вычислитель состоит из двух команд, которым присвоены номера: 1 – вычти 2 2 – умножь на...
Наибольшей наглядностью обладают... фоомы записи алгоритмов? Ответы: 1)Построчные 2) словесные 3) рекурсивные 4) графические...
Все предметы