Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
temaghj2
11.07.2022 09:37 •
Информатика
Написать программу , которая вычисляет расстояние между точками a(x₁,y₁) и b(x₂,y₂) с точностью до 0,1 по формуле ab=√(x₂-x₁)²+(y₂-y₁)². язык программирования pascal. p.s. (x₂-x₁)²+(y₂-y₁)² полностью под корнем
Показать ответ
Ответ:
Missura2001
06.10.2020 11:31
Var
Ax,Ay,Bx,By:real;
Begin
WriteLn('Точка A:');
Write(' x: ');ReadLn(Ax);
Write(' y: ');ReadLn(Ay);
WriteLn('Точка B:');
Write(' x: ');ReadLn(Bx);
Write(' y: ');ReadLn(By);
WriteLn('|AB| = ',Sqrt(Sqr(Bx-Ax)+Sqr(By-Ay)):0:1);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
strelok11261
17.01.2023 07:51
что так мало (я бомж всем добрым людям которые мне за такую маленькую цену...
JANAAAAAA
11.05.2022 19:47
Найдите сумму элементов одномерного массива. Размер произвольный .Напишите программу В Паскале...
aliya071016
14.09.2020 03:49
Написать программу, на вход которой подается две даты рождения двух человек. На выходе она должна вывести дату, когда один из них будет старше другого в два раза. Високосными...
Messi111111111111111
06.07.2022 16:11
A. Пир на полярной станции Ограничение времени 2 секунды Ограничение памяти 256.0 Мб Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt После успешного...
krizhnaya111
21.12.2021 12:28
ABCPascal Составить программу, которая каждую встреченную в заданном предложении букву «р» заменяла бы сочетанием букв «ля»....
Vasianeumaha
15.10.2021 12:19
Сколько символов содержит сообщение записанное в 16 символьного алфавита,если его объем составил 1/16часть мегабайта...
nik13243546576879
26.04.2021 08:20
Впаскале вводится сначала число n, а затем n чисел. выведите эти n чисел в следующем порядке: сначала выводятся все нечетные числа в том порядке, в каком они встречались во входном...
ogne1arp
21.05.2022 23:44
Сумма двух чисел равна 31 12/7 если одно слагаемое 12 4/17...
ShudrenkoArtem
21.05.2022 23:44
Завтра урок ! постройте ув 53 ,ум 53 ,д 7,д65,д 43, д 2,м 77, ум 77! просто от ноты фа с разрешениями! !...
Alieta
21.05.2022 23:44
1. дно ящика массой 100 кг имеет площадь 0,04 м2. вы¬числите давление, которое производит ящик на пол. 2. современные подводные лодки опускаются на глубину до 400 м. вычислите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Ax,Ay,Bx,By:real;
Begin
WriteLn('Точка A:');
Write(' x: ');ReadLn(Ax);
Write(' y: ');ReadLn(Ay);
WriteLn('Точка B:');
Write(' x: ');ReadLn(Bx);
Write(' y: ');ReadLn(By);
WriteLn('|AB| = ',Sqrt(Sqr(Bx-Ax)+Sqr(By-Ay)):0:1);
End.